;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\315\310\311&\207" [custom-declare-variable mail-use-rfc822 funcall function #[0 "\300\207" [nil] 1 #1=""] "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 #[0 "\300\207" [nil] 1 #1#] "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)#@52 Return non-nil if FILE is a Babyl file. (fn FILE) (defalias 'mail-file-babyl-p #[257 "\301\302\303\301\"r\211q\210\304\305\"\216\306\307\310\311$\210\312\313!+\207" [epa-inhibit t generate-new-buffer " *temp*" make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents nil 0 100 looking-at "BABYL OPTIONS:"] 7 (#$ . 878)])#@124 Return a string containing all of STRING except the part from START (inclusive) to END (exclusive). (fn STRING START END) (defalias 'mail-string-delete #[771 "\211\204 \300O\207\300O\301OP\207" [0 nil] 7 (#$ . 1253)]) (make-obsolete 'mail-string-delete 'substring "29.1")#@295 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?....?=. (fn STRING &optional WRAPPER) (defalias 'mail-quote-printable #[513 "\300\301\302 \303\304\"\216\305\306#\204\305\307#\2034\300\224O\310\311\300\224H\"\226Q\262\300\225\262\202 \203D\312\313O\314R\202J\313OP)\207" [0 "" match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] string-match "[?=\"]" "[^-]" format "=%02x" "=?ISO-8859-1?Q?" nil "?="] 11 (#$ . 1539)])#@188 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?....?=. (fn BEG END &optional WRAPPER) (defalias 'mail-quote-printable-region #[770 "\300 \301\302\"\216\212b\210\214}\210\303\304\305\306#\203%\307\310\311h\"\226\306\211#\210\202\2054b\210\312c\210b\210\313c+\207" [match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] re-search-forward "[?=\"\200-\377]" nil t replace-match format "=%02x" "=?ISO-8859-1?Q?" "?="] 8 (#$ . 2222) "r\nP"])#@13 (fn CHAR) (defalias 'mail-unquote-printable-hexdigit #[257 "\211\226\262\211\300Y\203\211\300Z\301\\\207\211\302Z\207" [65 10 48] 3 (#$ . 2795)])#@190 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?....?=. (fn STRING &optional WRAPPER) (defalias 'mail-unquote-printable #[513 "\300 \301\302\"\216\203\303\304\"\203\305\306\"\262\307\310\303\311#\203U\307\224OB\262\306\224H\312U\204N\313\306\314\315\306\224H!_\315\306\224TH!\\\"B\262\307\225\262\202\316\317\310OB\237\"\266\202)\207" [match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] string-match "\\`=\\?ISO-8859-1\\?Q\\?\\([^?]*\\)\\?" match-string 1 0 nil "=\\(..\\|\n\\)" 10 make-string 16 mail-unquote-printable-hexdigit apply concat] 11 (#$ . 2952)])#@580 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. (fn BEG END &optional WRAPPER NOERROR UNIBYTE) (defalias 'mail-unquote-printable-region #[1282 "\300\301 \302\303\"\216\212\214}\210eb\210\203(\304\305!\203(\306\225|\210`\306\224|\210\307\310\300\311#\203\224\312\225b\210\306\224f\313U\203C\314\315!\210\202(\306\224f\316U\203R\314\317!\210\202(\320\224\203\203\321\322\320\224f!_\322\320\224Tf!\\\203v\314\315!\210\323\306\"\266\202(\314\324\306\"\311\211#\266\202(\203\215\311\262\202(\325\326!\210\202(+?\207" [nil match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 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"] 12 (#$ . 3676) "r\nP"]) (autoload 'rfc822-addresses "rfc822")#@187 Delete comments and quoted strings in an address list ADDRESS. Also delete leading/trailing whitespace and replace FOO with just BAR. Return a modified address list. (fn ADDRESS) (defalias 'mail-strip-quoted-names #[257 "\211\205\206\203\301\302\303!\304#\207\305\306\307\"\211\262\203'\310\311\305\211\312%\262\202\306\313\"\210\312\225\306\314\312\225#O\262\312\262\306\315#\211\262\203jG\312\225V\203^\312\225H\316U\203^\312\225\262\202;\310\311\305\211\317%\262\202;\306\320\"\211\262\203\203\310\321\322\"\305\323\317%\262\202j\262\207" [mail-use-rfc822 mapconcat identity rfc822-addresses ", " nil string-match "[ ]*(\\([^()\\]\\|\\\\.\\|\\\\\n\\)*)" replace-match "" 0 "\\`[ \n]*" "[ \n]*\\'" "\\([ ]?\\)\\([ ]*\"\\([^\"\\]\\|\\\\.\\|\\\\\n\\)*\"[ \n]*\\)" 64 2 "\\(,\\s-*\\|\\`\\)\\([^,]*<\\([^>,:]*\\)>[^,]*\\)\\(\\s-*,\\|\\'\\)" match-string 3 literal] 8 (#$ . 5107)])#@202 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. (fn DESTINATIONS) (defalias 'mail-dont-reply-to #[257 "\204 G\303V\205\304\305 !\306Q\303\211\307\203\211\310\311#\262\211\203Q\312\303\"\313\232\203Q\314\313T#\211\203?\211T\266\202\202\303OT\315OP\262\266\202\202O\316!\203y\310\"\203y\303O\205pT\315OP\262\266\203\202\205T\262\262\266\202)\266\310\317\"\211\203\232\303O\262\210\310\320\"\203\250\211\303\225\315O\207\207" [mail-dont-reply-to-names user-mail-address case-fold-search 0 "\\`" regexp-quote "\\'" t string-match "[,\"]" match-string "\"" string-search nil mail-strip-quoted-names "[ , \n]*\\'" "\\(\\s \\|,\\)*"] 9 (#$ . 6044)])#@517 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. (fn FIELD-NAME &optional LAST ALL LIST DELETE) (defalias 'mail-fetch-field #[1281 "\212eb\210\301\302\303!\304Q\204\203x\205\305\306\307\301#\203c`\310y\210\311\312!\204$\313u\210\314x\210\203C\315`\"B\262\202V\211\305\230\203N\305\202O\316\315`\"Q\262\203_\317 `|\210\210\202\203k\211\202s\211\305\230?\205s\211\262\202\255\306\307\301#\205\255\203\214\306\307\301#\204\204`\310y\210\311\312!\204\215\313u\210\314x\210\315`\"\203\253\317 `T|\210\262)\266\202)\207" [case-fold-search t "^" regexp-quote "[ ]*:[ ]*" "" re-search-forward nil 1 looking-at "[ ]" -1 " " buffer-substring-no-properties ", " line-beginning-position] 14 (#$ . 6893)]) (defalias 'mail-parse-comma-list #[0 "\300\211\301\300w\210m\204(`\262\302\300w\210\301\300x\210\303`\"B\262\302\300w\210\304\300w\210\202\207" [nil " \n" "^," buffer-substring-no-properties ", \n"] 5])#@15 (fn LABELS) (defalias 'mail-comma-list-regexp #[257 "\300\301\302\"\206 \303\262\301\304#O\262\301\305\"\211\262\203/\303O\306\303\225\300OQ\262\202\210\207" [nil string-match "[^ ]" 0 "[ ]*$" "[ ]*,[ ]*" "\\|"] 8 (#$ . 8277)])#@13 (fn TIME) (defalias 'mail-rfc822-time-zone #[257 "\300\301\"\207" [format-time-string "%z"] 4 (#$ . 8533)]) (make-obsolete 'mail-rfc822-time-zone 'format-time-string "29.1") (defalias 'mail-rfc822-date #[0 "\301\302\303!)\207" [system-time-locale "C" format-time-string "%-d %b %Y %T %z"] 2])#@104 Return an mbox "From " line for the current message. The buffer should be narrowed to just the header. (defalias 'mail-mbox-from #[0 "\300\301\302!\206\301\303!\206\301\304!\206\301\305!\206\306!\301\307!\310\311\"\312\313\203/\314O\2020\203G\3151B\316\317!!0\202D\210\320\206I\316 #\207" [mail-strip-quoted-names mail-fetch-field "from" "really-from" "sender" "return-path" "unknown" "date" string-match "[ ]*[,\n]" format "From %s %s\n" 0 (error) current-time-string date-to-time nil] 9 (#$ . 8836)]) (provide 'mail-utils)