1#@!#!123s

file_get_contents 1#@!#!123s
: / usr / share / emacs / 24.3 / lisp / gnus /
Filename : ietf-drums.elc
back
;ELC���
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:12 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/ietf-drums.el
;;; in Emacs version 24.3.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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(require 'mm-util)
#@63 US-ASCII control characters excluding CR, LF and white space.
(defvar ietf-drums-no-ws-ctl-token "-\f-" (#$ . 577))
#@42 US-ASCII characters excluding CR and LF.
(defvar ietf-drums-text-token "-	\f-" (#$ . 705))
#@21 Special characters.
(defvar ietf-drums-specials-token "()<>[]:;@\\,.\"" (#$ . 806))
#@18 Quote character.
(defvar ietf-drums-quote-token "\\" (#$ . 896))
#@14 White space.
(defvar ietf-drums-wsp-token " 	" (#$ . 967))
#@22 Folding white space.
(defvar ietf-drums-fws-regexp (concat "[" ietf-drums-wsp-token "]*\n[" ietf-drums-wsp-token "]+") (#$ . 1032))
#@16 Textual token.
(defvar ietf-drums-atext-token "-^a-zA-Z0-9!#$%&'*+/=?_`{|}~" (#$ . 1170))
#@36 Textual token including full stop.
(defvar ietf-drums-dot-atext-token "-^a-zA-Z0-9!#$%&'*+/=?_`{|}~." (#$ . 1266))
#@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 "!#-[]-") (#$ . 1387))
#@12 Tspecials.
(defvar ietf-drums-tspecials "][()<>@,;:\\\"/?=" (#$ . 1579))
(defvar ietf-drums-syntax-table (byte-code "\302!\303\304\305	#\210\303\306\307	#\210\303\310\311	#\210\303\312\313	#\210\303\314\313	#\210\303\315\316	#\210\303\317\316	#\210\303\320\316	#\210	)\207" [emacs-lisp-mode-syntax-table table copy-syntax-table modify-syntax-entry 92 "/" 60 "(" 62 ")" 64 "w" 47 42 "_" 59 39] 4))
#@44 Translate TOKEN into a list of characters.
(defalias 'ietf-drums-token-to-list #[(token) "\306\307\211\211\211\211
\fGW\203q�\f
H
T\n\310=\2032�\f\203+�\311\202\f�\n	B\202\f�\203O�\f\nX\203J�\312\313\f\"	B\fT\211\2027�\307\202\f�
\fGU\203a�\312\313\n\"	B\202\f�\f\203l�\312\313\f\"	B\n\202\f�	\237.\207" [range out c e b i 0 nil 45 t make-char ascii token] 7 (#$ . 1984)])
(defalias 'ietf-drums-init #[(string) "\302!\210	c\210\303 \210eb\207" [ietf-drums-syntax-table string set-syntax-table ietf-drums-unfold-fws] 2])
(put 'ietf-drums-init 'byte-optimizer 'byte-compile-inline-expand)
#@30 Remove comments from STRING.
(defalias 'ietf-drums-remove-comments #[(string) "\304\305!rq\210\306\216\307\n\310!\210\nc\210\311 \210eb)\210m\204G�\307f\211\312=\2031�\313\314\315\217\210\202�	\316=\203A�`\307\317\320\217|\210\202�\321u\210\202�\322 ,\207" [#1=#:temp-buffer c string ietf-drums-syntax-table generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) nil set-syntax-table ietf-drums-unfold-fws 34 err (forward-sexp 1) ((error (byte-code "db\207" [] 1))) 40 (byte-code "\303 p\304\216\305\306\n!!\210\307\310\311\"\210\312\313!\210`+\207" [#2=#:buffer #3=#:table ietf-drums-syntax-table syntax-table ((byte-code "rq\210\302	!\210)\302\207" [#2# #3# set-syntax-table] 2)) set-syntax-table copy-syntax-table modify-syntax-entry 34 "w" forward-sexp 1] 3) ((error (point-max))) 1 buffer-string] 5 (#$ . 2599)])
#@32 Remove whitespace from STRING.
(defalias 'ietf-drums-remove-whitespace #[(string) "\304\305!rq\210\306\216	\307\n!\210	c\210\310 \210eb)\210\311m\204P�\311f\211\312=\2030�\313\314!\210\202�\315=\203=�\313\314!\210\202�\316>\203J�\317\314!\210\202�\314u\210\202�\320 ,\207" [#1=#:temp-buffer string ietf-drums-syntax-table c generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) set-syntax-table ietf-drums-unfold-fws nil 34 forward-sexp 1 40 (32 9 10) delete-char buffer-string] 3 (#$ . 3490)])
#@37 Return the first comment in STRING.
(defalias 'ietf-drums-get-comment #[(string) "\305\306!rq\210\307\216	\310\n!\210	c\210\311 \210eb)\210\312\211m\204K�\312f\211\313=\2032�\314\315!\210\202�\316=\203E�`T\314\315!\210`S{\202�\315u\210\202�\f-\207" [#1=#:temp-buffer string ietf-drums-syntax-table c result generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) set-syntax-table ietf-drums-unfold-fws nil 34 forward-sexp 1 40] 4 (#$ . 4058)])
#@45 Remove comments and whitespace from STRING.
(defalias 'ietf-drums-strip #[(string) "\301\302!!\207" [string ietf-drums-remove-whitespace ietf-drums-remove-comments] 3 (#$ . 4573)])
#@56 Parse STRING and return a MAILBOX / DISPLAY-NAME pair.
(defalias 'ietf-drums-parse-address #[(string) "\306\307!rq\210\310\216\311\211\211\211
\312\"!\210
c\210\313 \210eb)\210m\204\230�\311f\211\314=\2046�\n\315=\203<�\316u\210\202#�\n\317=\203I�\320\316!\210\202#�\n\321=\203^�`T\320\316!\210`S{\fB\202#�\322\323#\324\325R!\203v�`\320\316!\210`{\fB\202#�\n\326=\203\215�\327\330`T\320\316!\210`S{!!\202#�\331\332\n\"\210\316u\210\202#�\f\203\247�\333\334\335\f!\336#\202\253�\337
!\204\303�\340\324	\"\205\306�\333\334\f\237\341#\337
!B\202\306�	B.\207" [#1=#:temp-buffer display-string c mailbox display-name string generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) nil set-syntax-table ietf-drums-unfold-fws 32 9 1 40 forward-sexp 34 looking-at "[" "@" "]" 60 ietf-drums-remove-whitespace ietf-drums-remove-comments message "Unknown symbol: %c" mapconcat identity reverse " " ietf-drums-get-comment string-match "" ietf-drums-syntax-table ietf-drums-atext-token] 6 (#$ . 4761)])
#@156 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.
(defalias 'ietf-drums-parse-addresses #[(string &optional rawp) "\205\207�\306\307!r	q\210\310\216\311\n!\210c\210\312 \210eb)\210`\313\211\211m\204j�\313f\211\314>\203<�\313\315\316\217\210\202'�\f\317=\203d�\203N�`{\202R�\313\320\321\217\211\203[�
B\322u\210`\202'�\322u\210\202'�\203v�`{\202z�\313\323\324\217\211\203\203�
B
\237.\207" [string #1=#:temp-buffer ietf-drums-syntax-table address c pairs generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) set-syntax-table ietf-drums-unfold-fws nil (34 60 40) (forward-sexp 1) ((error (skip-chars-forward "^," nil))) 44 (byte-code "\301`{!\207" [beg ietf-drums-parse-address] 3) ((error)) 1 (byte-code "\301`{!\207" [beg ietf-drums-parse-address] 3) ((error)) beg rawp] 5 (#$ . 5829)])
#@51 Unfold folding white space in the current buffer.
(defalias 'ietf-drums-unfold-fws #[nil "eb\210\301\302\303#\203�\304\305\303\211#\210\202�eb\207" [ietf-drums-fws-regexp re-search-forward nil t replace-match " "] 4 (#$ . 6814)])
#@40 Return an Emacs time spec from STRING.
(defalias 'ietf-drums-parse-date #[(string) "\301\302\303!\"\207" [string apply encode-time parse-time-string] 4 (#$ . 7053)])
#@53 Narrow to the header section in the current buffer.
(defalias 'ietf-drums-narrow-to-header #[nil "eb\300\301\302\303#\203�\304\224\202�d}\210eb\207" [re-search-forward "^
?$" nil 1 0] 5 (#$ . 7226)])
#@63 Quote string if it needs quoting to be displayed in a header.
(defalias 'ietf-drums-quote-string #[(string) "\302\303\304Q	\"\203�\305	\305Q\207	\207" [ietf-drums-atext-token string string-match "[^" "]" "\""] 4 (#$ . 7434)])
(defalias 'ietf-drums-make-address #[(name address) "\203\f�\302!\303	\304R\207	\207" [name address ietf-drums-quote-string " <" ">"] 4])
(provide 'ietf-drums)