ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/mail/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/mail/mail-utils.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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\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 RFC822 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 (#$ . 1102)])
#@102 Returns a string containing all of STRING except the part
from START (inclusive) to END (exclusive).
(defalias 'mail-string-delete #[(string start end) "\204 \303\nO\207 \303\nO \304OP\207" [end string start 0 nil] 4 (#$ . 1464)])
#@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 #\203/ \305\224O\314\315 \305\224H\"\226Q\305\225\202 \f\203> \316 \317O\320R\202D \317OP,\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 "[?=\"]" "[^ -]" format "=%02x" "=?ISO-8859-1?Q?" nil "?="] 6 (#$ . 1706)])
#@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 (#$ . 2431) "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#\203N \n\f\313\224O B\n\312\224H\316U\204H \317\312\320\n\312\224H!\321_\320\n\312\224TH!\\\" B\313\225\202 \322\323\n\f\314O 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\\)" 10 make-string mail-unquote-printable-hexdigit 16 apply concat] 6 (#$ . 3173)])
#@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\325\224f!\327_\326\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 mail-unquote-printable-hexdigit 16 insert-byte make-string error "Malformed MIME quoted-printable message" unibyte noerror] 4 (#$ . 3934) "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\314\225\310\316\314\225#O\314\310\317\n#\211\203d G\314\225V\203Y \314\225H\320U\203Y \314\225\2028 \312\313\307\211\321%\2028 \310\322\"\211\203{ \312\323\324\"\307\325\321%\202d )\207" [address mail-use-rfc822 pos mapconcat identity rfc822-addresses ", " nil string-match "[ ]*(\\([^()\\]\\|\\\\.\\|\\\\\n\\)*)" replace-match "" 0 "\\`[ \n]*" "[ \n]*\\'" "\\([ ]?\\)\\([ ]*\"\\([^\"\\]\\|\\\\.\\|\\\\\n\\)*\"[ \n]*\\)" 64 2 "\\(,\\s-*\\|\\`\\)\\([^,]*<\\([^>,:]*\\)>[^,]*\\)\\(\\s-*,\\|\\'\\)" match-string 3 literal] 6 (#$ . 5433)])
#@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) "\2041 \306\301!\203 \203 \307P\202 \310\n\203( \n \232\204( \311\312\n!\313Q\202) \310\311\312 !\314QQ\315\211\316 \203\270 \317\320
#\211\203{ \321\315\"\322\232\203{ \317\322
T#\211 \203f T\202w \315
O
T\323OP)\2028
O \324! \317\"\203\252 \315O
\205\241
T\323OP\202\264
\205\260
T\211*\2028 +\317\325\"\211 \203\314 \315 O)\317\326\"\203\334 \315\225\323O\207\207" [mail-dont-reply-to-names rmail-default-dont-reply-to-names user-mail-address user-login-name case-fold-search cur-pos boundp "\\|" "" "\\`" regexp-quote "\\'\\|" "@" 0 t string-match "[,\"]" match-string "\"" nil mail-strip-quoted-names "[ , \n]*\\'" "\\(\\s \\|,\\)*" start-pos destinations next-pos address naked-address pos] 6 (#$ . 6328)])
(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)
#@382 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.
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) "\212eb\210\306\307\310!\311Q \204 \f\203q \205 \312 \313 \314\306#\203] ` \315y\210\316\317!\204& \320u\210\321x\210\f\203F \322`\"
B\202Y
\211\312\230\203Q \312\202R \323\322`\"Q)\202 \f\203e
\202m
\312\230?\205m
)\202\240 \313 \314\306#\205\240 \203\206 \313 \314\306#\204~ ` \315y\210\316\317!\204\211 \320u\210\321x\210\322`\")+\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 ", " opoint last] 5 (#$ . 7486)])
(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 \303\306 #O\303\307 \"\211\203, \305O\310 \305\225\302OQ\202 ) \207" [pos labels nil string-match "[^ ]" 0 "[ ]*$" "[ ]*,[ ]*" "\\|"] 6])
(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\224\306\225O\307 \310\224\310\225O\307 \311\224\311\225O\307 \312\224\312\225O\307\313!\260 *\207" [time s current-time current-time-string string-match "[^ ]+ +\\([^ ]+\\) +\\([^ ]+\\) \\([^ ]+\\) \\([^ ]+\\)" 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\2032 \317\nO\2023 \203I \3201D \321\322 !!0\202F \210\323\206K \321 #+\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" 0 (error) current-time-string date-to-time nil] 6 (#$ . 9492)])
(provide 'mail-utils)
Kontol Shell Bypass