;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\207" [require mh-e goto-addr] 2)
#@22 Alist of MH aliases.
(defvar mh-alias-alist 'not-read (#$ . 152))
#@43 Alist of MH aliases that are blind lists.
(defvar mh-alias-blind-alist nil (#$ . 224))
#@67 Alist of aliases extracted from passwd file and their expansions.
(defvar mh-alias-passwd-alist nil (#$ . 317))
#@32 Time aliases were last loaded.
(defvar mh-alias-tstamp nil (#$ . 435))
(defvar mh-alias-read-address-map (byte-code "\301!\302
\303\304#\210\302
\305\306#\210\207" [minibuffer-local-completion-map copy-keymap define-key "," mh-alias-minibuffer-confirm-address " " self-insert-command] 5))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable mh-alias-system-aliases funcall function #[0 "\300\207" [("/etc/nmh/MailAliases" "/etc/mh/MailAliases" "/usr/lib/mh/MailAliases" "/usr/share/mailutils/mh/MailAliases" "/etc/passwd")] 1 ""] "A list of system files which are a source of aliases.\nIf these files are modified, they are automatically reread.  This list\nneed include only system aliases and the passwd file, since personal\nalias files listed in your \"Aliasfile:\" MH profile component are\nautomatically included.  You can update the alias list manually using\n\\[mh-alias-reload]." :type (repeat file) :group mh-alias] 8)
#@218 Check whether alias files have been modified.
Return t if any file listed in the Aliasfile MH profile component has
been modified since the timestamp.
If ARG is non-nil, set timestamp with the current time.

(fn ARG)
(defalias 'mh-alias-tstamp #[257 "\211\203\301 \211@
A@D\211\207\302C\303\304\305\306\"\307\303!\">@\207" [mh-alias-tstamp current-time nil t mapcar make-closure #[257 "\211\205\302
!\205\300\303!\304
8\262
\240\210\305	\300\242\"\207" [V0 mh-alias-tstamp file-exists-p file-attributes 5 time-less-p] 5 "\n\n(fn FILE)"] mh-alias-filenames] 7 (#$ . 1407)])
#@211 Return list of filenames that contain aliases.
The filenames come from the Aliasfile profile component and are
expanded.
If ARG is non-nil, filenames listed in `mh-alias-system-aliases' are
appended.

(fn ARG)
(defalias 'mh-alias-filenames #[257 "\204\302 \210\212\303\304!\211\205\305
\306\"\307\310\"\2033	;\203*\311
	C\"\266\203\2026\311
	\"\266\203\2026\211\266\203)\207" [mh-progs mh-alias-system-aliases mh-find-path mh-profile-component "Aliasfile" split-string "[ 	]+" mapcar #[257 "\205\211\205\301\302\"!\205\302
\"\207" [mh-user-path file-exists-p expand-file-name] 5 "\n\n(fn FILE)"] append] 7 (#$ . 1996)])
#@191 Return a usable address string from a GECOS-NAME and USERNAME.
Use only part of the GECOS-NAME up to the first comma if
COMMA-SEPARATOR is non-nil.

(fn GECOS-NAME USERNAME COMMA-SEPARATOR)
(defalias 'mh-alias-gecos-name #[771 "
\203\300\301\"\203\302\303\"\262
\304\305\"\203\"\306\305\307!#\262
\304\310\"\2030\306\310\311#\262
\211\311\230\2039\262
\300\312\"\204F\310
\310Q\262
\207" [string-match "^\\([^,]+\\)," match-string 1 string-search "&" mh-replace-regexp-in-string capitalize "\"" "" "^[ a-zA-Z0-9-]+$"] 8 (#$ . 2644)])
#@109 Return an alist of local users from /etc/passwd.
Exclude all aliases already in `mh-alias-alist' from "ali"
(defalias 'mh-alias-local-users #[0 "\305r\306!q\210\307 \210	\310=\203\311\312!\2032\313\312!\210\2022	;\2032	\314\261\210\315ed	\310\211%\210eb\210`dW\203\213\316\317!\203\205\320\321\322!!\323V\203\205\321\324!\321\325!\326
\n#\203`\327\310\"P\202a\230\203n\330\331Q\202s
\332\331R\333\f\310#\204\203

DB\262\266\324y\210\2022)\207" [mh-temp-buffer mh-alias-local-users mh-alias-passwd-gecos-comma-separator-flag mh-alias-local-users-prefix mh-alias-alist nil get-buffer-create erase-buffer t file-readable-p "/etc/passwd" insert-file-contents "\n" shell-command-on-region looking-at "\\([^:]*\\):[^:]*:\\([^:]*\\):[^:]*:\\([^:]*\\):" string-to-number match-string 2 200 1 3 mh-alias-gecos-name mh-alias-suggest-alias "<" ">" " <" mh-assoc-string] 10 (#$ . 3203)])
#@459 Reload MH aliases.

Since aliases are updated frequently, MH-E reloads aliases
automatically whenever an alias lookup occurs if an alias source has
changed.  Sources include files listed in your "Aliasfile:" profile
component and your password file if option `mh-alias-local-users' is
turned on.  However, you can reload your aliases manually by calling
this command directly.

This function runs `mh-alias-reloaded-hook' after the aliases have
been loaded.
(defalias 'mh-alias-reload #[0 "\212\304\305!\210\306\307!\210\310\307\311\312\313$\210\314\211`dW\203^\315\316!\204X\315\317!\203A\320\321\322!	\307#\204X\321\322!C	B\321\322!CB\202X\315\323!\203X\320\321\322!\307#\204X\321\322!CB\322y\210\202)\n\203\210\302 \211\314
\203\206
@\262
\320
@\307#\204\324C\"
A\262\202h\266\325\326!\210\304\327!\207" [mh-alias-alist mh-alias-blind-alist mh-alias-local-users mh-alias-passwd-alist message "Loading MH aliases..." mh-alias-tstamp t mh-exec-cmd-quiet "ali" "-nolist" "-nouser" nil looking-at "^[ 	]" "\\(.+\\): .+: .*$" mh-assoc-string match-string 1 "\\(.+\\): .*$" append run-hooks mh-alias-reloaded-hook "Loading MH aliases...done"] 7 (#$ . 4116) nil])
#@22 Load new MH aliases.
(defalias 'mh-alias-reload-maybe #[0 "\301=\204\f\302\303!\205\304 \207" [mh-alias-alist not-read mh-alias-tstamp nil mh-alias-reload] 2 (#$ . 5311)])
#@242 Return ali expansion for ALIAS.
ALIAS must be a string for a single alias.
If USER is t, then assume ALIAS is an address and call ali -user.
ali returns the string unchanged if not defined.  The same is
done here.

(fn ALIAS &optional USER)
(defalias 'mh-alias-ali #[513 "\3001+\212\211\203
\301\202\302\303\304\305\306%\266db\210\307\310!\203%\311\312!\210ed{)0\207\313\314\315!\"\210\207" [(error) "-user" "-nouser" mh-exec-cmd-quiet t "ali" "-nolist" looking-at "^$" delete-char -1 message "%s" error-message-string] 9 (#$ . 5494)])
#@99 Return expansion for ALIAS.
Blind aliases or users from /etc/passwd are not expanded.

(fn ALIAS)
(defalias 'mh-alias-expand #[257 "\302
\303#\203	\207\302
	\303#\203\302
	\303#A@\207\304
!\207" [mh-alias-blind-alist mh-alias-passwd-alist mh-assoc-string t mh-alias-ali] 5 (#$ . 6047)])
(byte-code "\300\301\302\303#\210\300\304\302\303#\207" [mh-require crm nil t multi-prompt] 4)
#@63 Read an address from the minibuffer with PROMPT.

(fn PROMPT)
(defalias 'mh-read-address #[257 "\306 \210\204\307
!\207	\310\311!\203$\310\311!\2057\311
\312\211$\2027\313\314!\203.\312\2027\315\316\312\211$\317\"
\204C\320\321\322#\202H\320\323\324#*\207" [mh-alias-alist mh-alias-read-address-map minibuffer-local-completion-map mh-alias-completion-ignore-case-flag completion-ignore-case mh-alias-expand-aliases-flag mh-alias-reload-maybe read-string fboundp completing-read-multiple nil featurep multi-prompt split-string completing-read "," mapconcat identity ", " mh-alias-expand ",\n "] 7 (#$ . 6439)])
#@70 Display the alias expansion if `mh-alias-flash-on-comma' is non-nil.
(defalias 'mh-alias-minibuffer-confirm-address #[0 "\2036\212\303\304 \305
`\"\306
\n\303#\203 \307\310\311!#\210\2022\312=\2032\313\314\"\2042\307\315\"\210)\266)\316\312!\207" [mh-alias-flash-on-comma case-fold-search mh-alias-alist t mh-beginning-of-word buffer-substring-no-properties mh-assoc-string message "%s -> %s" mh-alias-expand 1 string-search " " "No alias for %s" self-insert-command] 7 (#$ . 7073) nil])
#@33 Expand mail alias before point.
(defalias 'mh-alias-letter-expand-alias #[0 "\302 \210\303 \212\211b\210\303\304!)\211`Y\205)
\305\306!\203
\202`\204'	\202(\307E\207" [mh-alias-expand-aliases-flag mh-alias-alist mh-alias-reload-maybe mh-beginning-of-word -1 fboundp completion-at-point #[771 "\211\2040\301#\211\302=\204\211;\203.\301
#\302=\203.\303
;\203(
\202)!\206/\207\211\207\211\302=\203<\304#\207\211\305=\205G\306#\207" [mh-alias-alist try-completion t mh-alias-expand all-completions lambda mh-test-completion] 8 "\n\n(fn STRING PRED ACTION)"]] 5 (#$ . 7580)])
#@152 Suggest an alias for STRING.
Don't reverse the order of strings separated by a comma if
NO-COMMA-SWAP is non-nil.

(fn STRING &optional NO-COMMA-SWAP)
(defalias 'mh-alias-suggest-alias #[513 "\301\302\"\203\303\304\305\"\"\207\301\306\"\203
\227\207\301\307\"\203.\310\311\304\305\"\304\312\"#\227\207\301\313\"\203;\304\305\"\227\207\301\314\"\203J\303\304\305\"\"\207\301\315\"\203Y\303\304\305\"\"\207\301\316P\"\203j\303\304\305\"\"\207\301\317\"\203y\303\304\312\"\"\207\301\320\"\203\210\303\304\305\"\"\207\301\321\"\203\227\303\304\305\"\"\207\301\322\"\203\257\303\310\323\304\305\"\304\312\"#\"\207\211\204\313\301\324\"\203\313\303\310\323\304\312\"\304\305\"#\"\207\325!\207" [goto-address-mail-regexp string-match "^<\\(.*\\)>$" mh-alias-suggest-alias match-string 1 "^\\sw+$" "^\\(\\sw+\\)\\s-+\\(\\sw+\\)$" format "%s.%s" 2 "^\\([-a-zA-Z0-9._]+\\)@[-a-zA-Z0-9_]+\\.+[a-zA-Z0-9]+$" "^\"\\(.*\\)\".*" "^\\(.*\\) +<.*>$" " +(\\(.*\\))$" "^\\(Dr\\|Prof\\)\\.? +\\(.*\\)" "^\\(.*\\), +\\(Jr\\.?\\|II+\\)$" "^\\(.*\\) +\\(Jr\\.?\\|II+\\)$" "^\\(\\sw+\\) +[A-Z]\\.? +\\(.*\\)$" "%s %s" "^\\([^,]+\\), +\\(.*\\)$" mh-alias-canonicalize-suggestion] 9 (#$ . 8188)])
#@235 Process STRING to replace spaces by periods.
First all spaces and commas are replaced by periods.   Then every run
of consecutive periods are replaced with a single period.  Finally the
string is converted to lower case.

(fn STRING)
(defalias 'mh-alias-canonicalize-suggestion #[257 "\300\301\302\"r\211q\210\303\304\"\216
c\210eb\210\305\306\307\302#\203$\310\311\307\211#\210\202eb\210\305\312\307\302#\2038\310\311\307\211#\210\202'eb\210\305\313\307\302#\203L\310\311\307\211#\210\202;\314ed\"\210\315 *\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] re-search-forward " +" nil replace-match "." ",+" "\\.\\.+" downcase-region buffer-string] 6 (#$ . 9423)])
#@97 Return the name of writable file which defines ALIAS from list FILE-LIST.

(fn ALIAS FILE-LIST)
(defalias 'mh-alias-which-file-has-alias #[514 "r\301!q\210\211\302
\203:\303 \210\304@!\203\305@!\210\306\307\310!\311Q\302\312#\2033@\262
\302\262\202
A\262\202\262
)\207" [mh-temp-buffer get-buffer-create nil erase-buffer file-writable-p insert-file-contents re-search-forward "^" regexp-quote ":" t] 8 (#$ . 10171)])
#@290 Return filename which should be used to add ALIAS.
The value of the option `mh-alias-insert-file' is used if non-nil;
otherwise the value of the "Aliasfile:" profile component is used.
If the alias already exists, try to return the name of the file that
contains it.

(fn &optional ALIAS)
(defalias 'mh-alias-insert-file #[256 "\2039<\2039\301\234\204@\207\211\203\211\302!\230\203(\303\304\305\306\"\307\310$\207\311
\"\2068\303\304\305\306\"\307\310$\207\203D;\203D\207\312\307\305\313\314\310!\"\"\211\204U\315\316!\207\211\301\234\204^\211@\207
\203j
\302!\230\203q\303\304\307\310$\207\311\"\206~\303\304\307\310$\207" [mh-alias-insert-file 1 mh-alias-ali completing-read "Alias file: " mapcar list nil t mh-alias-which-file-has-alias delq #[257 "\300
!\205\211\301\230?\205\211\207" [file-writable-p "/etc/passwd"] 3 "\n\n(fn FILE)"] mh-alias-filenames error "No writable alias file;\nset `mh-alias-insert-file' or the \"Aliasfile:\" profile component"] 7 (#$ . 10611)])
#@60 Return the ADDRESS alias if defined, or nil.

(fn ADDRESS)
(defalias 'mh-alias-address-to-alias #[257 "\300
\301\"\211\230?\205\302\303\304\305\306\307\"\"\"@\207" [mh-alias-ali t delq nil mapcar #[257 "\300
\301\"\302\303\"?\205

\207" [mh-alias-ali nil string-match ".*,.*"] 5 "\n\n(fn ALIAS)"] split-string ", +"] 9 (#$ . 11629)])
#@57 Return t if sender's address has a corresponding alias.
(defalias 'mh-alias-for-from-p #[0 "\302 \210\212\303 \205!\304=\203	q\210\305 \211\205\306
!\205\307\262
)\207" [major-mode mh-show-buffer mh-alias-reload-maybe mh-folder-line-matches-show-buffer-p mh-folder-mode mh-extract-from-header-value mh-alias-address-to-alias t] 3 (#$ . 11975)])
#@465 Add ALIAS for ADDRESS in alias FILE without alias check or prompts.
Prompt for alias file if not provided and there is more than one
candidate.

If the alias exists already, you will have the choice of
inserting the new alias before or after the old alias.  In the
former case, this alias will be used when sending mail to this
alias.  In the latter case, the alias serves as an additional
folder name hint when filing messages.

(fn ALIAS ADDRESS &optional FILE)
(defalias 'mh-alias-add-alias-to-file #[770 "\211\204	\302!\262
r\303
!q\210eb\210\304P\305\306\307\310\311!\312Q\305\306#\203L\313\314\315\316\317!\"!\306\320\321\"\204G\320\322\"\203C\317y\210\202G\323\324!\210)\210\202\330	\325\267\202\247
\326\305O\262

\327\326O\262
\330\232\204\307\310\311!P\305\306#\204
\326\305O\262

\327\326O\262\202^\331 \210\307\310\311!\332\333\260\305\306#\203\330\317y\210\202\202\202\330db\210\202\330eb\210\202\330\307\310\311!\312Q\305\306#\203\330\313\314\315\316\317!\"!\306\320\321\"\204\326\320\322\"\203\322\317y\210\202\326\323\324!\210)\210)\266\331 \210\314\334#c\210\335 )\207" [case-fold-search mh-alias-insertion-location mh-alias-insert-file find-file-noselect ":" nil t re-search-forward "^" regexp-quote " *\\(.*\\)" read-string format "Alias %s exists; insert new address [b]efore or [a]fter: " match-string 1 string-match "^b" "^a" error "Unrecognized response" #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (sorted 82 bottom 155 top 161)) -1 0 "" beginning-of-line "[a-" "]" "%s: %s\n" save-buffer] 11 (#$ . 12335)])
#@405 Add ALIAS for ADDRESS in personal alias file.

This function prompts you for an alias and address.  If the alias
exists already, you will have the choice of inserting the new
alias before or after the old alias.  In the former case, this
alias will be used when sending mail to this alias.  In the latter
case, the alias serves as an additional folder name hint when
filing messages.

(fn ALIAS ADDRESS)
(defalias 'mh-alias-add-alias #[514 "\301 \210\302\303\304\211%\262\211\203\305\306\"\203\307\310\"\262
\311\312\"\262
\305\306\"\2031\307\310\"\262
\313
!\314!\211\230\203@\304\262
\232\203Q
\232\203Q\315\316\"\207
\203c\317\320\321\"!\205g\322\"\207\322\"\207" [mh-alias-alist mh-alias-reload-maybe completing-read "Alias: " nil string-match "^<\\(.*\\)>$" match-string 1 read-string "Address: " mh-alias-address-to-alias mh-alias-expand message "Already defined as %s" y-or-n-p format "Address has alias %s; set new one? " mh-alias-add-alias-to-file] 8 (#$ . 13956) "P\nP"])
#@50 Add alias for the sender of the current message.
(defalias 'mh-alias-grab-from-field #[0 "\303 \210\212\304 \203q\210\2025	\305=\203+\306\307!\203+\310\n!q\210\311\312\306\313!!!\210\2025	\305=\2035\314\315!\210\316 \206=\317\320!\321
!\322
\"\266\202)\207" [mh-show-buffer major-mode mh-temp-buffer mh-alias-reload-maybe mh-folder-line-matches-show-buffer-p mh-folder-mode mh-get-msg-num nil get-buffer-create insert-file-contents mh-msg-filename t user-error "Cursor not pointing to a message" mh-extract-from-header-value error "Message has no From: header" mh-alias-suggest-alias mh-alias-add-alias] 5 (#$ . 14974) nil])
#@42 Insert an alias for address under point.
(defalias 'mh-alias-add-address-under-point #[0 "\300 \211\203\301\302\"\207\303\304!\207" [goto-address-find-address-at-point mh-alias-add-alias nil message "No email address found under point"] 4 (#$ . 15615) nil])
#@84 Show all aliases or addresses that match a regular expression REGEXP.

(fn REGEXP)
(defalias 'mh-alias-apropos #[257 "\203\306 \210\307\211\310\212\311\312!\210\313\314\315\316\317$\210\311\320!\210\321\310\314#\203X\322 \210\323\324!\203J
\212\325\326\310\314#\2066`)\321\326\310\314#\203B\327u\210`{P\262\202`\310\210`{\330Q\262\202\311\331!\210\203s\311\332!\210\333\334\335\"	\307#\262
\311\336!\210)\307\230\203\212
\307\230\203\212\211\307\230\203\212\311\337!\207\nr\340!q\210p\341 \210
\310\211\314\211)\314*+\342 \210\343\344!\210+\211,\307\230\204\271\345!\210\307\230\204\307\345\346!\210\345!\210\307\230?\205\325\345\347!\210\345!\350!\210)\207" [mh-alias-local-users mh-alias-passwd-alist default-directory mh-aliases-buffer buffer-read-only buffer-file-name mh-alias-reload-maybe "" nil message "Reading MH aliases..." mh-exec-cmd-quiet t "ali" "-nolist" "-nouser" "Parsing MH aliases..." re-search-forward beginning-of-line looking-at "^[ 	]" re-search-backward "^[^ 	]" -1 "\n" "Parsing MH aliases...done" "Making passwd aliases..." mapconcat make-closure #[257 "\301\300@\"\204\301\300A@\"\205\302\303@A@#\207" [V0 string-match format "%s: %s\n"] 5 "\n\n(fn ELEM)"] "Making passwd aliases...done" "No matches" get-buffer-create kill-all-local-variables erase-buffer run-hooks temp-buffer-setup-hook princ "\nGroup Aliases:\n\n" "\nLocal User Aliases:\n\n" internal-temp-output-buffer-show buffer-undo-list inhibit-modification-hooks inhibit-read-only standard-output] 11 (#$ . 15882) "sAlias regexp: "])
#@199 Return t if the message under point in folder-mode is in the show buffer.
Return nil in any other circumstance (no message under point, no
show buffer, the message in the show buffer doesn't match.
(defalias 'mh-folder-line-matches-show-buffer-p #[0 "\302=\2057\303\304!\2057	\2057\305	!\2057\306\305	!!\2057\307\310\306\305	!!\"\2057\311\312\306\305	!!\"\313\303\304!!\230\207" [major-mode mh-show-buffer mh-folder-mode mh-get-msg-num nil get-buffer buffer-file-name string-match ".*/\\([0-9]+\\)$" match-string 1 int-to-string] 5 (#$ . 17461)])
(provide 'mh-alias)