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



#@63 US-ASCII control characters excluding CR, LF and white space.
(defvar ietf-drums-no-ws-ctl-token "
-\f-" (#$ . 84))
#@42 US-ASCII characters excluding CR and LF.
(defvar ietf-drums-text-token "
-	\f-" (#$ . 211))
#@21 Special characters.
(defvar ietf-drums-specials-token "()<>[]:;@\\,.\"" (#$ . 312))
#@18 Quote character.
(defvar ietf-drums-quote-token "\\" (#$ . 402))
#@14 White space.
(defvar ietf-drums-wsp-token " 	" (#$ . 473))
#@22 Folding white space.
(defvar ietf-drums-fws-regexp (concat "[" ietf-drums-wsp-token "]*\n[" ietf-drums-wsp-token "]+") (#$ . 538))
#@16 Textual token.
(defvar ietf-drums-atext-token "-^a-zA-Z0-9!#$%&'*+/=?_`{|}~" (#$ . 675))
#@36 Textual token including full stop.
(defvar ietf-drums-dot-atext-token "-^a-zA-Z0-9!#$%&'*+/=?_`{|}~." (#$ . 770))
#@97 Non-white-space control characters, plus the rest of ASCII excluding
backslash and doublequote.
(defvar ietf-drums-qtext-token (concat ietf-drums-no-ws-ctl-token "!#-[]-") (#$ . 890))
#@12 Tspecials.
(defvar ietf-drums-tspecials "][()<>@,;:\\\"/?=" (#$ . 1081))
(defvar ietf-drums-syntax-table (byte-code "\301!\302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\312#\210\302\314\315#\210\302\316\315#\210\302\317\315#\210\207" [emacs-lisp-mode-syntax-table copy-syntax-table modify-syntax-entry 92 "/" 60 "(" 62 ")" 64 "w" 47 42 "_" 59 39] 5))
#@56 Translate TOKEN into a list of characters.

(fn TOKEN)
(defalias 'ietf-drums-token-to-list #[257 "\300\301\211\211\211GW\203rH\262T\262\302=\203.\203&\303\262
\202B\262\202\211\203MX\203G\304\305\"B\262T\262\2022\301\262
\202GU\203`\304\305\"B\262\202\203l\304\305\"B\262\262\202
\237\207" [0 nil 45 t make-char ascii] 9 (#$ . 1477)])
#@15 

(fn STRING)
(defalias 'ietf-drums-init #[257 "\301!\210\211c\210\302 \210eb\207" [ietf-drums-syntax-table set-syntax-table ietf-drums-unfold-fws] 3 (#$ . 1868)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put ietf-drums-init speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@43 Remove comments from STRING.

(fn STRING)
(defalias 'ietf-drums-remove-comments #[257 "\301\302\303\"r\211q\210\304\305\"\216\306\307!\210\211c\210\310 \210eb\266m\204p\306f\262
\211\311\267\202j\31217\313\314!0\210\202\210db\210\202`\3151c\316 p\304\317#\216\307\320!!\210\321\322\323\"\210\313\314!\210`)\266\2020\202e\210d|\210\202\314u\210\202\324 \262
*\207" [ietf-drums-syntax-table generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] nil set-syntax-table ietf-drums-unfold-fws #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (34 43 40 62)) (error) forward-sexp 1 (error) syntax-table #[0 "r\301q\210\302\300!)\207" [V0 V1 set-syntax-table] 2] copy-syntax-table modify-syntax-entry 34 "w" buffer-string] 10 (#$ . 2180)])
#@45 Remove whitespace from STRING.

(fn STRING)
(defalias 'ietf-drums-remove-whitespace #[257 "\301\302\303\"r\211q\210\304\305\"\216
\306!\210\211c\210\307 \210eb\266\310m\204F\310f\262
\211\311\267\202@\312\313!\210\202\312\313!\210\202\314\313!\210\202\313u\210\202\315 \262
*\207" [ietf-drums-syntax-table generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] set-syntax-table ietf-drums-unfold-fws nil #s(hash-table size 6 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (34 43 40 50 32 57 9 57 10 57 13 57)) forward-sexp 1 delete-char buffer-string] 5 (#$ . 3030)])
#@49 Return the last comment in STRING.

(fn STRING)
(defalias 'ietf-drums-get-comment #[257 "\301\302\303\"r\211q\210\304\305\"\216
\306!\210\211c\210\307 \210eb\266\310\211m\204G\310f\262
\211\311\267\202A\312\313!\210\202`T\312\313!\210`S{\262\202\313u\210\202
\266\202*\207" [ietf-drums-syntax-table generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] set-syntax-table ietf-drums-unfold-fws nil #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (34 44 40 51)) forward-sexp 1] 7 (#$ . 3691)])
#@58 Remove comments and whitespace from STRING.

(fn STRING)
(defalias 'ietf-drums-strip #[257 "\300\301!!\207" [ietf-drums-remove-whitespace ietf-drums-remove-comments] 4 (#$ . 4295)])
#@47 Remove some garbage from STRING.

(fn STRING)
(defalias 'ietf-drums-remove-garbage #[257 "\300\301\"\203\211\302\211\224O
\302\225\303OP\262
\202\207" [string-match "[][()<>@,;:\\\"/?=]+" 0 nil] 5 (#$ . 4484)])
#@171 Remove comments, whitespace and garbage from STRING.
STRING is assumed to be a string that is extracted from
the Content-Transfer-Encoding header of a mail.

(fn STRING)
(defalias 'ietf-drums-strip-cte #[257 "\300
\301\302!!\262
!\207" [ietf-drums-remove-garbage ietf-drums-remove-whitespace ietf-drums-remove-comments] 6 (#$ . 4707)])
#@188 Parse STRING and return a MAILBOX / DISPLAY-NAME pair.
If DECODE, the DISPLAY-NAME will have RFC2047 decoding performed
(that's the "=?utf...q...=?") stuff.

(fn STRING &optional DECODE)
(defalias 'ietf-drums-parse-address #[513 "\302\303\304\"r\211q\210\305\306\"\216\307\211\211\211\310!\210\211c\210\311 \210eb\266m\204\257\307f\262
\312=\203K\212\3131=\314\315!\210\3040\202?\210\307)\204K\316\315!\210\307f\262
\317=\204W
\320=\203]\315u\210\202!
\321\267\202z\314\315!\210\202!`T\314\315!\210`S{B\262\202!\322\323	\324Q!\203\221`\314\315!\210`{B\262\202!
\325=\203\251\326\327`T\314\315!\210`S{!!\262\202!\315u\210\202!\203\300\330\331\332!\333#\262
\202\306\334!\262
\204\345\211\205\363\335\336\"\205\363\330\331\237\337#\334!B\266\204\202\365\203\361\340!\202\362
B\266\204*\207" [ietf-drums-syntax-table ietf-drums-atext-token generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] nil set-syntax-table ietf-drums-unfold-fws 34 (error) forward-sexp 1 delete-char 32 9 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (40 99 34 106)) looking-at "[" "@]" 60 ietf-drums-remove-whitespace ietf-drums-remove-comments mapconcat identity reverse " " ietf-drums-get-comment string-search "@" "" rfc2047-decode-string] 12 (#$ . 5051)])
#@184 Parse STRING and return a list of MAILBOX / DISPLAY-NAME pairs.
If RAWP, don't actually parse the addresses, but instead return
a list of address strings.

(fn STRING &optional RAWP)
(defalias 'ietf-drums-parse-addresses #[513 "
\205\244\301\302\303\"r\211q\210\304\305\"\216\306!\210\211c\210\307 \210eb\266`\310\211\211m\204y\310f\262
\311\267\202s\3121>\313\314!0\210\202$\210\315\310w\210\202$\203P`{\202_\3161]\317`{!0\202_\210\310\262
\211\203j\211B\262\314u\210`\262\202$\314u\210\202$\203\203`{\202\222\3201\220\317`{!0\202\222\210\310\262
\211\203\235\211B\262\237\266\204*\262
\207" [ietf-drums-syntax-table generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] set-syntax-table ietf-drums-unfold-fws nil #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (34 50 60 50 40 50 44 70)) (error) forward-sexp 1 "^," (error) ietf-drums-parse-address (error)] 10 (#$ . 6438)])
#@51 Unfold folding white space in the current buffer.
(defalias 'ietf-drums-unfold-fws #[0 "eb\210\301\302\303#\203\304\305\303\211#\210\202eb\207" [ietf-drums-fws-regexp re-search-forward nil t replace-match " "] 4 (#$ . 7451)])
#@53 Return an Emacs time spec from STRING.

(fn STRING)
(defalias 'ietf-drums-parse-date #[257 "\300\301!!\207" [encode-time parse-time-string] 4 (#$ . 7688)])
#@53 Narrow to the header section in the current buffer.
(defalias 'ietf-drums-narrow-to-header #[0 "eb\300\301\302\303#\203\304\224\202d}\210eb\207" [re-search-forward "^
?$" nil 1 0] 5 (#$ . 7851)])
#@76 Quote string if it needs quoting to be displayed in a header.

(fn STRING)
(defalias 'ietf-drums-quote-string #[257 "\301\302\303Q\"\203\304
\304Q\207\207" [ietf-drums-atext-token string-match "[^" "]" "\""] 5 (#$ . 8057)])
#@21 

(fn NAME ADDRESS)
(defalias 'ietf-drums-make-address #[514 "
\203\f\300!\301\302R\207\207" [ietf-drums-quote-string " <" ">"] 6 (#$ . 8291)])
(provide 'ietf-drums)