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 : mailalias.elc

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

;;; 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 "`mailalias.el' was compiled for Emacs 19.29 or later"))

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

(byte-code "\300\301!\210\302\303\304\305\306\307%\207" [require sendmail custom-declare-group mailalias nil "Expanding mail aliases." :group mail] 6)
#@57 List of files from which to determine valid user names.
(custom-declare-variable 'mail-passwd-files ''("/etc/passwd") '(#$ . 765) :type '(repeat string) :group 'mailalias)
#@65 Shell command to retrieve text to add to `/etc/passwd', or nil.
(custom-declare-variable 'mail-passwd-command 'nil '(#$ . 943) :type '(choice string (const nil)) :group 'mailalias)
#@85 Alist of mail address directory entries.
When t this still needs to be initialized.
(defvar mail-directory-names t (#$ . 1130))
(byte-code "\301B\302\301!\204�\303\301\304\"\210\301\207" [current-load-list mail-address-field-regexp default-boundp set-default "^\$Resent-\$?\$To\\|From\\|CC\\|BCC\\|Reply-to\$:"] 3)
#@239 Alist of header field and expression to return alist for completion.
The expression may reference the variable `pattern'
which will hold the string being completed.
If not on matching header, `mail-complete-function' gets called instead.
(custom-declare-variable 'mail-complete-alist '(cons '("^\$Resent-\$?\$To\\|From\\|CC\\|BCC\\|Reply-to\$:" mail-get-names pattern) '(("Newsgroups:" if (boundp 'gnus-active-hashtb) gnus-active-hashtb (if (boundp news-group-article-assoc) news-group-article-assoc)) ("Followup-To:" mail-sentto-newsgroups))) '(#$ . 1459) :type 'alist :group 'mailalias)
(put 'mail-complete-alist 'risky-local-variable t)
#@276 Specifies how \[mail-complete] formats the full name when it completes.
If `nil', they contain just the return address like:
	king@grassland.com
If `parens', they look like:
	king@grassland.com (Elvis Parsley)
If `angles', they look like:
	Elvis Parsley <king@grassland.com>
(custom-declare-variable 'mail-complete-style ''angles '(#$ . 2110) :type '(choice (const angles) (const parens) (const nil)) :group 'mailalias)
#@72 Function to call when completing outside `mail-complete-alist'-header.
(custom-declare-variable 'mail-complete-function ''ispell-complete-word '(#$ . 2536) :type '(choice function (const nil)) :group 'mailalias)
#@99 Function to get completions from directory service or nil for none.
See `mail-directory-requery'.
(custom-declare-variable 'mail-directory-function 'nil '(#$ . 2754) :type '(choice function (const nil)) :group 'mailalias)
#@157 When non-nil call `mail-directory-function' for each completion.
In that case, one argument gets passed to the function, the partial string
entered so far.
(custom-declare-variable 'mail-directory-requery 'nil '(#$ . 2983) :type 'boolean :group 'mailalias)
#@670 Shell command to get the list of names from a mail directory.
This value is used when the value of `mail-directory-function'
is `mail-directory-process'.  The value should be a list
of the form (COMMAND ARG ...), where each of the list elements
is evaluated.  COMMAND should evaluate to a string.  When
`mail-directory-requery' is non-nil, during evaluation of these
elements, the variable `pattern' contains the partial input being
completed.  `pattern' is nil when `mail-directory-requery' is nil.

The value might look like this:

'(remote-shell-program "HOST" "-nl" "USER" "COMMAND")

or like this:

'(remote-shell-program "HOST" "-n" "COMMAND '^" pattern "'")
(custom-declare-variable 'mail-directory-process 'nil '(#$ . 3247) :type 'sexp :group 'mailalias)
(put 'mail-directory-process 'risky-local-variable t)
#@65 List of (HOST SERVICE) for stream connection to mail directory.
(custom-declare-variable 'mail-directory-stream 'nil '(#$ . 4074) :type 'sexp :group 'mailalias)
(put 'mail-directory-stream 'risky-local-variable t)
#@282 How to interpret the output of `mail-directory-function'.
Three types of values are possible:

- nil means to gather each line as one name
  - regexp means first $grouping$ in successive matches is name
  - function called at beginning of buffer that returns an alist of names
(custom-declare-variable 'mail-directory-parser 'nil '(#$ . 4295) :type '(choice (const nil) regexp function) :group 'mailalias)
(put 'mail-directory-parser 'risky-local-variable t)
#@246 Alist of local users, aliases and directory entries as available.
Elements have the form (MAILNAME) or (MAILNAME . FULLNAME).
If the value means t, it means the real value should be calculated
for the next use.  This is used in `mail-complete'.
(defvar mail-names t (#$ . 4765))
#@66 Alist of local users.
When t this still needs to be initialized.
(defvar mail-local-names t (#$ . 5050))
#@326 Expand all mail aliases in suitable header fields found between BEG and END.
If interactive, expand in header fields.
Suitable header fields are `To', `From', `CC' and `BCC', `Reply-to', and
their `Resent-' variants.

Optional second arg EXCLUDE may be a regular expression defining text to be
removed from alias expansions.
(defalias 'expand-mail-aliases #[(beg end &optional exclude) "\306 \210\307=\203�\310\311 \210\212	b\210\312 \n\310\223\310\307\313\f\n\307#)\203\314\310w\210`\310\211\211\211\211\313\315\n\316#\210\317 \210\320\310x\210\321 b\210`W\203`
\203p�
@AZV\203p�
A\211\204]�\313\322\307#\203\206�\323\224`Z\202\217�\324!\323\325\"\310 !\326!
\"\204\371�\326!\"A\211 \203\371�!ZB
Bb\210 c\210\"\203\350�\327\"\330Q\321 #b\210\313#\n\307#\203\344�\331\332!\210\202\324�\nb\210*``Z\\|\210b\210\202b\210u\210*\202O�\310\211\223\210.\202�\n\310\211\223*\207" [mail-aliases beg end case-fold-search mail-address-field-regexp disabled-aliases sendmail-sync-aliases t nil build-mail-aliases make-marker re-search-forward " 	" "^[^ 	]" move beginning-of-line " 	\n" point-marker "[ 	]*[\n,][ 	]*" 0 marker-position buffer-substring-no-properties assoc "\\b\$" "\$\\b" replace-match "" seplen epos pos end1 beg1 translation string exclude regexp] 7 (#$ . 5162) (save-excursion (list (goto-char (point-min)) (mail-header-end)))])
#@140 Read mail aliases from personal aliases file and set `mail-aliases'.
By default, this is the file specified by `mail-personal-alias-file'.
(defalias 'build-mail-aliases #[(&optional file) "\306\206�	!\307\211p\310\216\311\312!\211q\210\203\303�\313!\2031�\212\313!q\210\314ed\")c\210\202Q�\315!\203>�\316!\210\202Q�\315\317P\211!\203O�\316!\210\202Q�\307eb\210\320\321\307\322#\203k�`\323Z\307\210
`|\210)\202T�db\210h\324=\204w�\325 \210eb\210m\204\233�\307\210h\326U\203\225�\327\330!\210\327\331!\210\332c\210\202z�\331u\210\202z�eb\210\333\334\307\322#\203\275�\333\335!\210\314\336\224\336\225\"\337 \210\321c\210\337 \210\202�\307\211\204�eb\210\333\340\307\322#\203\371�\341\323!%\342\307w\210`&\307\211'\210\314&`\"\211'\343\232\204\365�\344%'\322#\210+\202\306�\n+\207" [file mail-personal-alias-file mail-aliases obuf buffer p expand-file-name nil ((byte-code "\203�\302!\210	q\207" [buffer obuf kill-buffer] 2)) generate-new-buffer " mailrc" get-file-buffer buffer-substring-no-properties file-exists-p insert-file-contents "~/" search-forward "# " t 2 10 newline 92 delete-char -1 1 32 re-search-forward "^source[ 	]+" "\\S-+" 0 beginning-of-line "^\$a\\|alias\\|g\\|group\$[ 	]+\$[^ 	\n]+\$" match-string " 	" "" define-mail-alias name start value] 5 (#$ . 6598)])
#@359 Define NAME as a mail alias that translates to DEFINITION.
This means that sending a message to NAME will actually send to DEFINITION.

Normally, the addresses in DEFINITION must be separated by commas.
If FROM-MAILRC-FILE is non-nil, then addresses in DEFINITION
can be separated by spaces; an address can contain spaces
if it is quoted with double-quotes.
(defalias 'define-mail-alias #[(name definition &optional from-mailrc-file) "\204�\306 \210	\307=\203�\310\311\n!\203�\312 \210\313\314\"\203%�\315\225\310O\313\316\"\2032�\315\211\224OG\211\315V\205<�\315\310\211\310\211 !
\203\203\247�
H\317=\203k�
T\313\320
#\205f�\321\225\202r�\313\322
#
O\205\210�\315\225\fU?\205\210�\315\225\313\323\"\203\376�\313\324\325\321\"\"\203\376�\326\323\327#\202\376�\313\330
#
\232\203\305�\325\321\"\315\225\fU?\205\301�\315\225\202\376�\313\331
#
O\205\342�\315\225\fU?\205\342�\315\225\313\323\"\203\376�\313\324\325\321\"\"\203\376�\326\323\327# B \202I�\332\333 \237\334#\335\"	\"\211!\203\"!\241\202-\"B	B\307\211#.\207" [from-mailrc-file mail-aliases mail-personal-alias-file definition L start sendmail-sync-aliases t nil file-exists-p build-mail-aliases string-match "\\`[ 	\n,]+" 0 "[ 	\n,]+\\'" 34 "[^\\]\$\\([\\][\\]\$*\\)\"[ 	,]*" 1 "[ 	,]+" "\$.+?\$[ 	]*\$<.*>\$" "[^- !#$%&'*+/0-9=?A-Za-z^_`{|}~]" match-string replace-regexp-in-string "\"\\1\" \\2" "[ 	,]*\$\"\\(?:[^\"]\\|[^\\]\\(?:[\\][\\]\$*\"\\)*\"[ 	]*<[-.!#$%&'*+/0-9=?A-Za-z^_`{|}~@]+>\\)[ 	,]*" "[ 	\n,]*,[ 	\n]*" mapconcat identity ", " assoc end this-entry result tem name mail-names] 6 (#$ . 7921) "sDefine mail alias: \nsDefine %s as mail alias for: "])
#@215 Perform completion on header field or word preceding point.
Completable headers are according to `mail-complete-alist'.  If none matches
current header, calls `mail-complete-function' and passes prefix arg if any.
(defalias 'mail-complete #[(arg) "\306 \210\307=\203�\310\311	!\203�\312 \210\n\313\314 W\203\340�\212\315\316\310\307#\203C�\203C�\317@@!\203<�@A\310\211\202'�A\211\204*�\f)\203\340�`\212\320\310x\210`)\211#
{$\310%\321\f!\322$\"\211%\307=\206\334�%\204|�\323\324$\"\210\325 \202\334�$%\230\204\311�#
|\210\326%&\"\211'A\203\302�(\327=\203\251�%\330'A\331\261\202\305�(\332=\203\274�'A\333%\334\261\202\305�%c\202\305�%c)\202\334�\323\335!\210\336\220\337\340$\"!\221\210\323\341\342\",\202\344�)\f!)\207" [mail-aliases mail-personal-alias-file mail-complete-alist list arg end sendmail-sync-aliases t nil file-exists-p build-mail-aliases 0 mail-header-end re-search-backward "^[^	]" looking-at "^ 	<,:" eval try-completion message "Can't find completion for \"%s\"" ding assoc parens " (" ")" angles " <" ">" "Making completion list..." "*Completions*" display-completion-list all-completions "Making completion list...%s" "done" beg pattern completion mail-names alist-elt mail-complete-style mail-complete-function] 6 (#$ . 9650) "P"])
#@199 Fetch local users and global mail addresses for completion.
Consults `/etc/passwd' and a directory service if one is set up via
`mail-directory-function'.
PATTERN is the string we want to complete.
(defalias 'mail-get-names #[(pattern) "\306=\203[�\212\307\310!q\210	\211\203\"�\311\n@\312\211\211\306%\210\nA\211\204�)\2031�\313\f\312\306\312
&\210eb\210\312m\204V�\314\315!\203O�\316\300\317\320!\321\322\317\323!!!B\"\210\324\323!\210\2026�\325p!\210)\306=\204i�\306=\203\276�\312\203\203�\306=\203\203�\326 \205\200�!! \204\214�\204\230�\306=\203\275�\327\330\":\205\245�\331\332\"\":\205\253�\206\270�:\205\270�#\333\")\207" [mail-local-names mail-passwd-files files mail-passwd-command shell-file-name shell-command-switch t generate-new-buffer " passwd" insert-file-contents nil call-process looking-at "\\+?\$[^:@\n+]+\$:[^:\n]*:\$[^\n:]*\$:" add-to-list match-string 1 user-full-name string-to-number 2 beginning-of-line kill-buffer mail-directory sort append mapcar #[(a) "@C\207" [a] 1] #[(a b) "@\227	@\227\231\207" [a b] 2] mail-names mail-directory-names directory mail-directory-function mail-directory-requery pattern mail-aliases] 8 (#$ . 10952)])
#@252 Use mail-directory facility to get user names matching PATTERN.
If PATTERN is nil, get all the defined user names.
This function calls `mail-directory-function' to query the directory,
then uses `mail-directory-parser' to parse the output it returns.
(defalias 'mail-directory #[(pattern) "\212\304\305!\210\306\307!q\210	!\210\310b\210\311;\203)�\312\311\313#\203L�\314\310!\nB\202�\2033� \202L�m\204L�`\311y\210n\203D�`S\202E�`{\nB\2023�\315p!\210\304\316!\210\n*\207" [mail-directory-function pattern directory mail-directory-parser message "Querying directory..." generate-new-buffer " *mail-directory*" 1 nil re-search-forward t match-string kill-buffer "Querying directory...done"] 4 (#$ . 12175)])
#@81 Run a shell command to output names in directory.
See `mail-directory-process'.
(defalias 'mail-directory-process #[(pattern) ":\205�\301\302\303@!\304\305\304\306\303A\"&\207" [mail-directory-process apply call-process eval nil t mapcar] 9 (#$ . 12896)])
#@76 Open a stream to retrieve names in directory.
See `mail-directory-stream'.
(defalias 'mail-directory-stream #[(pattern) "\302\303\304\305\306p	$\307\"\210?\205�\310\311!\210\202\f�)\207" [mailalias-done mail-directory-stream nil set-process-sentinel apply open-network-stream "mailalias" #[(x y) "\301\211\207" [mailalias-done t] 2] sit-for 0.1] 6 (#$ . 13163)])
#@65 Return all entries from Newsgroups: header as completion alist.
(defalias 'mail-sentto-newsgroups #[nil "\212\302\303\304\"\205&�`\305\306\305x\307W\203$�`	{CB\310\305x\210`\202\f�*)\207" [list point mail-position-on-field "newsgroups" t nil "^:, 	\n" 0 ", 	\n"] 3 (#$ . 13536)])
(provide 'mailalias)

${this.title}

Code Editor : mailalias.elc