;ELC ;;; compiled by amu@tux.mit.edu on Sun Nov 15 14:43:50 1998 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.6.44/lisp/nnmbox.el ;;; emacs version 19.34.1. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`nnmbox.el' was compiled for Emacs 19.29 or later")) (byte-code "ÀÁ!ˆÀÂ!ˆÀÃ!ˆÀÄ!ˆÅÆÇÈ\"ȉF B ÅÊD B ȇ" [require nnheader message nnmail nnoo nnmbox mapcar #[(p) "C‡" [p] 1] nil nnoo-definition-alist "*internal-non-initialized-backend*" nnoo-state-alist] 4) #@61 The name of the mail box file in the user's home directory. (defvar nnmbox-mbox-file (expand-file-name "~/mbox") (#$ . 703)) (nnoo-define (quote nnmbox-mbox-file) nil) #@47 The name of the active file for the mail box. (defvar nnmbox-active-file (expand-file-name "~/.mbox-active") (#$ . 877)) (nnoo-define (quote nnmbox-active-file) nil) #@74 If non-nil, nnmbox will check the incoming mail file and split the mail. (defvar nnmbox-get-new-mail t (#$ . 1049)) (nnoo-define (quote nnmbox-get-new-mail) nil) #@48 Hook run narrowed to an article before saving. (defvar nnmbox-prepare-save-mail-hook nil (#$ . 1217)) (nnoo-define (quote nnmbox-prepare-save-mail-hook) nil) #@17 nnmbox version. (defconst nnmbox-version "nnmbox 1.0" (#$ . 1381)) #@38 Current nnmbox news group directory. (defvar nnmbox-current-group nil (#$ . 1454)) (byte-code "ÀÁÂ\"ˆÂÃ\fBÅÆ!„ÇÆ\fBÀÆÂ\"ˆÅÈ!„&ÂÈ\fBÀÈÂ\"ˆÅÉ!„8 É\fBÀÉÂ\"ˆÊË!‡" [nnoo-define nnmbox-current-group nil nnmbox-mbox-buffer current-load-list boundp nnmbox-status-string "" nnmbox-group-alist nnmbox-active-timestamp nnoo-define-basics-1 nnmbox] 3) (defalias 'nnmbox-retrieve-headers #[(sequence &optional newsgroup server fetch-old) "ŠqˆÁ ˆ\nGÃĉ‰‰ \nË\f \"ˆ\nƒ¤\n@Î!qˆÐÄÑ#„GebˆÐÄÑ#ƒvŠÒÓPÄÑ#ˆ`)ÐÕÄÑ#ˆ`SqˆÖ×\"cˆØ #ˆdbˆÙcˆ\nA T §ƒ \nVƒ  Û¦ÃUƒ ÜÝÞ ß_\n¥#ˆ‚ §ƒ·\nVƒ·ÜÝà\"ˆqˆá ˆ.â‡" [nntp-server-buffer erase-buffer sequence 0 nil stop start art-string article count number nnmbox-possibly-change-newsgroup newsgroup server nnmbox-article-string nnmbox-mbox-buffer search-forward t re-search-backward "^" message-unix-mail-delimiter "\n\n" format "221 %d Article retrieved.\n" insert-buffer-substring ".\n" nnmail-large-newsgroup 20 nnheader-message 5 "nnmbox: Receiving headers... %d%%" 100 "nnmbox: Receiving headers...done" nnheader-fold-continuation-lines headers] 6]) (nnoo-register-function (quote nnmbox-retrieve-headers)) (defalias 'nnmbox-open-server #[(server &optional defs) "ÀÁ\n #ˆÄ ˆÅ!„Ç ˆÈÁÉ#‡Ê!ƒ+Ç ˆÈÁË#‡ÈÁÌ\n$ˆÍ‡" [nnoo-change-server nnmbox server defs nnmbox-create-mbox file-exists-p nnmbox-mbox-file nnmbox-close-server nnheader-report "No such file: %s" file-directory-p "Not a regular file: %s" "Opened server %s using mbox %s" t] 5]) (nnoo-register-function (quote nnmbox-open-server)) (defalias 'nnmbox-close-server #[(&optional server) "ƒÁ!ƒÂ!ˆÃÄ \"ˆÆ‡" [nnmbox-mbox-buffer buffer-name kill-buffer nnoo-close-server nnmbox server t] 3]) (nnoo-register-function (quote nnmbox-close-server)) (defalias 'nnmbox-server-opened #[(&optional server) "À Ã\n!\fƒÅÆ\f #‚ *š….….È!…. ….È !‡" [nnmbox server backend nnoo-current-server nnoo-parent-backend format "%s+%s" nnmbox-mbox-buffer buffer-name nntp-server-buffer] 5]) (nnoo-register-function (quote nnmbox-server-opened)) (defalias 'nnmbox-request-article #[(article &optional newsgroup server buffer) "À \n\"ˆŠ qˆebˆÄÅ!ÇÈ#…€Ç‰ \nËÌ PÇÈ#ˆ`\nÎyˆÏÌ PÇÈ#ƒ<Ðy„?dbˆ` †I‰qˆÓ ˆÔ \n #ˆebˆÕÖ!ƒo×Ø!ˆÙcˆÎyˆ‚\\§ƒ}B‚Û +)‡" [nnmbox-possibly-change-newsgroup newsgroup server nnmbox-mbox-buffer search-forward nnmbox-article-string article nil t stop start re-search-backward "^" message-unix-mail-delimiter 1 re-search-forward -1 buffer nntp-server-buffer erase-buffer insert-buffer-substring looking-at "From " delete-char 5 "X-From-Line: " nnmbox-current-group nnmbox-article-group-number] 5]) (nnoo-register-function (quote nnmbox-request-article)) (defalias 'nnmbox-request-group #[(group &optional server dont-check) "À \n\"A@‰ƒÄ \"„ÆÇÈ #‚? ƒ+ÆÇÊ #ˆËÌ!‚?ÆÇÊ #ˆËÍ A @ZT @ A %)‡" [assoc group nnmbox-group-alist active nnmbox-possibly-change-newsgroup server nnheader-report nnmbox "No such group: %s" dont-check "Selected group %s" nnheader-insert "" "211 %d %d %d %s\n"] 7]) (nnoo-register-function (quote nnmbox-request-group)) (defalias 'nnmbox-request-scan #[(&optional group server) "À \n\"ˆÃ ˆÄÅÆÇ! É%‡" [nnmbox-possibly-change-newsgroup group server nnmbox-read-mbox nnmail-get-new-mail nnmbox #[nil "ŠqˆÁ )‡" [nnmbox-mbox-buffer save-buffer] 1] file-name-directory nnmbox-mbox-file #[nil "Šp qˆdbˆÂ!ˆ*Ã\f \"‡" [in-buf nnmbox-mbox-buffer insert-buffer-substring nnmail-save-active nnmbox-group-alist nnmbox-active-file] 3]] 6]) (nnoo-register-function (quote nnmbox-request-scan)) (defalias 'nnmbox-close-group #[(group &optional server) "À‡" [t] 1]) (nnoo-register-function (quote nnmbox-close-group)) (defalias 'nnmbox-request-create-group #[(group &optional server args) "ÀÁ!ˆÂ \f\"„ ÅÆBD\fBÇ\f\"ˆÉ‡" [nnmail-activate nnmbox assoc group nnmbox-group-alist 1 0 nnmail-save-active nnmbox-active-file t] 3]) (nnoo-register-function (quote nnmbox-request-create-group)) (defalias 'nnmbox-request-list #[(&optional server) "ŠÀ !ˆÂ )ć" [nnmail-find-file nnmbox-active-file nnmail-get-active nnmbox-group-alist t] 2]) (nnoo-register-function (quote nnmbox-request-list)) (defalias 'nnmbox-request-newgroups #[(date &optional server) "À !‡" [nnmbox-request-list server] 2]) (nnoo-register-function (quote nnmbox-request-newgroups)) (defalias 'nnmbox-request-list-newsgroups #[(&optional server) "ÀÁÂ\"‡" [nnheader-report nnmbox "LIST NEWSGROUPS is not implemented."] 3]) (nnoo-register-function (quote nnmbox-request-list-newsgroups)) (defalias 'nnmbox-request-expire-articles #[(articles newsgroup &optional server force) "À \n\"ˆÃÅÇÈ!ˆŠ qˆ\nƒ[\fƒ[ebˆËÌ\n@!ÅÃ#ƒRÍ `ň`{#‰ƒJÏÐÑ\n@ $ˆÒ ˆ‚R\n@B\nA‰\n„Ó ˆÔ \"A@ebˆËÌ@!ÅÃ#„@AXƒ‰@T ˆebˆ‚j)×\"ˆ\n¤+‡" [nnmbox-possibly-change-newsgroup newsgroup server t is-old nil rest nnmail-activate nnmbox nnmbox-mbox-buffer articles search-forward nnmbox-article-string nnmail-expired-article-p force nnheader-message 5 "Deleting article %d in %s..." nnmbox-delete-mail save-buffer assoc nnmbox-group-alist active nnmail-save-active nnmbox-active-file] 6]) (nnoo-register-function (quote nnmbox-request-expire-articles)) (defalias 'nnmbox-request-move-article #[(article group server accept-form &optional last) "ÀÁ!ÂÅ#ƒuŠ\fqˆÉp!ˆÊ ˆË\f!ˆebˆÍΊÏÐÂÑ#ˆ`)Ñ#ƒAÒyˆ`Óyˆ`|ˆ‚$Ô!Ö\f!ˆ )ƒuŠ×\"ˆqˆebˆÏÙ!ÂÑ#ƒlÚ ˆƒtÜ ˆ) *‡" [get-buffer-create " *nnmbox move*" nil result buf nnmbox-request-article article group server buffer-disable-undo erase-buffer insert-buffer-substring nntp-server-buffer re-search-forward "^X-Gnus-Newsgroup:" search-forward "\n\n" t 0 1 eval accept-form kill-buffer nnmbox-possibly-change-newsgroup nnmbox-mbox-buffer nnmbox-article-string nnmbox-delete-mail last save-buffer] 6]) (nnoo-register-function (quote nnmbox-request-move-article)) (defalias 'nnmbox-request-accept-article #[(group &optional server last) "À \n\"ˆÃ ˆpÄebˆÇÈ P!ƒÊË!ˆÇÌ!ƒ*ÍÎ!ˆ‚1ÏРѱˆÒÓ!ƒ´qˆebˆÔÕÄÖ#ˆ×yˆØÙÄÖ#ƒY`Ëyˆ`|ˆ‚GƒdÛÜÝ!!ˆ ;ƒr Þ !BC‚ußÞ!‰„†àá!ƒ†â‰‚Œã !@‰ƒ´Š$qˆdbˆå!ˆ&ƒ³ƒ©ç ˆè)*\"ˆë ˆ) *‡" [nnmbox-possibly-change-newsgroup group server nnmail-check-syntax nil result buf looking-at ">" message-unix-mail-delimiter delete-char 1 "X-From-Line: " replace-match "From " "From nobody " current-time-string "\n" nnmail-activate nnmbox search-forward "\n\n" t -1 re-search-backward "^X-Gnus-Newsgroup: " nnmail-cache-accepted-message-ids nnmail-cache-insert nnmail-fetch-field "message-id" nnmbox-active-number nnmail-article-group yes-or-no-p "Moved to `junk' group; delete article? " junk nnmbox-save-mail nnmbox-mbox-buffer insert-buffer-substring last nnmail-cache-close nnmail-save-active nnmbox-group-alist nnmbox-active-file save-buffer] 5]) (nnoo-register-function (quote nnmbox-request-accept-article)) (defalias 'nnmbox-request-replace-article #[(article group buffer) "À !ˆŠ\nqˆebˆÃÄ !ÆÇ#…#Èlj\"ˆÉ\n!ˆË ˆÇ)‡" [nnmbox-possibly-change-newsgroup group nnmbox-mbox-buffer search-forward nnmbox-article-string article nil t nnmbox-delete-mail insert-buffer-substring buffer save-buffer] 4]) (nnoo-register-function (quote nnmbox-request-replace-article)) (defalias 'nnmbox-request-delete-group #[(group &optional force server) "À \n\"ˆ ƒ5Š\fqˆebˆÅÇQÈ \nË\nÈÌ#ƒ,Ì Í ˆ‚ ƒ4Î ˆ+ÏÐ \"\"ÈÒ\"ˆÌ‡" [nnmbox-possibly-change-newsgroup group server force nnmbox-mbox-buffer "\nX-Gnus-Newsgroup: " nnmbox-current-group ":" nil found ident search-forward t nnmbox-delete-mail save-buffer delq assoc nnmbox-group-alist nnmail-save-active nnmbox-active-file] 4]) (nnoo-register-function (quote nnmbox-request-delete-group)) (defalias 'nnmbox-request-rename-group #[(group new-name &optional server) "À \n\"ˆŠ qˆebˆÄ ÆQÄÆQÈ \n Ì ÈÍ#ƒ2Î\n͉#ˆÍ ‚ ƒ:Ï ˆ,Ð \"‰ƒL ˆÈÓ\"ˆ)͇" [nnmbox-possibly-change-newsgroup group server nnmbox-mbox-buffer "\nX-Gnus-Newsgroup: " nnmbox-current-group ":" new-name nil found new-ident ident search-forward t replace-match save-buffer assoc nnmbox-group-alist entry nnmail-save-active nnmbox-active-file] 5]) (nnoo-register-function (quote nnmbox-request-rename-group)) (defalias 'nnmbox-delete-mail #[(&optional force leave-delim) "„Áyˆ`Âyˆ`|ˆŠŒŠÃÄ PÆÇ#ˆƒ%Âyˆ`‚'Á”)ÂyˆÉÄ PÆÇ#ƒJo„EƒEÊyˆ`‚GÁ”†Kd}ˆebˆ„]ÉËÆÇ#?…`ed|*‡" [force 0 1 re-search-backward "^" message-unix-mail-delimiter nil t leave-delim re-search-forward -2 "^X-Gnus-Newsgroup: "] 5]) (defalias 'nnmbox-possibly-change-newsgroup #[(newsgroup &optional server) "ƒÁ!„Â!ˆ ƒÄ !„(ŠÅÇÈ#‰qˆÉp!ˆ)\n„1ËÌ!ˆ ƒEÎ \n\"…F ‰‡Ð‡" [server nnmbox-server-opened nnmbox-open-server nnmbox-mbox-buffer buffer-name nnheader-find-file-noselect nnmbox-mbox-file nil raw buffer-disable-undo nnmbox-group-alist nnmail-activate nnmbox newsgroup assoc nnmbox-current-group t] 4]) (defalias 'nnmbox-article-string #[(article) "§ƒÁ\nÃÄ!Å°‡ÆP‡" [article "\nX-Gnus-Newsgroup: " nnmbox-current-group ":" int-to-string " " "\nMessage-ID: "] 5]) (defalias 'nnmbox-article-group-number #[nil "ŠebˆÀÁÂÃ#…Ĕĕ{ÅƔƕ{!B)‡" [re-search-forward "^X-Gnus-Newsgroup: +\\([^:]+\\):\\([0-9]+\\) " nil t 1 string-to-int 2] 4]) #@32 Called narrowed to an article. (defalias 'nnmbox-save-mail #[(group-art) "À PebˆÃ\n!„ÄŠƱˆebˆÇyˆÈ\nÉÊ#ƒ+ËyˆÌcˆ‚Í ˆÎ!ˆÐ!ˆÑÒ!ˆÑÓ!ˆ)‡" ["^" message-unix-mail-delimiter delim looking-at "From nobody " current-time-string "\n" 1 re-search-forward nil t 0 "> " nnmail-insert-lines nnmail-insert-xref group-art nnmbox-insert-newsgroup-line run-hooks nnmail-prepare-save-mail-hook nnmbox-prepare-save-mail-hook] 4 (#$ . 10661)]) (defalias 'nnmbox-insert-newsgroup-line #[(group-art) "ŠebˆÀÁÂÃ#ƒ'Äuˆ ƒ'ÆÇ @@ @AÈ $cˆ A‰„)Ç" [search-forward "\n\n" nil t -1 group-art format "X-Gnus-Newsgroup: %s:%d %s\n" current-time-string] 6]) (defalias 'nnmbox-active-number #[(group) "À \n\"A@‰ƒ ‰AT¡ˆ‚ ĉB‰D\nB A)‡" [assoc group nnmbox-group-alist active 1] 4]) (defalias 'nnmbox-create-mbox #[nil "À !?…ÂÉ ÄÅ%‡" [file-exists-p nnmbox-mbox-file nnmail-write-region 1 t nomesg] 6]) (defalias 'nnmbox-read-mbox #[nil "ÀÁ!ˆÂ ˆ …Ä !…Š qˆÅ Æ!U)?…ÊÈ P\nˉ‰\f ÑËÒ#‰qˆÓp!ˆƒ€dbˆÔÕÖ@@\"Ë×#ƒwØÙ”Ù•{!‰\f@A@AYƒw@A@\fT¡ˆA‰„HebˆÚË×#…ÁÛ”ÜÝŠÚË×#ƒ¡Û”†¢d‰ )×#„ºŠŒ }ˆÞßà!!ˆ* bˆ‚ƒ.‡" [nnmail-activate nnmbox nnmbox-create-mbox nnmbox-mbox-buffer buffer-name buffer-size nnheader-file-size nnmbox-mbox-file "^" message-unix-mail-delimiter nnmbox-group-alist nil number end start alist delim nnheader-find-file-noselect raw buffer-disable-undo re-search-backward format "^X-Gnus-Newsgroup: %s:\\([0-9]+\\) " t string-to-number 1 re-search-forward 0 search-forward "\nX-Gnus-Newsgroup: " nnmbox-save-mail nnmail-article-group nnmbox-active-number] 7]) (provide (quote nnmbox))