;ELC   
;;; Compiled by amu@daemon on Thu Jan 11 15:04:08 2001
;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.8.8/lisp/nnwarchive.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 "`nnwarchive.el' was compiled for Emacs 19.29 or later"))

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


(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\300\307!\210\300\310!\207" [require nnoo message gnus-util gnus gnus-bcklg nnmail mm-util mail-source] 2)
(progn (require 'w3) (require 'url) (require 'w3-forms) (require 'nnweb))
(byte-code "\305\306\307\310\"\310\211FB\305\311D	B\312\302!\204 \313\302B\312\304!\204% \314\304B\310\207" [nnoo-definition-alist nnoo-state-alist nnwarchive-type-definition current-load-list nnwarchive-default-type nnwarchive mapcar #[(p) "C\207" [p] 1] nil "*internal-non-initialized-backend*" boundp ((egroups (address . "www.egroups.com") (open-url "http://www.egroups.com/login.cgi?&login_email=%s&login_password=%s" nnwarchive-login nnwarchive-passwd) (list-url "http://www.egroups.com/mygroups") (list-dissect . nnwarchive-egroups-list) (list-groups . nnwarchive-egroups-list-groups) (xover-url "http://www.egroups.com/messages/%s/%d" group aux) (xover-last-url "http://www.egroups.com/messages/%s/" group) (xover-page-size . 13) (xover-dissect . nnwarchive-egroups-xover) (article-url "http://www.egroups.com/message/%s/%d?source=1" group article) (article-dissect . nnwarchive-egroups-article) (authentication . t) (article-offset . 0) (xover-files . nnwarchive-egroups-xover-files)) (mail-archive (address . "www.mail-archive.com") (open-url) (list-url "http://www.mail-archive.com/lists.html") (list-dissect . nnwarchive-mail-archive-list) (list-groups . nnwarchive-mail-archive-list-groups) (xover-url "http://www.mail-archive.com/%s/mail%d.html" group aux) (xover-last-url "http://www.mail-archive.com/%s/maillist.html" group) (xover-page-size) (xover-dissect . nnwarchive-mail-archive-xover) (article-url "http://www.mail-archive.com/%s/msg%05d.html" group article1) (article-dissect . nnwarchive-mail-archive-article) (xover-files . nnwarchive-mail-archive-xover-files) (authentication) (article-offset . 1))) egroups] 4)
#@39 Where nnwarchive will save its files.
(defvar nnwarchive-directory (nnheader-concat gnus-directory "warchive/") (#$ . 2550))
(nnoo-define 'nnwarchive-directory nil)
#@25 The type of nnwarchive.
(defvar nnwarchive-type nil (#$ . 2721))
(nnoo-define 'nnwarchive-type nil)
#@28 The address of nnwarchive.
(defvar nnwarchive-address "" (#$ . 2827))
(nnoo-define 'nnwarchive-address nil)
#@32 Your login name for the group.
(defvar nnwarchive-login nil (#$ . 2941))
(nnoo-define 'nnwarchive-login nil)
#@30 Your password for the group.
(defvar nnwarchive-passwd nil (#$ . 3056))
(byte-code "\306\307\310\"\210\311\300!\204 \310\300	B\306\300\310\"\210\311\302!\204 \310\302	B\306\302\310\"\210\311\303!\204/ \310\303	B\306\303\310\"\210\311\304!\204@ \310\304	B\306\304\310\"\210\312\305	B\311\313!\204X \310\313	B\306\313\310\"\210\311\314!\204j \310\f\314	B\306\314\310\"\210\311\315!\204| \310\315	B\306\315\310\"\210\311\316!\204\216 \310\316	B\306\316\310\"\210\311\317!\204\240 \310\317	B\306\317\310\"\210\311\320!\204\262 \310\320	B\306\320\310\"\210\311\321!\204\304 \310\321	B\306\321\310\"\210\311\322!\204\326 \310\322	B\306\322\310\"\210\311\323!\204\350 \310\323	B\306\323\310\"\210\311\324!\204\372 \310\324	B\306\324\310\"\210\311\325!\204\f\310\325	B\306\325\310\"\210\311\326!\204\310\326	B\306\326\310\"\210\311\320!\2040\310\320	B\306\320\310\"\210\311\327!\204B\330\327	B\306\327\310\"\210\311\331!\204T\310\331	B\306\331\310\"\210\311\332!\204f\333\332	B\306\332\310\"\210\311\334!\204x\310\334	B\311\335!\204\205\310\335	B\311\336!\204\222\310\336	B\306\336\310\"\210\337\340!\207" [nnwarchive-groups current-load-list nnwarchive-headers-cache nnwarchive-authentication nnwarchive-nov-is-evil nnwarchive-version nnoo-define nnwarchive-passwd nil boundp "nnwarchive 1.0" nnwarchive-open-url nnwarchive-open-dissect nnwarchive-list-url nnwarchive-list-dissect nnwarchive-list-groups nnwarchive-xover-files nnwarchive-xover-url nnwarchive-xover-last-url nnwarchive-xover-dissect nnwarchive-xover-page-size nnwarchive-article-url nnwarchive-article-dissect nnwarchive-article-offset 0 nnwarchive-buffer nnwarchive-keep-backlog 300 nnwarchive-backlog-articles nnwarchive-backlog-hashtb nnwarchive-headers nnoo-define-basics-1 nnwarchive] 3)
(defalias 'nnwarchive-set-default #[(type) "	\236A\305\211\305\211\203% \f@\306\307\310\n@!P!\nAL\210\fA\211\204 ,\305\207" [type nnwarchive-type-definition def defs #1=#:--dolist-temp--89026 nil intern "nnwarchive-" symbol-name] 6])
(defalias 'nnwarchive-backlog '(macro . #[(&rest form) "\301\302\303\304B\305BBE\207" [form let ((gnus-keep-backlog nnwarchive-keep-backlog) (gnus-backlog-buffer (format " *nnwarchive backlog %s*" nnwarchive-address)) (gnus-backlog-articles nnwarchive-backlog-articles) (gnus-backlog-hashtb nnwarchive-backlog-hashtb)) unwind-protect progn ((setq nnwarchive-backlog-articles gnus-backlog-articles nnwarchive-backlog-hashtb gnus-backlog-hashtb))] 5]))
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put nnwarchive-backlog lisp-indent-function 0 edebug-form-spec (form body)] 4)
(defalias 'nnwarchive-backlog-enter-article #[(group number buffer) "\306\307	\"\n\n\310\216\311\f#-\207" [nnwarchive-keep-backlog nnwarchive-address nnwarchive-backlog-articles nnwarchive-backlog-hashtb gnus-backlog-hashtb gnus-backlog-articles format " *nnwarchive backlog %s*" ((byte-code "\n\304\207" [gnus-backlog-articles nnwarchive-backlog-articles gnus-backlog-hashtb nnwarchive-backlog-hashtb nil] 1)) gnus-backlog-enter-article gnus-backlog-buffer gnus-keep-backlog group number buffer] 4])
(defalias 'nnwarchive-get-article #[(article &optional group server buffer) "\247\205s 	\306\307\n\"\f\310\216\311\206  #-\203* B\207\312\212q\210eb\210Z\313!\210)\")\205r \212\206W q\210\314 \210c\210\315p#\210\316\317\320#\210)B)\207" [article nnwarchive-keep-backlog nnwarchive-address nnwarchive-backlog-articles nnwarchive-backlog-hashtb gnus-backlog-hashtb format " *nnwarchive backlog %s*" ((byte-code "\n\304\207" [gnus-backlog-articles nnwarchive-backlog-articles gnus-backlog-hashtb nnwarchive-backlog-hashtb nil] 1)) gnus-backlog-request-article nil nnwarchive-url erase-buffer nnwarchive-backlog-enter-article nnheader-report nnwarchive "Fetched article %s" gnus-backlog-articles gnus-backlog-buffer gnus-keep-backlog group buffer nntp-server-buffer contents nnwarchive-buffer nnwarchive-article-offset article1 nnwarchive-article-url nnwarchive-article-dissect] 4])
(defalias 'nnwarchive-retrieve-headers #[(articles &optional group server fetch-old) "\306	\"\210\n\204 \203\200 \307\310\311!!\312\216r\fq\210rq\210\313 \210)p\314\211\314\211\203| @\315	$\210eb\316\317\314\320#\203U \321u\210\202X db\210`rq\210\322\323\"c\210\324#\210\325c\210)A\211\2045 .\326\207\327 \"A!\212\"q\210\313 \210#\"\210)\212q\210\313 \210\314$\314\211%\203\313 %@\211!\236\211$\203\302 \330$A!\210%A\211%\204\255 ,\327 \"\211&\203\340 &!\241\210\202\351 !B B )\331\207" [group server gnus-nov-is-evil nnwarchive-nov-is-evil #1=#:temp-buffer nntp-server-buffer nnwarchive-possibly-change-server get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) erase-buffer nil nnwarchive-get-article search-forward "\n\n" t -1 format "221 %d Article retrieved.\n" insert-buffer-substring ".\n" headers assoc nnheader-insert-nov nov e b buf articles art #2=#:--dolist-temp--89027 nnwarchive-headers-cache nnwarchive-headers nnwarchive-buffer nnwarchive-xover-files header #3=#:--dolist-temp--89028 elem] 7])
(nnoo-register-function 'nnwarchive-retrieve-headers)
(defalias 'nnwarchive-request-group #[(group &optional server dont-check) "\306\307\"\210	\204 \n\203 \nC!\210\310 \210\311\f\"\211\204% \312\313\314\"\202B \312\313\315#\210\316\317A@\2064 \320\321A@\206< \320\322!%\210\323)\207" [server dont-check nnwarchive-list-groups group nnwarchive-groups elem nnwarchive-possibly-change-server nil nnwarchive-write-groups assoc nnheader-report nnwarchive "Group does not exist" "Opened group %s" nnheader-insert "211 %d %d %d %s\n" 0 1 prin1-to-string t] 8])
(nnoo-register-function 'nnwarchive-request-group)
(defalias 'nnwarchive-request-article #[(article &optional group server buffer) "\304	\"\210\305\n	$\207" [group server article buffer nnwarchive-possibly-change-server nnwarchive-get-article] 5])
(nnoo-register-function 'nnwarchive-request-article)
(defalias 'nnwarchive-close-server #[(&optional server) "\306!\203$ 	\211\205 \307\n!\205 \310\307\n!!)\203$ \212	q\210\311	!\210)\312\313\f\"\314\216\315 \210-\316\317\"\207" [server nnwarchive-buffer buffer nnwarchive-keep-backlog nnwarchive-address nnwarchive-backlog-articles nnwarchive-server-opened get-buffer buffer-name kill-buffer format " *nnwarchive backlog %s*" ((byte-code "\n\304\207" [gnus-backlog-articles nnwarchive-backlog-articles gnus-backlog-hashtb nnwarchive-backlog-hashtb nil] 1)) gnus-backlog-shutdown nnoo-close-server nnwarchive nnwarchive-backlog-hashtb gnus-backlog-hashtb gnus-backlog-articles gnus-backlog-buffer gnus-keep-backlog] 5])
(nnoo-register-function 'nnwarchive-close-server)
(defalias 'nnwarchive-request-list #[(&optional server) "\304\305\"\210\212	q\210\306 \210\n\203 \307\n!\210\203  \210\310 \210\311 \210)\312\207" [server nnwarchive-buffer nnwarchive-list-url nnwarchive-list-dissect nnwarchive-possibly-change-server nil erase-buffer nnwarchive-url nnwarchive-write-groups nnwarchive-generate-active t] 3])
(nnoo-register-function 'nnwarchive-request-list)
(defalias 'nnwarchive-open-server #[(server &optional defs connectionless) "\306\307	#\210\310!\210\n\203& \206 \311\312\313\"\f\"\206% \314\312\315#!\204. \316 \210\212q\210\317 \210\203@ \320!\210\203I  \210)\321\207" [server defs nnwarchive-authentication nnwarchive-login user-mail-address nnwarchive-passwd nnoo-change-server nnwarchive nnwarchive-init read-string format "Login at %s: " mail-source-read-passwd "Password for %s at %s: " nnwarchive-read-groups erase-buffer nnwarchive-url t nnwarchive-groups nnwarchive-buffer nnwarchive-open-url nnwarchive-open-dissect] 5])
(byte-code "\300\301!\210\302\303!\207" [nnoo-register-function nnwarchive-open-server nnoo-define-skeleton-1 nnwarchive] 2)
(defalias 'nnwarchive-possibly-change-server #[(&optional group server) "\301!\210\205 \302!?\205 \303!\207" [server nnwarchive-init nnwarchive-server-opened nnwarchive-open-server] 2])
(defalias 'nnwarchive-read-groups #[nil "\305\306P	\"\307\n!\205& \310\311\312!!\313\216rq\210\314\n!\210eb\210\315p!\211+)\207" [nnwarchive-address nnwarchive-directory file #1=#:temp-buffer nnwarchive-groups expand-file-name "groups-" file-exists-p get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents read] 3])
(defalias 'nnwarchive-write-groups #[nil "\305\306P	\"\307\310\311!!\312\216r\nq\210\313\fp\")r\nq\210~\210\314ed\315\316%\210,\207" [nnwarchive-address nnwarchive-directory #1=#:temp-buffer #2=#:temp-file nnwarchive-groups expand-file-name "groups-" get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) prin1 write-region nil 0] 7])
#@30 Initialize buffers and such.
(defalias 'nnwarchive-init #[(server) "\306!	\307\310\232\203 \202@ \f	\236\204@ \307\211A@\211\2037 \311\nA\236A\232\203 \307\n@\202 \f\204@ \312\313\"\210\f+\314!\204P \315!\210\211\205e \316!\205e \317\316!!)\204u \212\320\321\322#!)\323!\207" [server nnwarchive-type-definition def defs type nnwarchive-default-type intern nil "" address error "Undefined server %s" file-exists-p gnus-make-directory get-buffer buffer-name nnheader-set-temp-buffer format " *nnwarchive %s %s*" nnwarchive-set-default nnwarchive-type nnwarchive-directory nnwarchive-buffer buffer] 6 (#$ . 12104)])
#@33 Return PAIRS encoded for forms.
(defalias 'nnwarchive-encode-www-form-urlencoded #[(pairs) "\301\302\303#\207" [pairs mapconcat #[(data) "\301@!\302\301A!Q\207" [data w3-form-encode-xwfu "="] 4] "&"] 4 (#$ . 12762)])
(defalias 'nnwarchive-fetch-form #[(url pairs) "\305!\306\307\310\f!\210+\311\207" [pairs url-request-extra-headers url-request-method url-request-data url nnwarchive-encode-www-form-urlencoded "POST" (("Content-type" . "application/x-www-form-urlencoded")) nnweb-insert t] 3])
(defalias 'nnwarchive-eval #[(expr) ":\203 \301@!\301A!B\2079\203 \302!\207\207" [expr nnwarchive-eval eval] 3])
(defalias 'nnwarchive-url #[(xurl) "\306\307!\204C \310\300!\203C \203C \311\312!\203C p\313\216\314\312\314!\210\315\314@\316=\2039 A\317@\320A!\"\202A \321\322\323\320!\"!-\207\314\315\314@\316=\203^ A\317@\320A!\"\202f \321\322\323\320!\"!+\207" [enable-multibyte-characters #1=#:buffer default-enable-multibyte-characters url-cookie-multiple-line url-confirmation-func xurl featurep xemacs boundp fboundp set-buffer-multibyte ((byte-code "q\210\301\302!\207" [#1# set-buffer-multibyte t] 2)) nil identity post nnwarchive-fetch-form nnwarchive-eval nnweb-insert apply format] 5])
(defalias 'nnwarchive-generate-active #[nil "\212q\210\304 \210	\305\211\203+ @\306\n@!\307\310\nA@\206 \311!\312\261\210A\211\204 +\305\207" [nntp-server-buffer nnwarchive-groups elem #1=#:--dolist-temp--89029 erase-buffer nil prin1-to-string " " number-to-string 0 " 1 y\n"] 5])
(defalias 'nnwarchive-paged #[(articles) "\306\211\211\211A@\211\203+ \n\206 \307Y\203 \n\f\236\204 \n	B\n\\\202 	+\207" [next narts art articles nnwarchive-headers nnwarchive-xover-page-size nil 0] 3])
(defalias 'nnwarchive-egroups-list-groups #[(groups) "\212\306	q\210\n\306\211\203x \f@\307 \210\310!\210eb\210\311\312\306\313#\203) \314\315\316!!\317\"\211\203= A\240\210\202F \320EB)\317\"A\321!\210\317\"\211\203g \241\210\202p BB)\fA\211\204 ,\306\207" [articles nnwarchive-buffer groups group #1=#:--dolist-temp--89030 nnwarchive-xover-last-url nil erase-buffer nnwarchive-url re-search-forward "of \\([0-9]+\\)[ 	\n]*</title>" t string-to-number match-string 1 assoc "" nnwarchive-egroups-xover nnwarchive-groups elem nnwarchive-headers-cache nnwarchive-headers] 5])
(defalias 'nnwarchive-egroups-list #[nil "\306\307\211\211\211eb\210\310\311\307\306#\2038 \312\313!\312\314!\315\"\211\203. 	A\316\240\210\202 \nEB\202 -\306\207" [articles elem description group case-fold-search nnwarchive-groups t nil re-search-forward "href=\"/group/\\([^/\"> ]+\\)" match-string 1 2 assoc 0] 5])
(defalias 'nnwarchive-egroups-xover #[(group) "\306\211\211\211eb\210\307\310\306\311#\203\206 \312\313!\314\312\315!!\312\316!\313y\210\236\204 \317\320!\2034 \312\313!\313y\210\317\320!\203A \312\313!\211\321\n!\321	!\322\f\323\324!\325\260\326\327\211\326\306\330\n	&\n.\nBB\202 ,\207" [date from subject article group nnwarchive-headers nil re-search-forward "<a href=\"/group/\\([^/]+\\)/\\([0-9]+\\)[^>]+>\\([^<]+\\)<" t match-string 1 string-to-number 2 3 looking-at "<td[^>]+><font[^>]+>\\([^<]+\\)</font>" nnweb-decode-entities-string "<" "%" number-to-string "@egroup.com>" "" 0 vector extra xref lines chars references id number] 12])
(defalias 'nnwarchive-egroups-article #[(group articles) "eb\210\300\301\302\303#\203 e`|\210db\210\304\305\302\303#\203 `d|\210eb\210\306\307\302\303#\2030 \310\311!\210\202! \312 \210\313 \207" [search-forward "<pre>" nil t search-backward "</pre>" re-search-forward "<a[^>]+>\\([^<]+\\)</a>" replace-match "\\1" nnweb-decode-entities buffer-string] 4])
(defalias 'nnwarchive-egroups-xover-files #[(group articles) "\306\211\307\310\n\311\"!\211A@\211\203 db\210\312!\210\202 \f\205& \313!*\207" [auxs aux articles nnwarchive-xover-url nnwarchive-xover-dissect group nil nnwarchive-paged sort < nnwarchive-url nnwarchive-egroups-xover] 4])
(defalias 'nnwarchive-mail-archive-list-groups #[(groups) "\212\306	q\210\n\306\211\203y \f@\307 \210\310!\210eb\210\311\312\306\313#\203* \314\315\316!!T\317\"\211\203> A\240\210\202G \320EB)\317\"A\321!\210\317\"\211\203h \241\210\202q BB)\fA\211\204 ,\306\207" [articles nnwarchive-buffer groups group #1=#:--dolist-temp--89031 nnwarchive-xover-last-url nil erase-buffer nnwarchive-url re-search-forward "msg\\([0-9]+\\)\\.html" t string-to-number match-string 1 assoc "" nnwarchive-mail-archive-xover nnwarchive-groups elem nnwarchive-headers-cache nnwarchive-headers] 5])
(defalias 'nnwarchive-mail-archive-list #[nil "\306\307\211\211\211eb\210\310\311\307\306#\203= \312\313!\312\314!\313y\210\315\316\"\211\2033 	A\240\210\202 \nEB\202 -\306\207" [articles elem description group case-fold-search nnwarchive-groups t nil re-search-forward "<a href=\"\\([^/]+\\)/\">\\([^>]+\\)<" match-string 1 2 0 assoc] 5])
(defalias 'nnwarchive-mail-archive-xover #[(group) "\306\211\211\211eb\210\307\310\306\311#\203~ \312\313\314!!T\313\315!\314y\210\f\236\204 \316\317!\2038 \313\314!\313\315!\202< \320\320\211\321\n!\321	!\322\323S#\320\324\211\320\306\325\n	&\n.\nB\fB\202 ,\f\207" [date from subject article nnwarchive-headers group nil re-search-forward "<A[^>]*HREF=\"msg\\([0-9]+\\)\\.html[^>]+>\\([^<]+\\)<" t string-to-number match-string 1 2 looking-at "<UL><LI><EM>From</EM>:\\([^&]+\\)<\\([^&]+\\)>" "" nnweb-decode-entities-string format "<%05d%%%s>\n" 0 vector extra xref lines chars references id number] 12])
(defalias 'nnwarchive-mail-archive-xover-files #[(group articles) "\204 \306 \210\307	!\210eb\210\310\n!\210\311\305\"\311\305\312\313\"\"\314V\205A \306 \210\307!\210\310\n!\210\311\305\312\313\"\"\211\202# +\207" [nnwarchive-headers nnwarchive-xover-last-url group articles aux min erase-buffer nnwarchive-url nnwarchive-mail-archive-xover apply mapcar car 2 minart nnwarchive-xover-url] 7])
#@52 Modified rot13 table. tr/@A-Z[a-z/N-Z[@A-Mn-za-m/.
(defvar nnwarchive-caesar-translation-table nil (#$ . 18852))
#@59 Create modified rot13 table. tr/@A-Z[a-z/N-Z[@A-Mn-za-m/.
(defalias 'nnwarchive-make-caesar-translation-table #[nil "\304\305\306\307\"\310\311!\310\312!T\211\306W\203  \n\211I\210\202 \n\307SO\n\313\\\314\\O\nS\313\\O\n\314\\	O\n	\313\\	\315\\O\n	\211\313\\O\n	\315\\\316O\260,\207" [A a table i -1 make-string 256 0 mm-char-int 97 65 13 27 26 255] 9 (#$ . 18971)])
(defalias 'nnwarchive-from-r13 #[(from-r13) "\205$ \304\305\306!!\307\216r	q\210c\210\n\206 \310 \211\311ed\"\210\312 ,\207" [from-r13 #1=#:temp-buffer nnwarchive-caesar-translation-table message-caesar-translation-table get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) nnwarchive-make-caesar-translation-table message-caesar-region buffer-string] 3])
(defalias 'nnwarchive-mail-archive-article #[(group article) "\306\211\211\211\211\211\211\211\211\211\307@ABCD\214eb\210\310\311\306\307#\203r \312y\210e`}\210\313 \210eb\210\310\314\306\307#\203C \315\316!\210\2024 eb\210\310\317\306\307#\203U \315\316!\210\202F \320\321!\206` \322\320\323!!\320\324!\320\325!\320\326!db\210~\210\310\327\306\307#\203\342 \306y\210e`|\210\310\330\306\307#\210\306\210e`}\210\331 \210\313 \210eb\210\332 \210\203\253 \333\321!\210db\210\334\335\261\210\f\203\274 \333\326!\210db\210\336\f\335\261\210\n\203\311 db\210\337\n\340\261\210\203\332 \333\324!\210db\210\341\335\261\210db\210~\210\335c\210`D\310\342\306\307#\203\241\306y\210D`|\210\310\343\306\307#\210\312y\210\214D`}\210eb\210\344\306w\312V\203e`|\210m\204\235\345\346!\203G\312\224\312\225|\210`D\310\347\306\307#\203\212\312\224\312\225|\210\214D`}\210\331 \210\313 \210db\210)\202\212\345\350!\203n\351\352!B\312\224\306y\210`|\210\353\354\355\356EB#\357\360\261\210\307A\202\212`D\361c\210\362\363\306\307#\203\201\312\224\202\202db\210\360c\210\307A`D\344\306w\312V\203D`|\210\202db\210)`D\310\364\306\307#\203\324`@\312y\210\365\366D\307#\210\362\367@\307#\203\324\370\351\352!\371E\372\260CBC\202\271Dd|\210eb\210\355\373FSE#c\210C\203\374c\210C\203\375C\211AC@\261\210\202\356\335c\210A\203.\345\376!\204\310\377\306\307#\210\201G y\210`d}\210\201H \201I  ed|\210\261\210~\210)\201J  .\207" [case-fold-serch done id date subject from nil t search-forward "X-Head-End" 0 nnweb-decode-entities "<!--X-" replace-match "" " -->" mail-fetch-field "from" nnwarchive-from-r13 "from-r13" "date" "message-id" "subject" "<ul>" "</ul>" nnweb-remove-markup delete-blank-lines message-remove-header "From: " "\n" "Subject: " "X-Message-ID: <" ">\n" "Date: " "X-Body-of-Message" "X-Body-of-Message-End" " \n	" looking-at "<PRE>?\n?" "</PRE>" "<P><A HREF=\"\\([^\"]+\\)" match-string 1 "<#part>" "\n--\nExternal: \n" format "<URL:http://www.mail-archive.com/%s/%s>" "\n--\n" "<#/part>" "<#part type=\"text/html\" disposition=inline>" re-search-forward "[ \n	]*<PRE>\\|[ \n	]*<P><A HREF=\"" "X-References-End" search-backward "X-References" "msg\\([0-9]+\\)\\.html" "<" "%" ">" "Message-ID: <%05d%%%s>\n" "References:" " " "$" "\n\n" e mime url refs p group article -1 "MIME-Version: 1.0\n" mml-generate-mime buffer-string] 11])
(provide 'nnwarchive)