Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
binhex.elc	8.56 KB	-rw-r--r--
blessmail.el	2.5 KB	-rw-r--r--
emacsbug.elc	15 KB	-rw-r--r--
feedmail.elc	98.21 KB	-rw-r--r--
flow-fill.elc	3.15 KB	-rw-r--r--
footnote.elc	26.54 KB	-rw-r--r--
hashcash.elc	10.83 KB	-rw-r--r--
ietf-drums.elc	8.65 KB	-rw-r--r--
mail-extr.elc	32.53 KB	-rw-r--r--
mail-hist.elc	13.44 KB	-rw-r--r--
mail-parse.elc	2.3 KB	-rw-r--r--
mail-prsvr.elc	1.08 KB	-rw-r--r--
mail-utils.elc	10.13 KB	-rw-r--r--
mailabbrev.elc	14.4 KB	-rw-r--r--
mailalias.elc	14.49 KB	-rw-r--r--
mailclient.elc	4.13 KB	-rw-r--r--
mailheader.elc	5.54 KB	-rw-r--r--
metamail.elc	4.21 KB	-rw-r--r--
mspools.elc	8.74 KB	-rw-r--r--
qp.elc	4.14 KB	-rw-r--r--
reporter.elc	9 KB	-rw-r--r--
rfc2045.elc	826 B	-rw-r--r--
rfc2047.elc	24.87 KB	-rw-r--r--
rfc2231.elc	6.35 KB	-rw-r--r--
rfc2368.elc	2.32 KB	-rw-r--r--
rfc822.elc	5.45 KB	-rw-r--r--
rmail-loaddefs.el	7.79 KB	-rw-r--r--
rmail-spam-filter.elc	12.71 KB	-rw-r--r--
rmail.elc	124.13 KB	-rw-r--r--
rmailedit.elc	9.82 KB	-rw-r--r--
rmailkwd.elc	4.98 KB	-rw-r--r--
rmailmm.elc	41.24 KB	-rw-r--r--
rmailmsc.elc	1.34 KB	-rw-r--r--
rmailout.elc	17.84 KB	-rw-r--r--
rmailsort.elc	6.17 KB	-rw-r--r--
rmailsum.elc	54.29 KB	-rw-r--r--
sendmail.elc	53.92 KB	-rw-r--r--
smtpmail.elc	25.46 KB	-rw-r--r--
supercite.elc	57.29 KB	-rw-r--r--
uce.elc	7.54 KB	-rw-r--r--
undigest.elc	7.81 KB	-rw-r--r--
unrmail.elc	5.25 KB	-rw-r--r--
uudecode.elc	5.26 KB	-rw-r--r--
yenc.elc	3.48 KB	-rw-r--r--

Code Editor : mailclient.elc

;ELC���
;;; Compiled
;;; in Emacs version 27.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\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)

${this.title}

Code Editor : mailclient.elc