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



(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\310\311DD\312\313\314\315\316&\207" [require sendmail mail-utils browse-url mail-parse custom-declare-variable mailclient-place-body-on-clipboard-flag funcall function #[0 "\300\301!\207" [fboundp w32-set-clipboard-data] 2 ""] "If non-nil, put the e-mail body on the clipboard in mailclient.\nThis is useful on systems where only short mailto:// URLs are\nsupported.  Defaults to non-nil on Windows, nil otherwise." :type boolean :group mail] 8)
#@64 Convert STRING to a URL, using utf-8 as encoding.

(fn STRING)
(defalias 'mailclient-encode-string-as-url #[257 "\300\301\302\303\304\305\306\"!\"\"\207" [apply concat mapcar #[257 "\211\300=\203\301\207\302\303\304!\"\203\304
!\207\305\306\"\207" [10 "%0D%0A" string-match "[-a-zA-Z0-9._~]" char-to-string format "%%%02x"] 5 "\n\n(fn CHAR)"] append encode-coding-string utf-8] 9 (#$ . 608)])
(defvar mailclient-delim-static "?")
(defalias 'mailclient-url-delim #[0 "\301\207" [mailclient-delim-static "&"] 2])
#@38 

(fn STR &optional DROP-FIRST-NAME)
(defalias 'mailclient-gather-addresses #[513 "\300\301\302#\211\205(\212\302C\303C\304\305\306%\307\310!\311\"\"\210\211\242\266\202)\207" [mail-fetch-field nil t #1="" mapc make-closure #[257 "\303\211\242\301\203\302\242\203\304\202\305 \300\306Q\307!Q\240\210\302\310\240\207" [V0 V1 V2 V3 #1# mailclient-url-delim "=" mailclient-encode-string-as-url nil] 6 "\n\n(fn RECP)"] split-string mail-strip-quoted-names ", *"] 12 (#$ . 1135)])
#@153 Pass current buffer on to the system's mail client.
Suitable value for `send-mail-function'.
The mail client is taken to be the handler of mailto URLs.
(defalias 'mailclient-send-it #[0 "\305\306!\210\307\211p\310\216\311\312\313\"r\211q\210\314\315\"\216\316!\210\317 \210\320 \262	\203,\321e\"\210eb\210\322\323\313#\203D`W\203D\324\325!\210\202/\313\307\211\211\326\327\212e}\210\330\331!\211\203o\332\333\334!@\"\203o\335\336!\204o\337\340!\210\210eb\210\322\341\307\313#\203\203\342\343\344!!\202\204\345\262\330\346!\262
\203\223
\227\262\347\350\351\352\"\350\353!\350\354!\350\355!\350\356!\350\357!\350\360!\330\361\307\313#~\210\211\203\277\362 \363\364!Q\202\300\365\262
\260	)\362 \366e\n|\210\203

\367\307!\210\370\230\203\343\371ed\"\210\202\372\372\230\203\364\373ed\307\211\313%\210\202\372\337\374\"\210\375ed#\210\364\f\203
\376ed\"\210\377\202
\201@ !R!*\266\203*\262
*\207" [case-fold-search mail-aliases browse-url-default-handlers mailclient-delim-static mailclient-place-body-on-clipboard-flag require mail-utils nil #[0 "\300\207" [nil] 1] generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] insert-buffer-substring mail-sendmail-undelimit-header point-marker expand-mail-aliases re-search-forward "\n\n\n*" replace-match "\n" "?" browse-url mail-fetch-field "content-type" string-match "multipart" mail-header-parse-content-type y-or-n-p "Message with attachments can't be sent via mailclient; continue anyway?" error "Choose a different `send-mail-function' to send attachments" "^content-type:[ 	]*text/plain;\\(?:[ 	\n]*\\(?:format\\|delsp\\)=\"?[-a-z0-9]+\"?;\\)*[ 	\n]*charset=\"?\\([^ 	\n\";]+\\)\"?" coding-system-from-name match-string 1 undecided "content-transfer-encoding" "mailto:" mailclient-gather-addresses "To" drop-first-name "cc" "bcc" "Resent-To" "Resent-cc" "Resent-bcc" "Reply-To" "Subject" mailclient-url-delim "subject=" mailclient-encode-string-as-url "" "body=" set-buffer-multibyte "base64" base64-decode-region "quoted-printable" mail-unquote-printable-region "Unsupported Content-Transfer-Encoding: %s" decode-coding-region clipboard-kill-ring-save "*** E-Mail body has been placed on clipboard, please paste it here! ***" buffer-string] 21 (#$ . 1637)])
(provide 'mailclient)