Gecko [ goons4good.org ]

Name	Size	Permission	Date
binhex.elc	8.46 KB	-rw-r--r--	2023-06-07 04:03
blessmail.el	2.43 KB	-rw-r--r--	2013-01-01 15:37
emacsbug.elc	15.99 KB	-rw-r--r--	2023-06-07 04:03
feedmail.elc	96.01 KB	-rw-r--r--	2023-06-07 04:03
footnote.elc	21.67 KB	-rw-r--r--	2023-06-07 04:03
hashcash.elc	10.45 KB	-rw-r--r--	2023-06-07 04:04
mail-extr.elc	31.82 KB	-rw-r--r--	2023-06-07 04:04
mail-hist.elc	13.59 KB	-rw-r--r--	2023-06-07 04:04
mail-utils.elc	10.03 KB	-rw-r--r--	2023-06-07 04:04
mailabbrev.elc	13.86 KB	-rw-r--r--	2023-06-07 04:04
mailalias.elc	14.44 KB	-rw-r--r--	2023-06-07 04:04
mailclient.elc	3.31 KB	-rw-r--r--	2023-06-07 04:04
mailheader.elc	5.69 KB	-rw-r--r--	2023-06-07 04:04
metamail.elc	4.36 KB	-rw-r--r--	2023-06-07 04:04
mspools.elc	7.09 KB	-rw-r--r--	2023-06-07 04:04
reporter.elc	9.36 KB	-rw-r--r--	2023-06-07 04:04
rfc2368.elc	2.46 KB	-rw-r--r--	2023-06-07 04:04
rfc822.elc	5.73 KB	-rw-r--r--	2023-06-07 04:04
rmail-spam-filter.elc	12.79 KB	-rw-r--r--	2023-06-07 04:04
rmail.elc	127.36 KB	-rw-r--r--	2023-06-07 04:04
rmailedit.elc	9.4 KB	-rw-r--r--	2023-06-07 04:04
rmailkwd.elc	5.1 KB	-rw-r--r--	2023-06-07 04:04
rmailmm.elc	38.84 KB	-rw-r--r--	2023-06-07 04:04
rmailmsc.elc	1.5 KB	-rw-r--r--	2023-06-07 04:04
rmailout.elc	16.45 KB	-rw-r--r--	2023-06-07 04:04
rmailsort.elc	6.27 KB	-rw-r--r--	2023-06-07 04:04
rmailsum.elc	51.57 KB	-rw-r--r--	2023-06-07 04:04
sendmail.elc	54.33 KB	-rw-r--r--	2023-06-07 04:04
smtpmail.elc	22.25 KB	-rw-r--r--	2023-06-07 04:04
supercite.elc	56.84 KB	-rw-r--r--	2023-06-07 04:04
uce.elc	7.47 KB	-rw-r--r--	2023-06-07 04:04
undigest.elc	7.97 KB	-rw-r--r--	2023-06-07 04:04
unrmail.elc	4.63 KB	-rw-r--r--	2023-06-07 04:04
uudecode.elc	5.69 KB	-rw-r--r--	2023-06-07 04:04

Rename

;ELC���
;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun  7 08:04:05 2023
;;; 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 (#$ . 1002)])
(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 (#$ . 2000)])
(provide 'mailclient)