;ELC ;;; Compiled by amu@daemon on Thu Jan 11 15:03:36 2001 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.8.8/lisp/ietf-drums.el ;;; in Emacs version 20.7.2 ;;; with bytecomp version 2.56 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`ietf-drums.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\207" [require time-date mm-util] 2) #@63 US-ASCII control characters excluding CR, LF and white space. (defvar ietf-drums-no-ws-ctl-token "- \f-" (#$ . 701)) #@42 US-ASCII characters exlcuding CR and LF. (defvar ietf-drums-text-token "- \f-" (#$ . 829)) #@21 Special characters. (defvar ietf-drums-specials-token "()<>[]:;@\\,.\"" (#$ . 930)) #@18 Quote character. (defvar ietf-drums-quote-token "\\" (#$ . 1020)) #@14 White space. (defvar ietf-drums-wsp-token " " (#$ . 1092)) #@22 Folding white space. (defvar ietf-drums-fws-regexp (concat "[" ietf-drums-wsp-token "]*\n[" ietf-drums-wsp-token "]+") (#$ . 1158)) #@16 Textual token. (defvar ietf-drums-atext-token "-^a-zA-Z0-9!#$%&'*+/=?_`{|}~" (#$ . 1296)) #@36 Textual token including full stop. (defvar ietf-drums-dot-atext-token "-^a-zA-Z0-9!#$%&'*+/=?_`{|}~." (#$ . 1392)) #@98 Non-white-space control characaters, plus the rest of ASCII excluding backslash and doublequote. (defvar ietf-drums-qtext-token (concat ietf-drums-no-ws-ctl-token "!#-[]-") (#$ . 1513)) #@12 Tspecials. (defvar ietf-drums-tspecials "][()<>@,;:\\\"/?=" (#$ . 1706)) (byte-code "\304\302!\204C\305!\306\307\310 #\210\306\311\312 #\210\306\313\314 #\210\306\315\316 #\210\306\317\316 #\210\306\320\321 #\210\306\322\321 #\210\306\323\321 #\210\306\324\321 #\210 )\302 B\304\207" [emacs-lisp-mode-syntax-table table ietf-drums-syntax-table current-load-list boundp copy-syntax-table modify-syntax-entry 92 "/" 60 "(" 62 ")" 64 "w" 47 61 " " 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  GW\203u\310 H! T\n\310\311!=\2036\f\203/\312\202\f\n B\202\f\203S\f\nX\203N\313\314\f\" B\fT\211\202;\307\202\f  GU\203e\313\314\n\" B\202\f\f\203p\313\314\f\" B\n\202\f \237.\207" [range out c e b i 0 nil mm-char-int 45 t mm-make-char ascii token] 7 (#$ . 2175)]) (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\306!!\307\216rq\210\310\n\311 !\210\nc\210\312 \210eb\210)m\204I\310f\211\313=\2032\314\315!\210\202 \316=\203C`\314\315!\210`|\210\202\315u\210\202\317 ,\207" [#1=#:temp-buffer c string ietf-drums-syntax-table get-buffer-create generate-new-buffer-name " *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 forward-sexp 1 40 buffer-string] 4 (#$ . 2812)]) #@32 Remove whitespace from STRING. (defalias 'ietf-drums-remove-whitespace #[(string) "\304\305\306!!\307\216rq\210 \310\n!\210 c\210\311 \210eb\210)\312m\204R\312f\211\313=\2032\314\315!\210\202 \316=\203?\314\315!\210\202 \317>\203L\320\315!\210\202\315u\210\202\321 ,\207" [#1=#:temp-buffer string ietf-drums-syntax-table c get-buffer-create generate-new-buffer-name " *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] 4 (#$ . 3359)]) #@37 Return the first comment in STRING. (defalias 'ietf-drums-get-comment #[(string) "\305\306\307!!\310\216rq\210 \311\n!\210 c\210\312 \210eb\210)\313\211m\204M\313f\211\314=\2034\315\316!\210\202 \317=\203G`T\315\316!\210`S{\202 \316u\210\202 \f-\207" [#1=#:temp-buffer string ietf-drums-syntax-table c result get-buffer-create generate-new-buffer-name " *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 (#$ . 3955)]) #@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 (#$ . 4498)]) #@56 Parse STRING and return a MAILBOX / DISPLAY-NAME pair. (defalias 'ietf-drums-parse-address #[(string) "\306\307\310!!\311\216rq\210\312\211\211\211 \313#!\210 c\210\314 \210eb\210)m\204\227\312f\211\315=\2048\n\316=\203>\317u\210\202%\n\320=\203K\321\317!\210\202%\n\322=\203``T\321\317!\210`S{\fB\202%\323\324$\325\326R!\203x`\321\317!\210`{\fB\202%\n\327=\203\217\330\331`T\321\317!\210`S{!!\202%\332\333\n\"\210\202%\f\203\246\334\335\336\f!\337#\202\252\340 ! \204\302\341\325 \"\205\305\334\335\f\237\342#\340 !B\202\305 B.\207" [#1=#:temp-buffer display-string c mailbox display-name string get-buffer-create generate-new-buffer-name " *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 error "Unknown symbol: %c" mapconcat identity reverse " " ietf-drums-get-comment string-match "" ietf-drums-syntax-table ietf-drums-atext-token] 6 (#$ . 4686)]) #@65 Parse STRING and return a list of MAILBOX / DISPLAY-NAME pairs. (defalias 'ietf-drums-parse-addresses #[(string) "\306\307\310!!\311\216rq\210 \312\n!\210 c\210\313 \210eb\210)`\314\211m\204R\314f\211\315>\2036\316\317!\210\202\" \320=\203L\321 `{!\fB\317u\210`\202\"\317u\210\202\"\321 `{!\fB\211\237.\207" [#1=#:temp-buffer string ietf-drums-syntax-table c pairs beg get-buffer-create generate-new-buffer-name " *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 44 ietf-drums-parse-address] 4 (#$ . 5769)]) #@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\202eb\207" [ietf-drums-fws-regexp re-search-forward nil t replace-match " "] 4 (#$ . 6408)]) #@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 (#$ . 6647)]) #@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\202d}\210eb\207" [re-search-forward "^ ?$" nil 1 0] 5 (#$ . 6820)]) #@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 (#$ . 7028)]) (provide 'ietf-drums)