%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/mail/
Upload File :
Create Path :
Current File : //usr/local/share/emacs/27.2/lisp/mail/mailclient.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\300\304!\210\305\306\307\310\311\312\313\314&\207" [require sendmail mail-utils browse-url mail-parse 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\304\305!\"\203\305!\207\306\307\"\207" [char 10 "%0D%0A" string-match "[-a-zA-Z0-9._~]" char-to-string format "%%%02x"] 4] append encode-coding-string utf-8] 8 (#$ . 880)])
(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\311\216\312\313!rq\210\314\216\315!\210\316 \210\317 \f\203)\320e	\"\210eb\210\321\322	\323#\203A`	W\203A\324\325!\210\202,\323\326\310\211\211@AB\327C\330\212e	}\210\331\332!\211D\203u\333\334\335D!@\"\203u\336\337!\204u\340\341!\210)eb\210\321B\310\323#\203\212\342\343\344!!\202\213\345A\331\346!\211@\203\233@\227@\347\350\351\352\"\350\353!\350\354!\350\355!\350\356!\350\357!\350\360!\331\361\310\323#E~\210E\203\313\362 \363\364E!Q\202\314\365)\260	)\362 \366e	|\210@\203\367\310!\210@\370\230\203\357\371ed\"\210\202@\372\230\203\373ed\310\211\323%\210\202\340\374@\"\210\375edA#\210\364F\203\376ed\"\210\377\202!\201G !R!.\f\207" [mailbuf delimline case-fold-search #1=#:temp-buffer mail-aliases browse-url-mailto-function require mail-utils nil #[nil "\300\207" [nil] 1] generate-new-buffer " *temp*" #[nil "\301!\205	\302!\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" "^content-type:[ 	]*text/plain;\\(?:[ 	\n]*\\(?:format\\|delsp\\)=\"?[-a-z0-9]+\"?;\\)*[ 	\n]*charset=\"?\\([^ 	\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" 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! ***" character-coding coding-system mime-charset-pattern mailclient-delim-static type subj mailclient-place-body-on-clipboard-flag buffer-string] 14 (#$ . 1846)])
(provide 'mailclient)

Zerion Mini Shell 1.0