;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:11:43 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/mail/mailclient.el
;;; in Emacs version 24.3.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!\210\304\305\306\307\310\311\312\313&\207" [require sendmail mail-utils browse-url custom-declare-variable mailclient-place-body-on-clipboard-flag (fboundp 'w32-set-clipboard-data) "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)
#@51 Convert STRING to a URL, using utf-8 as encoding.
(defalias 'mailclient-encode-string-as-url #[(string) "\301\302\303\304\305\306\307\"!\"\"\207" [string apply concat mapcar #[(char) "\301=\203\302\207\303=\203\304\207\305\306\307!\"\203\307!\207\310\311\"\207" [char 32 "%20" 10 "%0D%0A" string-match "[-a-zA-Z0-9_:/.@]" char-to-string format "%%%02x"] 4] append encode-coding-string utf-8] 8 (#$ . 1006)])
(defvar mailclient-delim-static "?")
(defalias 'mailclient-url-delim #[nil "\302	)\207" [mailclient-delim-static current "&"] 1])
(defalias 'mailclient-gather-addresses #[(str &optional drop-first-name) "\304\305\306#\211\205\212\306\307\310\311\312\313	!\314\"\"\210\n+)\207" [str field result first mail-fetch-field nil t #1="" mapc #[(recp) "	\203
\n\203
\305\202\306 \307Q\310\f!Q\311\211\207" [result drop-first-name first str recp #1# mailclient-url-delim "=" mailclient-encode-string-as-url nil] 4] split-string mail-strip-quoted-names ", *"] 6])
#@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 #[nil "\306\307!\210\310\211p\310\216\311\312!rq\210\313\216\314!\210\315 \210\316 \f\203)\317e	\"\210eb\210\320\321	\322#\203A`	W\203A\323\324!\210\202,\322\310\325*\326\212e	}\210\327\330\331\332\"\330\333!\330\334!\330\335!\330\336!\330\337!\330\340!\341\342\310\322#+~\210+\203~\343 \344\345+!Q\202\346)\260	)\343 \347\345,\203\226\350	Td\"\210\351\202\232	Td{!QP!.	\207" [mailbuf delimline case-fold-search #1=#:temp-buffer mail-aliases browse-url-mailto-function require mail-utils nil generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-buffer-substring mail-sendmail-undelimit-header point-marker expand-mail-aliases re-search-forward "\n\n\n*" t replace-match "\n" "?" browse-url "mailto:" mailclient-gather-addresses "To" drop-first-name "cc" "bcc" "Resent-To" "Resent-cc" "Resent-bcc" "Reply-To" mail-fetch-field "Subject" mailclient-url-delim "subject=" mailclient-encode-string-as-url "" "body=" clipboard-kill-ring-save "*** E-Mail body has been placed on clipboard, please paste it here! ***" mailclient-delim-static subj mailclient-place-body-on-clipboard-flag] 13 (#$ . 2004)])
(provide 'mailclient)