WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/mail
Viewing File: /usr/share/emacs/24.3/lisp/mail/mailalias.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:58:38 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/mail/mailalias.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\302\303\304\305\306\307%\210\310\311\312\313\314DD\315\316\317\306\303&\210\310\320\312\313\321DD\322\316\323\306\303&\207" [require sendmail custom-declare-group mailalias nil "Expanding mail aliases." :group mail custom-declare-variable mail-passwd-files funcall function #[0 "\300\207" [("/etc/passwd")] 1 "\n\n(fn)"] "List of files from which to determine valid user names." :type (repeat string) mail-passwd-command #[0 "\300\207" [nil] 1 "\n\n(fn)"] "Shell command to retrieve text to add to `/etc/passwd', or nil." (choice string (const nil))] 8)
#@85 Alist of mail address directory entries.
When t this still needs to be initialized.
(defvar mail-directory-names t (#$ . 1139))
(defvar mail-address-field-regexp "^\\(Resent-\\)?\\(To\\|From\\|CC\\|BCC\\|Reply-to\\):")
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\312\301\313\314#\210\300\315\302\303\316DD\317\306\320\310\311&\210\300\321\302\303\322DD\323\306\324\310\311&\210\325\321\326\327#\210\300\330\302\303\331DD\332\306\333\310\311&\210\300\334\302\303\335DD\336\306\337\310\311&\210\300\340\302\303\341DD\342\306\343\310\311&\210\312\340\313\314#\210\300\344\302\303\345DD\346\306\343\310\311&\210\312\344\313\314#\210\300\347\302\303\350DD\351\306\352\310\311&\210\312\347\313\314#\207" [custom-declare-variable mail-complete-alist funcall function #[0 "\300\207" [(("^\\(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))] 1 "\n\n(fn)"] "Alist of header field and expression to return alist for completion.\nThe expression may reference the variable `pattern'\nwhich will hold the string being completed.\nIf not on matching header, `mail-complete-function' gets called instead." :type alist :group mailalias put risky-local-variable t mail-complete-style #[0 "\300\207" [angles] 1 "\n\n(fn)"] "Specifies how \\[mail-complete] formats the full name when it completes.\nIf `nil', they contain just the return address like:\n	king@grassland.com\nIf `parens', they look like:\n	king@grassland.com (Elvis Parsley)\nIf `angles', they look like:\n	Elvis Parsley <king@grassland.com>" (choice (const angles) (const parens) (const nil)) mail-complete-function #[0 "\300\207" [ispell-complete-word] 1 "\n\n(fn)"] "Function to call when completing outside `mail-complete-alist'-header." (choice function (const nil)) make-obsolete-variable completion-at-point-functions "24.1" mail-directory-function #[0 "\300\207" [nil] 1 "\n\n(fn)"] "Function to get completions from directory service or nil for none.\nSee `mail-directory-requery'." (choice function (const nil)) mail-directory-requery #[0 "\300\207" [nil] 1 "\n\n(fn)"] "When non-nil call `mail-directory-function' for each completion.\nIn that case, one argument gets passed to the function, the partial string\nentered so far." boolean mail-directory-process #[0 "\300\207" [nil] 1 "\n\n(fn)"] "Shell command to get the list of names from a mail directory.\nThis value is used when the value of `mail-directory-function'\nis `mail-directory-process'.  The value should be a list\nof the form (COMMAND ARG ...), where each of the list elements\nis evaluated.  COMMAND should evaluate to a string.  When\n`mail-directory-requery' is non-nil, during evaluation of these\nelements, the variable `pattern' contains the partial input being\ncompleted.  `pattern' is nil when `mail-directory-requery' is nil.\n\nThe value might look like this:\n\n  '(remote-shell-program \"HOST\" \"-nl\" \"USER\" \"COMMAND\")\n\nor like this:\n\n  '(remote-shell-program \"HOST\" \"-n\" \"COMMAND '^\" pattern \"'\")" sexp mail-directory-stream #[0 "\300\207" [nil] 1 "\n\n(fn)"] "List of (HOST SERVICE) for stream connection to mail directory." mail-directory-parser #[0 "\300\207" [nil] 1 "\n\n(fn)"] "How to interpret the output of `mail-directory-function'.\nThree types of values are possible:\n\n  - nil means to gather each line as one name\n  - regexp means first \\(grouping\\) in successive matches is name\n  - function called at beginning of buffer that returns an alist of names" (choice (const nil) regexp function)] 8)
#@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 (#$ . 4837))
#@66 Alist of local users.
When t this still needs to be initialized.
(defvar mail-local-names t (#$ . 5122))
#@358 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.

(fn BEG END &optional EXCLUDE)
(defalias 'expand-mail-aliases #[770 "\303 \210\304=\203\305\306 \210\212b\210\307 \305\223\262\305\304\310\n\304#)\203\357\311\305w\210`\305\211\211\211\211\310\312	\313#\210\314 \210\315\305x\210\316 \262b\210`W\203\346`\262\211\203c@AZV\203c\211A\262\202N\310\317\304#\203x\320\224\262`Z\262\202\200\321!\262\320\262\322\"\305\323\"\204\333\323\"A\211\262\203\333ZBB\262b\210\211c\210\203\313\324	\325Q\316 b\210\310\304#\203\307\326\327!\210\202\270\211b\266``Z\\|\210b\210\202\341b\210u\210\266\202E\305\211\223\266\202\305\211\223*\207" [mail-aliases case-fold-search mail-address-field-regexp 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 ""] 17 (#$ . 5234) (byte-code "\212eb\300 )D\207" [mail-header-end] 2)])
#@161 Read mail aliases from personal aliases file and set `mail-aliases'.
By default, this is the file specified by `mail-personal-alias-file'.

(fn &optional FILE)
(defalias 'build-mail-aliases #[256 "\302\206!\262\303\304\305!r\211q\210\306\307\310\311\312\313!\314\"\315\316%DC\216\203\322\317!\203=r\317!q\210\320ed\")c\210\202`\321!\203J\322!\210\202`\321\302\323\"\211\262!\203]\322!\210\202`\303\262eb\210\324\325\303\326#\203y`\315Z\303\210\211`|\266\202cdb\210h\327=\204\205\330 \210eb\210m\204\251\303\210h\331U\203\243\332\333!\210\332\334!\210\335c\210\202\210\334u\210\202\210eb\210\336\337\303\326#\203\314\336\340!\210\320\310\224\310\225\"\262\341 \210\325c\210\341 \210\202#\303\262\202#eb\210\336\342\303\326#\203\343\315!\344\303w\210`\303\211\210\320`\"\262\211\345\232\204\373\346\326#\210\266\202\325	*\207" [mail-personal-alias-file mail-aliases expand-file-name nil generate-new-buffer " *temp*" funcall make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 "\n\n(fn)" get-file-buffer buffer-substring-no-properties file-exists-p insert-file-contents "~/" search-forward "# " t 10 newline 92 delete-char -1 1 32 re-search-forward "^source[ 	]+" "\\S-+" beginning-of-line "^\\(a\\|alias\\|g\\|group\\)[ 	]+\\([^ 	\n]+\\)" match-string " 	" "" define-mail-alias] 9 (#$ . 6587) (byte-code "\301\302\303\"\304\305$C\207" [mail-personal-alias-file read-file-name format "Read mail alias file (default %s): " nil t] 5)])
#@408 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.

(fn NAME DEFINITION &optional FROM-MAILRC-FILE)
(defalias 'define-mail-alias #[770 "\211\204\303 \210\304=\203\305\306	!\203\307 \210\310\311\"\203&\312\225\305O\262\310\313\"\2034\312\211\224O\262G\211\312V\205=\312\305\211\211\211\203\n\203\245H\314=\203hT\262\310\315	#\205c\316\225\262\202q\310\317	#\262O\262\205\207\312\225U?\205\207\312\225\262\310\320\"\203\310\321\322\316\"\"\203\323\320\324#\262\202\310\325	#\232\203\310\322\316	\"\262\312\225U?\205\303\312\225\262\202\310\326	#\262O\262\205\347\312\225U?\205\347\312\225\262\310\320\"\203\310\321\322\316\"\"\203\323\320\324#\262B\262\202A\327\330\237\331#\262\332	\"\262\211\203$\211\241\202/BB\304\211\207" [mail-aliases mail-personal-alias-file mail-names 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] 14 (#$ . 8116) "sDefine mail alias: \nsDefine %s as mail alias for: "])
#@93 Compute completion data for mail aliases.
For use on `completion-at-point-functions'.

(fn)
(defalias 'mail-completion-at-point-function #[0 "\303 \210\304=\203\305\306	!\203\307 \210\n\305C\310\311 W\205i\212\312\313\305\304#\203F\203F\314@@!\203?\211@A\240\210\305\262\202'A\262\202'\211@)\205i`\212\315\305x\210`)\316\317\320\321\322\323!\324\"\325\326%!E\266\203\207" [mail-aliases mail-personal-alias-file mail-complete-alist sendmail-sync-aliases t nil file-exists-p build-mail-aliases 0 mail-header-end re-search-backward "^[^	 ]" looking-at "^ 	<,:" completion-table-dynamic make-byte-code 257 "\211\302\300@!)\207" vconcat vector [pattern eval] 3 "\n\n(fn PREFIX)"] 11 (#$ . 9819)])
#@225 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.

(fn ARG)
(defalias 'mail-complete #[257 "\303 \210\304=\203\305\306	!\203\307 \210\310 \211\203!\311\312\"\202$\n!\207" [mail-aliases mail-personal-alias-file mail-complete-function sendmail-sync-aliases t nil file-exists-p build-mail-aliases mail-completion-at-point-function apply completion-in-region] 5 (#$ . 10543) "P"])
(make-obsolete 'mail-complete 'mail-completion-at-point-function "24.1")
#@185 Build new completion table that expands aliases.
Completes like TABLE except that if the completion is a valid alias,
it expands it to its full `mail-complete-style' form.

(fn TABLE)
(defalias 'mail-completion-expand #[257 "\300\301\302\303\304!\305\"\306\307%\207" [make-byte-code 771 "\211\302=\203K\303\300#\300<\205!\211\205!\304;\203\202\300\"\211\204)\202J	\305=\2039\211@\306A\307R\202J	\310=\203I\211A\311@\312R\202J\207\313\300$\207" vconcat vector [mail-complete-style nil try-completion assoc parens " (" ")" angles " <" ">" complete-with-action] 9 "\n\n(fn STRING PRED ACTION)"] 7 (#$ . 11174)])
#@211 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'.
PREFIX is the string we want to complete.

(fn PREFIX)
(defalias 'mail-get-names #[257 "\306=\203Zr\307\310!q\210	\211\203!\311@\312\211\211\306%\210\211A\262\202
\210\n\2030\313\312\306\312\f\n&\210eb\210\312m\204U\314\315!\203N\316\300\317\320!\321\322\317\323!!!B\"\210\324\323!\210\2025\325p!\210)
\306=\204g\306=\203\264\312\203~\306=\203~\326\205{!\262\204\206\211\211\204\220
\306=\203\263\327\330 :\205\235\331\332 \":\205\243\206\257:\205\257#\333\"\210\334
!\207" [mail-local-names mail-passwd-files mail-passwd-command shell-file-name shell-command-switch mail-names 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 #[257 "\211@C\207" #1=[] 2 "\n\n(fn A)"] #[514 "@\227@\227\231\207" #1# 4 "\n\n(fn A B)"] mail-completion-expand mail-directory-names mail-directory-function mail-directory-requery mail-aliases] 8 (#$ . 11816)])
#@263 Use mail-directory facility to get user names matching PREFIX.
If PREFIX 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.

(fn PREFIX)
(defalias 'mail-directory #[257 "\302\303!\210r\304\305!q\210!\210eb\210\306	;\203)\307	\306\310#\203N\311\312!B\262\202	\2034	 \262\202Nm\204N`\306y\210n\203E`S\202F`{B\262\2024\313p!\210\302\314!\210\211\262)\207" [mail-directory-function mail-directory-parser message "Querying directory..." generate-new-buffer " *mail-directory*" nil re-search-forward t match-string 1 kill-buffer "Querying directory...done"] 6 (#$ . 13070)])
#@94 Run a shell command to output names in directory.
See `mail-directory-process'.

(fn PREFIX)
(defalias 'mail-directory-process #[257 ":\205\211\302\303\304@!\305\306\305\307\304A\"&)\207" [mail-directory-process pattern apply call-process eval nil t mapcar] 10 (#$ . 13788)])
#@89 Open a stream to retrieve names in directory.
See `mail-directory-stream'.

(fn PREFIX)
(defalias 'mail-directory-stream #[257 "\303\304\305\306\307p\n$\310\"\210	?\205\311\312!\210\202*\207" [pattern mailalias-done mail-directory-stream nil set-process-sentinel apply open-network-stream "mailalias" #[514 "\301\211\207" [mailalias-done t] 4 "\n\n(fn X Y)"] sit-for 0.1] 7 (#$ . 14077)])
#@71 Return all entries from Newsgroups: header as completion alist.

(fn)
(defalias 'mail-sentto-newsgroups #[0 "\212\300\301\302\"\205&`\303\304\303x\305W\203$`{CB\262\306\303x\210`\262\202\n\262)\207" [mail-position-on-field "newsgroups" t nil "^:, 	\n" 0 ", 	\n"] 4 (#$ . 14480)])
(provide 'mailalias)
F1l3 Manager
