HOME

;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\300\302!\210\300\303!\207" [require url-vars url-parse url-util] 2)
(defalias 'url-mail #[(&rest args) "\301\302!\203\303\302\"\207\303\304\"\206\305\306!\207" [args fboundp message-mail apply mail error "Mail aborted"] 3 nil "P"])
(defalias 'url-mail-goto-field #[(field) "\204db\207\305\211\306\212eb\210\307\310\f!\305\306#\203\311\224eb\210\307\312\310!\313Q\n\306#\2031\311\224)\203>b\210\305\202L\nb\210\314!\315\261\210\212\316c)+\207" [field case-fold-search lim dest mail-header-separator nil t re-search-forward regexp-quote 0 "^" ":" capitalize ": " "\n"] 4])
#@32 Handle the mailto: URL syntax.
(defalias 'url-mailto #[(url) "\306!	>\204\307\310\300D\"\210\311H\203Q\306!	>\204$\307\310\300D\"\210\211\312\306!	>\2047\307\310\300D\"\210\311H\313\306!	>\204J\307\310\300D\"\210\312HQI\210)\306!	>\204`\307\310\300D\"\210\312H\314\211\211\211\211\211123\315\316\"\203\223\317\225\320\317\211\224O!3\321\314O\322\211#2\202\230\320!3\323\322!14\203\270\324\3252\"\204\270\325\3265\3276RD2B21\203\316\324\3302\"\204\316\3301D2B2\324\3312\"\2117\203\3603\332\230\204\37173\3337A@QC\241\210\202\371\3313D2B2)\324\3252\"\2438\334=\203
\334\314\211\211\335$\210\202$
8\336=\203 
\336\335!\210\202$
8 \2102\203t
2@@\337\230\203Q
eb\210\340\3419\341Q\314\322#\204D
db\210\342\3432@A\341#c\210\202k
\3442@@!\210\345\3462@@P!\342\3472@A\333#c\2102A\2112\204)
4\204\217
\350\314!\210
\203\210
\344\314!\210\202\322
\344\325!\210\202\322
:\203\233
\342\351:\332#\210db\2104c\210\352\353!\203\322
p;8\334=\203\274
<\354N\314!\210\202\314
\355\356!\203\310
\356 \210\202\314
\357\314!\210\360;!\210).\314\207" [url cl-struct-url-tags #1=#:v headers-start func subject type-of signal wrong-type-argument 2 6 "@" nil string-match "\\?" 0 url-unhex-string url-parse-query-string t url-view-url assoc "subject" "Automatic submission from " "/" "x-url-from" "to" "" ", " compose-mail new mail "body" search-forward "\n" mapconcat #[(string) "\301\302\303#\207" [string replace-regexp-in-string "
\n" "\n"] 4] url-mail-goto-field intern-soft "mail-" identity set-buffer-modified-p #[(x) "\301@!\210Ac\207" [x url-mail-goto-field] 2] y-or-n-p "Send this auto-generated mail? " sendfunc fboundp message-send-and-exit mail-send-and-exit kill-buffer source-url args to url-request-data url-package-name url-package-version tolist url-mail-command mail-header-separator url-request-extra-headers buffer mail-user-agent] 9 (#$ . 1030)])
(provide 'url-mailto)