Gecko [ 122.154.134.11 ]

Name	Size	Permission
binhex.elc	9.01 KB	-rw-r--r--
blessmail.el	2.51 KB	-rw-r--r--
emacsbug.elc	7.55 KB	-rw-r--r--
feedmail.elc	79.59 KB	-rw-r--r--
footnote.elc	21.09 KB	-rw-r--r--
hashcash.elc	10.81 KB	-rw-r--r--
mail-extr.elc	33.9 KB	-rw-r--r--
mail-hist.elc	13.74 KB	-rw-r--r--
mail-utils.elc	9.55 KB	-rw-r--r--
mailabbrev.elc	13.96 KB	-rw-r--r--
mailalias.elc	13.52 KB	-rw-r--r--
mailclient.elc	3.56 KB	-rw-r--r--
mailheader.elc	5.92 KB	-rw-r--r--
mailpost.elc	2.3 KB	-rw-r--r--
metamail.elc	4.44 KB	-rw-r--r--
mspools.elc	7.25 KB	-rw-r--r--
reporter.elc	9.65 KB	-rw-r--r--
rfc2368.elc	2.46 KB	-rw-r--r--
rfc822.elc	5.71 KB	-rw-r--r--
rmail-spam-filter.elc	13.24 KB	-rw-r--r--
rmail.elc	113.93 KB	-rw-r--r--
rmailedit.elc	8.83 KB	-rw-r--r--
rmailkwd.elc	5.12 KB	-rw-r--r--
rmailmm.elc	11.05 KB	-rw-r--r--
rmailmsc.elc	1.56 KB	-rw-r--r--
rmailout.elc	15.73 KB	-rw-r--r--
rmailsort.elc	6.33 KB	-rw-r--r--
rmailsum.elc	52.51 KB	-rw-r--r--
sendmail.elc	51.72 KB	-rw-r--r--
smtpmail.elc	21.58 KB	-rw-r--r--
supercite.elc	58.99 KB	-rw-r--r--
uce.elc	7.66 KB	-rw-r--r--
undigest.elc	7.88 KB	-rw-r--r--
unrmail.elc	4.69 KB	-rw-r--r--
uudecode.elc	6.19 KB	-rw-r--r--

Code Editor : mailclient.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:04:22 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/mail/mailclient.el
;;; in Emacs version 23.1.1
;;; with all optimizations.
;;; Function definitions are lazy-loaded.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`mailclient.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(byte-code "\300\301!\210\300\302!\207" [require sendmail mail-utils] 2)
#@186 If non-nil, put the e-mail body on the clipboard in mailclient.
This is useful on systems where only short mailto:// URLs are
supported.  Defaults to non-nil on Windows, nil otherwise.
(custom-declare-variable 'mailclient-place-body-on-clipboard-flag '(fboundp 'w32-set-clipboard-data) '(#$ . 732) :type 'boolean :group 'mail)
#@51 Convert STRING to a URL, using utf-8 as encoding.
(defalias 'mailclient-encode-string-as-url #[(string) #@308 ("\301\302\303\304\305\306\307\"!\"\"\207" . [string apply concat mapcar #[(char) "\301=\2030\302\207\303=\2030\304\207\305\306\307!\"\2030\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])(#$ . 1176) nil 8 (#$ . 1065)])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\301\207" [current-load-list mailclient-delim-static default-boundp set-default "?"] 3)
(defalias 'mailclient-url-delim #[nil #@59 ("\302	)\207" . [mailclient-delim-static current "&"])(#$ . 1698) nil 1])
(defalias 'mailclient-gather-addresses #[(str &optional drop-first-name) #@370 ("\304\305\306#\211\2050\212\306\307\310\311\312\313	!\314\"\"\210\n+)\207" . [str field result first mail-fetch-field nil t #1="" mapc #[(recp) "	\203
0\n\203
0\305\2020\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 ", *"])(#$ . 1855) nil 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 #@1143 ("\306\307!\210\310\211p\310\216\311\312!rq\210\313\216\314!\210\315 \210\316 \f\203)0\317e	\"\210eb\210\320\321	\322#\203A0`	W\203A0\323\324!\210\202,0\322\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{0\343 \344\345*!Q\202|0\346)\260	)\343 \347\345+\203\2230\350	Td\"\210\351\202\2270	Td{!QP!.\207" . [mailbuf delimline case-fold-search #1=#:temp-buffer mail-aliases mailclient-delim-static require mail-utils nil generate-new-buffer " *temp*" ((byte-code "\301!\203\n0\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 them here! ***" subj mailclient-place-body-on-clipboard-flag])(#$ . 2446) nil 13 (#$ . 2250)])
(provide 'mailclient)

${this.title}

Code Editor : mailclient.elc