Current File : //usr/local/share/emacs/27.2/lisp/mail/mail-utils.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\306\307&\210\300\310\302\311\304\312\306\307&\207" [custom-declare-variable mail-use-rfc822 nil "If non-nil, use a full, hairy RFC 822 (or later) parser on mail addresses.\nOtherwise, (the default) use a smaller, somewhat faster, and\noften correct parser." :type boolean :group mail mail-dont-reply-to-names "Regexp specifying addresses to prune from a reply message.\nIf this is nil, it is set the first time you compose a reply, to\na value which excludes your own email address.\n\nMatching addresses are excluded from the Cc field in replies, and\nalso the To field, unless this would leave an empty To field." (choice regexp (const :tag "Your Name" nil))] 8)
#@41 Return non-nil if FILE is a Babyl file.
(defalias 'mail-file-babyl-p #[(file) "\303\304\305!r q\210\306\216\307\n\310\311\312$\210\313\314!,\207" [epa-inhibit #1=#:temp-buffer file t generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] insert-file-contents nil 0 100 looking-at "BABYL OPTIONS:"] 5 (#$ . 1112)])
#@101 Return a string containing all of STRING except the part
from START (inclusive) to END (exclusive).
(defalias 'mail-string-delete #[(string start end) "\204\n \303 \304\n#\207\303 \304\n#\303 \305#P\207" [end string start substring 0 nil] 5 (#$ . 1474)])
#@264 Convert a string to the "quoted printable" Q encoding if necessary.
If the string contains only ASCII characters and no troublesome ones,
we return it unconverted.
If the optional argument WRAPPER is non-nil,
we add the wrapper characters =?ISO-8859-1?Q?....?=.
(defalias 'mail-quote-printable #[(string &optional wrapper) "\305\306\307 \310\216\311\312 #\204 \311\313 #\2030 \314 \305\224#\315\316 \305\224H\"\226Q\305\225\202 \f\203? \317\314 \"\320R\202E \314 \"P,\207" [result i save-match-data-internal string wrapper 0 "" match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] string-match "[?=\"]" "[^ -]" substring format "=%02x" "=?ISO-8859-1?Q?" "?="] 6 (#$ . 1738)])
#@156 Convert the region to the "quoted printable" Q encoding.
If the optional argument WRAPPER is non-nil,
we add the wrapper characters =?ISO-8859-1?Q?....?=.
(defalias 'mail-quote-printable-region #[(beg end &optional wrapper) "\304 \305\216\212 b\210\214 \n}\210\306\307\310\311#\203# \312\313\314h\"\226\311\211#\210\202 \2052 b\210\315c\210\nb\210\316c,\207" [save-match-data-internal beg end wrapper match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] re-search-forward "[?=\"\200-\377]" nil t replace-match format "=%02x" "=?ISO-8859-1?Q?" "?="] 4 (#$ . 2475) "r\nP"])
(defalias 'mail-unquote-printable-hexdigit #[(char) "\226\211\301Y\203 \301Z\302\\\207\303Z\207" [char 65 10 48] 3])
#@159 Undo the "quoted printable" encoding.
If the optional argument WRAPPER is non-nil,
we expect to find and remove the wrapper characters =?ISO-8859-1?Q?....?=.
(defalias 'mail-unquote-printable #[(string &optional wrapper) "\305 \306\216 \203 \307\310\n\"\203 \311\312\n\"\313\314 \307\315\n\f#\203O \316\n\f\313\224# B\n\312\224H\317U\204I \320\312\321\322\n\312\224H!_\322\n\312\224TH!\\\" B\313\225\202 \323\324\316\n\f\" B\237\",\207" [save-match-data-internal wrapper string strings i match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] string-match "\\`=\\?ISO-8859-1\\?Q\\?\\([^?]*\\)\\?" match-string 1 0 nil "=\\(..\\|\n\\)" substring 10 make-string 16 mail-unquote-printable-hexdigit apply concat] 6 (#$ . 3217)])
#@532 Undo the "quoted printable" encoding in buffer from BEG to END.
If the optional argument WRAPPER is non-nil,
we expect to find and remove the wrapper characters =?ISO-8859-1?Q?....?=.
On encountering malformed quoted-printable text, exits with an error,
unless NOERROR is non-nil, in which case it continues, and returns nil
when finished. Returns non-nil on successful completion.
If UNIBYTE is non-nil, insert converted characters as unibyte.
That is useful if you are going to character code decoding afterward,
as Rmail does.
(defalias 'mail-unquote-printable-region #[(beg end &optional wrapper noerror unibyte) "\306\307 \310\216\212\214\n }\210eb\210\f\203$ \311\312!\203$ \313\225 |\210`\313\224|\210\314\315\306\316#\203\221 \317\225b\210\313\224f\320U\203? \321\322!\210\202$ \313\224f\323U\203N \321\324!\210\202$ \325\224\203\200 \326\327\325\224f!_\327\325\224Tf!\\ \203s \321\322!\210\330
\313\"\210\202| \321\331\313
\"\316\211#\210)\202$ \203\212 \316\202$ \332\333!\210\202$ -?\207" [failed save-match-data-internal beg end wrapper char nil match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] looking-at "\\`=\\?ISO-8859-1\\?Q\\?\\([^?]*\\)\\?" 1 re-search-forward "=\\(\\([0-9A-F][0-9A-F]\\)\\|[=\n]\\|..\\)" t 0 10 replace-match "" 61 "=" 2 16 mail-unquote-printable-hexdigit insert-byte make-string error "Malformed MIME quoted-printable message" unibyte noerror] 4 (#$ . 3993) "r\nP"])
(autoload 'rfc822-addresses "rfc822")
#@173 Delete comments and quoted strings in an address list ADDRESS.
Also delete leading/trailing whitespace and replace FOO <BAR> with just BAR.
Return a modified address list.
(defalias 'mail-strip-quoted-names #[(address) "\205~ \203 \303\304\305!\306#\207\307\310\311\"\211\203& \312\313\307\211\314%\202 \310\315\"\210\316\314\225\310\317\314\225##\314\310\320\n#\211\203e G\314\225V\203Z \314\225H\321U\203Z \314\225\2029 \312\313\307\211\322%\2029 \310\323\"\211\203| \312\324\325\"\307\326\322%\202e )\207" [address mail-use-rfc822 pos mapconcat identity rfc822-addresses ", " nil string-match "[ ]*(\\([^()\\]\\|\\\\.\\|\\\\\n\\)*)" replace-match "" 0 "\\`[ \n]*" substring "[ \n]*\\'" "\\([ ]?\\)\\([ ]*\"\\([^\"\\]\\|\\\\.\\|\\\\\n\\)*\"[ \n]*\\)" 64 2 "\\(,\\s-*\\|\\`\\)\\([^,]*<\\([^>,:]*\\)>[^,]*\\)\\(\\s-*,\\|\\'\\)" match-string 3 literal] 7 (#$ . 5492)])
#@183 Prune addresses from DESTINATIONS, a list of recipient addresses.
Remove all addresses matching `mail-dont-reply-to-names' from the
comma-separated list, and return the pruned list.
(defalias 'mail-dont-reply-to #[(destinations) "\2040 \306\301!\205 \nG\307V\205 \310\311\n!\312Q\211 \203) \203) \f\313 Q\202. \f\206. *\307\211\314 \203\315 \315\316#\211\203\203 \317\307\"\320\232\203\203 \315\320T#\211 \203j T\202 \321\307#\321T\"P)\2028 \321# \322! \203\274 \315\"\203\274 \321\307#\205\262 \321T\"P\202\311 \205\304 T\211*\2028 +\315\323\"\211 \203\342 \321\307#)\315\324\"\203\362 \321\307\225\"\207\207" [mail-dont-reply-to-names rmail-default-dont-reply-to-names user-mail-address b a case-fold-search boundp 0 "\\`" regexp-quote "\\'" "\\|" t string-match "[,\"]" match-string "\"" substring mail-strip-quoted-names "[ , \n]*\\'" "\\(\\s \\|,\\)*" cur-pos start-pos destinations next-pos address naked-address pos] 5 (#$ . 6401)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias rmail-dont-reply-to mail-dont-reply-to nil make-obsolete "24.1"] 4)
#@469 Return the value of the header field whose type is FIELD-NAME.
If second arg LAST is non-nil, use the last field of type FIELD-NAME.
If third arg ALL is non-nil, concatenate all such fields with commas between.
If 4th arg LIST is non-nil, return a list of all such fields.
If 5th arg DELETE is non-nil, delete all header lines that are
included in the result.
The buffer should be narrowed to just the header, else false
matches may be returned from the message body.
(defalias 'mail-fetch-field #[(field-name &optional last all list delete) "\212eb\210\306\307\310!\311Q \204 \f\203{ \205 \312 \313 \314\306#\203g ` \315y\210\316\317!\204& \320u\210\321x\210\f\203F \322`\"
B\202Y
\211\312\230\203Q \312\202R \323\322`\"Q\203c \324 `|\210)\202 \f\203o
\202w
\312\230?\205w
)\202\265 \313 \314\306#\205\265 \203\220 \313 \314\306#\204\210 ` \315y\210\316\317!\204\223 \320u\210\321x\210\322`\"\203\264 \324 `T|\210)+\207" [field-name name case-fold-search all list value t "^" regexp-quote "[ ]*:[ ]*" "" re-search-forward nil 1 looking-at "[ ]" -1 " " buffer-substring-no-properties ", " point-at-bol opoint delete last] 5 (#$ . 7581)])
(defalias 'mail-parse-comma-list #[nil "\302\211\303\302w\210m\204( `\304\302w\210\303\302x\210\305`\" B\304\302w\210\306\302w\210\202 *\207" [beg accumulated nil " \n" "^," buffer-substring-no-properties ", \n"] 3])
(defalias 'mail-comma-list-regexp #[(labels) "\302\303\304 \"\206\n \305\306 \303\307 ##\303\310 \"\211\203. \306 \305#\311\306 \305\225\"Q\202 ) \207" [pos labels nil string-match "[^ ]" 0 substring "[ ]*$" "[ ]*,[ ]*" "\\|"] 7])
(defalias 'mail-rfc822-time-zone #[(time) "\303!@\206 \304\305 !\306\245\307\310 \304W\203 \311\202 \312\n\306\245\n\306\246$*\207" [time sec absmin current-time-zone 0 abs 60 format "%c%02d%02d" 45 43] 6])
(defalias 'mail-rfc822-date #[nil "\302 \303!\304\305 \"\210\306 \307\224\307\225#\310\306 \311\224\311\225#\310\306 \312\224\312\225#\310\306 \313\224\313\225#\310\314!\260 *\207" [time s current-time current-time-string string-match "[^ ]+ +\\([^ ]+\\) +\\([^ ]+\\) \\([^ ]+\\) \\([^ ]+\\)" substring 2 " " 1 4 3 mail-rfc822-time-zone] 10])
#@104 Return an mbox "From " line for the current message.
The buffer should be narrowed to just the header.
(defalias 'mail-mbox-from #[nil "\303\304\305!\206 \304\306!\206 \304\307!\206 \304\310!\206 \311!\304\312!\313\314\"\315\316\n\2033 \317\320\n#\2024 \203J \3211E \322\323 !!0\202G \210\324\206L \322 #+\207" [from date end mail-strip-quoted-names mail-fetch-field "from" "really-from" "sender" "return-path" "unknown" "date" string-match "[ ]*[,\n]" format "From %s %s\n" substring 0 (error) current-time-string date-to-time nil] 6 (#$ . 9791)])
(provide 'mail-utils)
Mini Shell