;ELC ;;; compiled by gutnik@multics.mit.edu on Thu Jun 10 13:07:25 2004 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/xemacs-gnus-5.10.6/lisp/nnwarchive.el ;;; emacs version 21.4 (patch 4) "Artificial Intelligence" XEmacs Lucid. ;;; bytecomp version 2.27 XEmacs; 2000-09-12. ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 19. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "20"))) (error "`nnwarchive.el' was compiled for Emacs 20")) (or (boundp 'current-load-list) (setq current-load-list nil)) (byte-code "!!!!!!!!\"щF BD\nB B! B!ч" [nnwarchive-default-type nnwarchive-type-definition nnoo-state-alist nnoo-definition-alist current-load-list require nnoo message gnus-util gnus gnus-bcklg nnmail mm-util mm-url nnwarchive mapcar #[(p) "C" [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) #@111 Where nnwarchive will save its files. This is a Gnus server variable. See Info node `(gnus)Select Methods'. (defvar nnwarchive-directory (nnheader-concat gnus-directory "warchive/") (#$ . 2313)) (nnoo-define 'nnwarchive-directory nil) #@97 The type of nnwarchive. This is a Gnus server variable. See Info node `(gnus)Select Methods'. (defvar nnwarchive-type nil (#$ . 2556)) (nnoo-define 'nnwarchive-type nil) #@100 The address of nnwarchive. This is a Gnus server variable. See Info node `(gnus)Select Methods'. (defvar nnwarchive-address "" (#$ . 2735)) (nnoo-define 'nnwarchive-address nil) #@104 Your login name for the group. This is a Gnus server variable. See Info node `(gnus)Select Methods'. (defvar nnwarchive-login nil (#$ . 2922)) (nnoo-define 'nnwarchive-login nil) #@102 Your password for the group. This is a Gnus server variable. See Info node `(gnus)Select Methods'. (defvar nnwarchive-passwd nil (#$ . 3110)) (byte-code "\" B!\" B!\" B!\" B!\" B\n B! \" B! \" B!\" B!\" B!\" B!\" B!\" B!\" B!\" B!\" B!\" B!\" B!\" B!\" B!\" B!\" B! B! B!\"!" [nnwarchive-nov-is-evil nnwarchive-authentication nnwarchive-headers-cache nnwarchive-groups nnwarchive-xover-files current-load-list nnoo-define nnwarchive-passwd nil boundp nnwarchive-version "nnwarchive 1.0" nnwarchive-open-url nnwarchive-open-dissect nnwarchive-list-url nnwarchive-list-dissect nnwarchive-list-groups 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) "\n A @ @!P! AL Ak,Ň" [defs nnwarchive-type-definition type #1=#:--dolist-temp--12058 def nil intern "nnwarchive-" symbol-name] 6]) (defalias 'nnwarchive-backlog '(macro . #[(&rest form) "BBBE" [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 "##" [put nnwarchive-backlog lisp-indent-function 0 edebug-form-spec (form body)] 4) (defalias 'nnwarchive-backlog-enter-article #[(group number buffer) " \" \n\n Ȏ  #-" [gnus-backlog-articles gnus-backlog-hashtb nnwarchive-backlog-hashtb nnwarchive-backlog-articles nnwarchive-address nnwarchive-keep-backlog format " *nnwarchive backlog %s*" ((byte-code "  ć" [nnwarchive-backlog-hashtb gnus-backlog-hashtb nnwarchive-backlog-articles gnus-backlog-articles 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) " \"Ȏ \n #- Bqeb Z!) \") \n q c p# # )B)" [nnwarchive-keep-backlog nntp-server-buffer buffer contents group article format " *nnwarchive backlog %s*" ((byte-code "  ć" [nnwarchive-backlog-hashtb gnus-backlog-hashtb nnwarchive-backlog-articles gnus-backlog-articles nil] 1)) gnus-backlog-request-article nil nnwarchive-url erase-buffer nnwarchive-backlog-enter-article nnheader-report nnwarchive "Fetched article %s" nnwarchive-address nnwarchive-backlog-articles nnwarchive-backlog-hashtb gnus-backlog-hashtb gnus-backlog-articles gnus-backlog-buffer gnus-keep-backlog nnwarchive-buffer nnwarchive-article-offset article1 nnwarchive-article-url nnwarchive-article-dissect] 4]) (defalias 'nnwarchive-retrieve-headers #[(articles &optional group server fetch-old) "  \"#$!!!ʎr!qrq )p̉ @  $eb#udb`rq \"c#c) A@.և \n\"A%q & \")q @ A!Ai, \n\"\"\" B\nB)ه" [#1=#:--dolist-temp--12060 nnwarchive-headers nnwarchive-headers-cache #2=#:--dolist-temp--12059 art group nnwarchive-possibly-change-server get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "!!" [#3=#:temp-buffer 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 nntp-server-buffer e b buf articles header server #3# elem gnus-nov-is-evil nnwarchive-nov-is-evil nnwarchive-buffer nnwarchive-xover-files] 7]) (nnoo-register-function 'nnwarchive-retrieve-headers) (defalias 'nnwarchive-request-group #[(group &optional server dont-check) "\n\" C! \"\" # A@ A@ !%)" [nnwarchive-groups dont-check server nnwarchive-list-groups elem group 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) " \n\" \n$" [buffer article server group nnwarchive-possibly-change-server nnwarchive-get-article] 5]) (nnoo-register-function 'nnwarchive-request-article) (defalias 'nnwarchive-close-server #[(&optional server) " ! ! q !) \n\" ˎ - \"" [nnwarchive-backlog-hashtb nnwarchive-backlog-articles nnwarchive-address nnwarchive-keep-backlog server nnwarchive-buffer nnwarchive-server-opened gnus-buffer-live-p kill-buffer format " *nnwarchive backlog %s*" ((byte-code "  ć" [nnwarchive-backlog-hashtb gnus-backlog-hashtb nnwarchive-backlog-articles gnus-backlog-articles nil] 1)) gnus-backlog-shutdown nnoo-close-server nnwarchive gnus-backlog-hashtb gnus-backlog-articles gnus-backlog-buffer gnus-keep-backlog] 4]) (nnoo-register-function 'nnwarchive-close-server) (defalias 'nnwarchive-request-list #[(&optional server) " \"q !\n\n )ʇ" [nnwarchive-buffer server nnwarchive-list-dissect nnwarchive-list-url 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) " # ! \"\" #! q \n\n! )ч" [defs nnwarchive-open-dissect nnwarchive-open-url nnwarchive-passwd nnwarchive-login server nnoo-change-server nnwarchive nnwarchive-init read-string format "Login at %s: " read-passwd "Password for %s at %s: " nnwarchive-read-groups erase-buffer nnwarchive-url t nnwarchive-authentication user-mail-address nnwarchive-groups nnwarchive-buffer] 5]) (byte-code "!!" [nnoo-register-function nnwarchive-open-server nnoo-define-skeleton-1 nnwarchive] 2) (defalias 'nnwarchive-possibly-change-server #[(&optional group server) "!!?!" [server nnwarchive-init nnwarchive-server-opened nnwarchive-open-server] 2]) (defalias 'nnwarchive-read-groups #[nil "\nP \" !!!ˎr q !ebp!+)" [nnwarchive-groups nnwarchive-directory nnwarchive-address #1=#:temp-buffer file expand-file-name "groups-" file-exists-p get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "!!" [#1# buffer-name kill-buffer] 2)) insert-file-contents read] 3]) (defalias 'nnwarchive-write-groups #[nil "\nP \"!!ʎr qp\")r q~ed %," [nnwarchive-groups nnwarchive-directory nnwarchive-address #1=#:temp-file #2=#:temp-buffer expand-file-name "groups-" get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "!!" [#2# buffer-name kill-buffer] 2)) prin1 write-region nil 0] 7]) #@30 Initialize buffers and such. (defalias 'nnwarchive-init #[(server) " ! k \nA@ AA kn @g \" +!!! #!) !" [nnwarchive-type-definition nnwarchive-type defs def server type intern nil "" address error "Undefined server %s" file-exists-p gnus-make-directory gnus-buffer-live-p nnheader-set-temp-buffer format " *nnwarchive %s %s*" nnwarchive-set-default nnwarchive-directory nnwarchive-buffer nnwarchive-default-type] 5 (#$ . 10495)]) (defalias 'nnwarchive-eval #[(expr) ":@!A!B9!" [expr nnwarchive-eval eval] 3]) (defalias 'nnwarchive-url #[(xurl) " pƎ! @a A @ A!\" !\"!. @a A @ A!\" !\"!+" [enable-multibyte-characters mm-emacs-mule url-confirmation-func url-cookie-multiple-line default-enable-multibyte-characters xurl ((byte-code " q!" [#1=#:multibyte #2=#:buffer set-buffer-multibyte] 2)) nil set-buffer-multibyte identity post mm-url-fetch-form nnwarchive-eval mm-url-insert apply format #2# #1#] 5]) (defalias 'nnwarchive-generate-active #[nil " q \n@ @! A@!ʱ\nAf+Ň" [nnwarchive-groups nntp-server-buffer #1=#:--dolist-temp--12061 elem erase-buffer nil prin1-to-string " " number-to-string 0 " 1 y\n"] 5]) (defalias 'nnwarchive-paged #[(articles) "Ɖ\nA@ Yo j B \\` +" [nnwarchive-xover-page-size nnwarchive-headers articles next narts art nil 0] 3]) (defalias 'nnwarchive-egroups-list-groups #[(groups) "q @ !eb#!! \"\nA EB) \"A ! \"\n B B) A&,Ƈ" [nnwarchive-groups nnwarchive-headers-cache elem #1=#:--dolist-temp--12062 articles group nil erase-buffer nnwarchive-url re-search-forward "of \\([0-9]+\\)[ \n ]*" t string-to-number match-string 1 assoc "" nnwarchive-egroups-xover nnwarchive-headers nnwarchive-buffer groups nnwarchive-xover-last-url] 5]) (defalias 'nnwarchive-egroups-list #[nil "ljeb#!! \n\" AΠb E\nBY-Ƈ" [case-fold-search articles nnwarchive-groups description elem group t nil re-search-forward "href=\"/group/\\([^/\"> ]+\\)" match-string 1 2 assoc 0] 5]) (defalias 'nnwarchive-egroups-xover #[(group) "Ɖeb#!!!!y\n c!!y!!\n ! ! \n!հ׉ &\n.\nB B\n, " [group nnwarchive-headers article subject from date nil re-search-forward "]+>\\([^<]+\\)<" t match-string 1 string-to-number 2 3 looking-at "]+>]+>\\([^<]+\\)" mm-url-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#e`|db#`d|eb#!s " [search-forward "
" nil t search-backward "
" re-search-forward "]+>\\([^<]+\\)" replace-match "\\1" mm-url-decode-entities buffer-string] 4]) (defalias 'nnwarchive-egroups-xover-files #[(group articles) "Ɖ \"! A@db\n!n !*" [group nnwarchive-xover-dissect nnwarchive-xover-url articles aux auxs nil nnwarchive-paged sort < nnwarchive-url nnwarchive-egroups-xover] 4]) (defalias 'nnwarchive-mail-archive-list-groups #[(groups) "q @ !eb#!!T \"\nA EB) \"A ! \"\n B B) A%,Ƈ" [nnwarchive-groups nnwarchive-headers-cache elem #1=#:--dolist-temp--12063 articles group 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-headers nnwarchive-buffer groups nnwarchive-xover-last-url] 5]) (defalias 'nnwarchive-mail-archive-list #[nil "ljeb#!!y \" A ] \nE BT-Ƈ" [case-fold-search nnwarchive-groups description elem group articles t nil re-search-forward "\\([^>]+\\)<" match-string 1 2 0 assoc] 5]) (defalias 'nnwarchive-mail-archive-xover #[(group) "Ɖeb#!!T!y\n f!!!Љ\n ! ! \nS#ԉ &\n.\nB B, " [extra nnwarchive-headers article subject from date nil re-search-forward "]*HREF=\"msg\\([0-9]+\\)\\.html[^>]+>\\([^<]+\\)<" t string-to-number match-string 1 2 looking-at "