Current File : //usr/local/share/emacs/27.2/lisp/mail/mailabbrev.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\302\303\304\305%\210\306\307\302\310\311\312\313\314\304\301\315\316\317\320&
\207" [custom-declare-group mail-abbrev nil "Expand mail aliases as abbrevs, in certain mail headers." :group abbrev-mode custom-declare-variable mail-abbrevs-mode "Non-nil if Mail-Abbrevs mode is enabled.\nSee the `mail-abbrevs-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `mail-abbrevs-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean :version "20.3"] 14)
#@539 Toggle abbrev expansion of mail aliases (Mail Abbrevs mode).
If called interactively, enable Mail-Abbrevs mode if ARG is positive,
and disable it if ARG is zero or negative. If called from Lisp, also
enable the mode if ARG is omitted or nil, and toggle it if ARG is
`toggle'; disable the mode otherwise.
Mail Abbrevs mode is a global minor mode. When enabled,
abbrev-like expansion is performed when editing certain mail
headers (those specified by `mail-abbrev-mode-regexp'), based on
the entries in your `mail-personal-alias-file'.
(defalias 'mail-abbrevs-mode #[(&optional arg) "\304 \305\302 \306=\203 \307\302!?\202 \310 !\311V\"\210\n\203# \312 \210\202& \313 \210\314\315\307\302!\2032 \316\2023 \317\"\210\320\321!\203^ \322\302!\210\304 \203K \304 \232\203^ \323\324\325\307\302!\203Y \326\202Z \327 #\210))\330 \210\307\302!\207" [#1=#:last-message arg mail-abbrevs-mode local current-message set-default toggle default-value prefix-numeric-value 0 mail-abbrevs-enable mail-abbrevs-disable run-hooks mail-abbrevs-mode-hook mail-abbrevs-mode-on-hook mail-abbrevs-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Mail-Abbrevs mode %sabled%s" "en" "dis" force-mode-line-update] 4 (#$ . 1050) (list (or current-prefix-arg 'toggle))])
(defvar mail-abbrevs-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\210\311\312\307\313\314\315\316\317&\207" [mail-abbrevs-mode-map mail-abbrevs-mode-hook variable-documentation put "Hook run after entering or leaving `mail-abbrevs-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode mail-abbrevs-mode nil boundp custom-declare-variable mail-abbrevs-only "Non-nil means only mail abbrevs should expand automatically.\nOther abbrevs expand only when you explicitly use `expand-abbrev'." :type boolean :group mail-abbrev] 8)
#@262 Word-abbrev table of mail address aliases.
If this is nil, it means the aliases have not yet been initialized and
should be read from the .mailrc file. (This is distinct from there being
no aliases, which is represented by this being a table with no entries.)
(defvar mail-abbrevs nil (#$ . 3010))
#@74 The modification time of your mail alias file when it was last examined.
(defvar mail-abbrev-modtime nil (#$ . 3315))
(defalias 'mail-abbrevs-sync-aliases #[nil "\205 \303!\205 \304!\3058\262\n \232?\205 \306 )\207" [mail-personal-alias-file modtime mail-abbrev-modtime file-exists-p file-attributes 5 build-mail-abbrevs] 3])
#@45 Initialize use of the `mailabbrev' package.
(defalias 'mail-abbrevs-setup #[nil "\303!\204 \304 !\203 \305 !\3068\262\307 \210\310 \210\311\312\313\314B\315\316$\210\317\320!\207" [mail-abbrevs mail-personal-alias-file mail-abbrev-modtime vectorp file-exists-p file-attributes 5 build-mail-abbrevs mail-abbrevs-sync-aliases advice--add-function :around #[nil "\300\301!\207" [advice--buffer-local abbrev-expand-function] 2] #[(gv--val) "\301\302\"\207" [gv--val advice--set-buffer-local abbrev-expand-function] 3] mail-abbrev-expand-wrapper nil abbrev-mode 1] 5 (#$ . 3658)])
(defalias 'mail-abbrevs-enable #[nil "\300\301\302\"\207" [add-hook mail-mode-hook mail-abbrevs-setup] 3])
#@43 Turn off use of the `mailabbrev' package.
(defalias 'mail-abbrevs-disable #[nil "\300\301\302\"\210\303\304\303!\203 \305\202 \306!\207" [remove-hook mail-mode-hook mail-abbrevs-setup abbrev-mode default-value 1 -1] 3 (#$ . 4354)])
#@142 Read mail aliases from personal mail alias file and set `mail-abbrevs'.
By default this is the file specified by `mail-personal-alias-file'.
(defalias 'build-mail-abbrevs #[(&optional file recursivep) "\306\206 !\307\n!\204 \310\311\302\310\"\210\312\313\"\210\314\315!r q\210\316\216\317 \210\320!\203< r\320!q\210ed{)c\210\202F \321!\203F \322!\210db\210h\323=\204R \324 \210eb\210\325\326\310\327#\203l `\330Z \310\210\f`|\210)\202U eb\210m\204\220 \310\210h\331U\203\212 \332\333!\210\332\334!\210\335c\210\202o \334u\210\202o eb\210\336\337\310\327#\203\326 \340 \210\341\342!\203\265 \310\210\343\344\334\224\334\225{!\327\"\210\202\223 \336\345!\210\334\224\334\225{ \346\310w\210` *\310\210\347
*`{\327#\210*\202\223 +\204\336 \350 \210\n\210+\312\351\"\207" [file mail-personal-alias-file mail-abbrevs #1=#:temp-buffer p name expand-file-name vectorp nil define-abbrev-table message "Parsing %s..." generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] buffer-disable-undo get-file-buffer file-exists-p insert-file-contents 10 newline search-forward "# " t 2 92 delete-char -1 1 32 re-search-forward "^\\(a\\(lias\\)?\\|g\\(roup\\)?\\|source\\)[ ]+" beginning-of-line looking-at "source[ ]+\\([^ \n]+\\)" build-mail-abbrevs substitute-in-file-name "[ ]+\\([^ \n]+\\)" " " define-mail-abbrev mail-resolve-all-aliases "Parsing %s... done" start recursivep] 4 (#$ . 4595)])
#@209 String inserted between addresses in multi-address mail aliases.
This has to contain a comma, so ", " is a reasonable value. You might
also want something like ",\n " to get each address on its own line.
(custom-declare-variable 'mail-alias-separator-string ", " '(#$ . 6047) :type 'string :group 'mail-abbrev)
(defvar mail-abbrev-aliases-need-to-be-resolved t)
#@340 Define NAME as a mail alias abbrev that translates to DEFINITION.
If DEFINITION contains multiple addresses, separate them with commas.
Optional argument FROM-MAILRC-FILE means that DEFINITION comes
from a mailrc file. In that case, addresses are separated with
spaces and addresses with embedded spaces are surrounded by
double-quotes.
(defalias 'define-mail-abbrev #[(name definition &optional from-mailrc-file) "\306!\204 \307 \210\310\311 \"\203 \312 \313\225\"\310\314 \"\203$ \312 \313\211\224# G\211\313V\205. \313\315\211 \315 \203\360 \203\223 H\316=\203X T\310\317 #\205T \320\225\202^ \310\321 #\312 \f#\f\205r \313\225\nU?\205r \313\225\310\322
\"\203\212 \310\323\324\320
\"\"\203\212 \325\322\326
#
B \2026 \310\327 # \232\203\265 \324\320 \" B \313\225\nU?\205\260 \313\225\211\2027 \310\330 #\312 \f#\f\205\317 \313\225\nU?\205\317 \313\225\310\322
\"\203\347 \310\323\324\320
\"\"\203\347 \325\322\326
#
B \2026 \331\332 \237 #-\333!\"\227\"# #\334\" \335\313\333&)\207" [mail-abbrevs definition L start end this-entry vectorp build-mail-abbrevs string-match "\\`[ \n,]+" substring 0 "[ \n,]+\\'" nil 34 "[^\\]\\(\\([\\][\\]\\)*\\)\"[ ,]*" 1 "[ ,]+" "\\(.+?\\)[ ]*\\(<.*>\\)" "[^- !#$%&'*+/0-9=?A-Za-z^_`{|}~]" match-string replace-regexp-in-string "\"\\1\" \\2" "[ ,]*\\(\"\\(?:[^\"]\\|[^\\]\\(?:[\\][\\]\\)*\"\\)*\"[ ]*<[-.!#$%&'*+/0-9=?A-Za-z^_`{|}~@]+>\\)[ ,]*" "[ \n,]*,[ \n]*" mapconcat identity t define-abbrev mail-abbrev-expand-hook result from-mailrc-file mail-alias-separator-string mail-abbrev-aliases-need-to-be-resolved name abbrevs-changed] 8 (#$ . 6420) "sDefine mail alias: \nsDefine %s as mail alias for: "])
#@59 Resolve all forward references in the mail aliases table.
(defalias 'mail-resolve-all-aliases #[nil "\205 \302 !\203 \303\304 \"\210\305\211\207" [mail-abbrev-aliases-need-to-be-resolved mail-abbrevs vectorp mapatoms mail-resolve-all-aliases-1 nil] 3 (#$ . 8132)])
(defalias 'mail-resolve-all-aliases-1 #[(sym &optional so-far) " >\203 \306\307\310\311 B\312#\"\210\313!\205 J\211\203L \314\315 \203? \316\317\n # \320\n
#\fB
\205: \315\225)\202\" \310\321\f\237#\nL\210*)J\207" [sym so-far definition start result end error "mail alias loop detected: %s" mapconcat symbol-name " <- " boundp nil 0 string-match "[ \n]*,[, \n]*" substring #[(x) "\304\305\227 \"\n B\"\206 \207" [x mail-abbrevs sym so-far mail-resolve-all-aliases-1 intern-soft] 4] mail-alias-separator-string] 7])
#@211 For use as the fourth arg to `define-abbrev'.
After expanding a mail-abbrev, if Auto Fill mode is on and we're past the
fill-column, break the line at the previous comma, and indent the next line
with a space.
(defalias 'mail-abbrev-expand-hook #[nil "\205M \303\212i\nY\205L \304\305\306 \307#\203# i\nSY\203# `\211\204
n\2030 \203 b\203 \303\310u\210\311c\210\312\313!\203C `\314\225|\210\315c\210\303\210\202 *\207" [auto-fill-function p fill-column nil search-backward "," point-at-bol move 1 "\n" looking-at "[ ]+" 0 " "] 4 (#$ . 8945)])
#@385 Regexp matching mail headers in which mail abbrevs should be expanded.
This string will be handed to `looking-at' with point at the beginning
of the current line; if it matches, abbrev mode will be turned on, otherwise
it will be turned off. (You don't need to worry about continuation lines.)
This should be set to match those mail fields in which you want abbreviations
turned on.
(custom-declare-variable 'mail-abbrev-mode-regexp "^\\(Resent-\\)?\\(To\\|From\\|Cc\\|Bcc\\|Reply-To\\):" '(#$ . 9507) :type 'regexp :group 'mail-abbrev)
#@266 The syntax-table used for abbrev-expansion purposes.
This is not actually made the current syntax table of the buffer, but
simply controls the set of characters which may be a part of the name
of a mail alias. The value is set up, buffer-local, when first needed.
(defvar mail-abbrev-syntax-table nil (#$ . 10052))
(defalias 'mail-abbrev-make-syntax-table #[nil "\304\300!\210?\205E \305\306 !\307 \310H\307 \311H\312\313 \"\210\314\315\316 #\210\314\317\316 #\210\314\320\316 #\210\314\321\316 #\210\314\310\316 #\210\314\322\316 #\210 \211+\207" [mail-abbrev-syntax-table w _ tab make-local-variable copy-syntax-table syntax-table standard-syntax-table 95 119 map-char-table #[(key value) "\204 \nH \232\205 \305 \n\f#\207" [value tab key _ w set-char-table-range] 4] modify-syntax-entry 64 "w" 37 33 46 45] 4])
#@50 Whether point is in a mail-address header field.
(defalias 'mail-abbrev-in-expansion-header-p #[nil "\302\212m\204\n \303u\210\304\305\306\307#\210\310 !)\205\" `\214~\210\212\311 \210`*W)\207" [case-fold-search mail-abbrev-mode-regexp t 1 re-search-backward "^[^ ]" nil move looking-at rfc822-goto-eoh] 4 (#$ . 10884)])
(defalias 'mail-abbrev-expand-wrapper #[(expand) "\203Z \306=\204Z \307 \204 \310 \203K \n\203 \311 \210\312 \210 \250\2038 \f\313=\2038 z\314=\206I \315>\206I \316 p \317\216\320!\210 +)\207\203V \f\321=\205Y \207 \207" [mail-abbrevs local-abbrev-table mail-abbrev-aliases-need-to-be-resolved last-command-event this-command #1=#:buffer t mail-abbrev-in-expansion-header-p window-minibuffer-p mail-resolve-all-aliases mail-abbrev-make-syntax-table self-insert-command 95 (64 46 37 33 95 45) syntax-table #[nil "rq\210\302 !)\207" [#1# #2=#:table set-syntax-table] 2] set-syntax-table expand-abbrev #2# mail-abbrev-syntax-table expand mail-abbrevs-only] 2])
#@60 Merge mail aliases from the given file with existing ones.
(defalias 'merge-mail-abbrevs #[(file) "\301!\207" [file build-mail-abbrevs] 2 (#$ . 11893) (list (let ((insert-default-directory t) (default-directory (expand-file-name "~/")) (def mail-personal-alias-file)) (read-file-name (format "Read additional aliases from file (default %s): " def) default-directory (expand-file-name def default-directory) t)))])
#@51 Rebuild all the mail aliases from the given file.
(defalias 'rebuild-mail-abbrevs #[(&optional file) "\204 \303\304!\207" [file buffer-file-name mail-abbrevs nil build-mail-abbrevs] 2 (#$ . 12314) (list (let ((insert-default-directory t) (default-directory (expand-file-name "~/")) (def mail-personal-alias-file)) (read-file-name (format "Read mail aliases from file (default %s): " def) default-directory (expand-file-name def default-directory) t)))])
#@37 Prompt for and insert a mail alias.
(defalias 'mail-abbrev-insert-alias #[(&optional alias) "\302!\204 \303 \210 \203 \304 \"J\206 \305c\210\306 \207" [mail-abbrevs alias vectorp mail-abbrevs-setup intern-soft "" mail-abbrev-expand-hook] 3 (#$ . 12780) (progn (if (not (vectorp mail-abbrevs)) (mail-abbrevs-setup)) (list (completing-read "Expand alias: " mail-abbrevs nil t)))])
#@46 Perform completion on alias preceding point.
(defalias 'mail-abbrev-complete-alias #[nil "\306 \210`\307 p\310\216\311\n!\210\212\312\313!\210`, \314 \f
#*\207" [#1=#:buffer #2=#:table mail-abbrev-syntax-table beg end mail-abbrevs mail-abbrev-make-syntax-table syntax-table #[nil "rq\210\302 !)\207" [#1# #2# set-syntax-table] 2] set-syntax-table backward-word-strictly 1 completion-in-region] 4 (#$ . 13170) nil])
#@275 Expand a mail abbrev before point, then move vertically down ARG lines.
This only expands an abbrev (if one is present) if called with
point at the end of a line, or on whitespace before the end of a line.
In terms of line motion, this behaves like `next-line', which see.
(defalias 'mail-abbrev-next-line #[(&optional arg) "\302\303!\203 \304 \210\305\211 !\207" [this-command arg looking-at "[ ]*\n" expand-abbrev next-line] 3 (#$ . 13596) "p"])
#@272 Expand a mail abbrev before point, then move to the end of the buffer.
This only expands an abbrev (if one is present) if called with
point at the end of a line, or on whitespace before the end of a line.
In other respects, this behaves like `end-of-buffer', which see.
(defalias 'mail-abbrev-end-of-buffer #[(&optional arg) "\302\303!\203 \304 \210\305\211 !\207" [this-command arg looking-at "[ ]*\n" expand-abbrev end-of-buffer] 3 (#$ . 14055) "P"])
(byte-code "\300\301\302\"\210\303\304!\207" [eval-after-load "sendmail" #[nil "\301\302\303#\210\301\304\305#\207" [mail-mode-map define-key "" mail-abbrev-insert-alias " " mail-abbrev-complete-alias] 4] provide mailabbrev] 3)
Mini Shell