ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/mail/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/mail/mailclient.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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\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 (#$ . 858)])
(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!r q\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 : ; <\327=\330\212e }\210eb\210\321<\310\323#\203k \331\332\333!!\202l \334;\335\336!\211:\203| :\227:\337\340\341\342\"\340\343!\340\344!\340\345!\340\346!\340\347!\340\350!\335\351\310\323# >~\210>\203\254 \352 \353\354>!Q\202\255 \355)\260 )\352 \356e |\210:\203\357 \357\310!\210:\360\230\203\320 \361ed\"\210\202\350 :\362\230\203\342 \363ed\310\211\323%\210\202\350 \364\365:\"\210\366ed;#\210\354?\203\376 \367ed\"\210\370\202 \371 !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 coding-system-from-name match-string 1 undecided mail-fetch-field "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 error "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 character-coding coding-system mime-charset-pattern mailclient-delim-static subj mailclient-place-body-on-clipboard-flag] 14 (#$ . 1824)])
(provide 'mailclient)
Kontol Shell Bypass