;ELC ;;; compiled by larsi@narfi.ifi.uio.no on Fri Nov 3 03:30:51 1995 ;;; from file /home/menja/c/larsi/dgnus/lisp/nnmbox.el ;;; emacs version 19.29.90.3. ;;; 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 "ÀÁ!ˆÀÂ!ˆÀÃ!‡" [require nnheader rmail nnmail] 2) #@61 The name of the mail box file in the user's home directory. (defvar nnmbox-mbox-file (expand-file-name "~/mbox") (#$ . 538)) #@47 The name of the active file for the mail box. (defvar nnmbox-active-file (expand-file-name "~/.mbox-active") (#$ . 669)) #@74 If non-nil, nnmbox will check the incoming mail file and split the mail. (defvar nnmbox-get-new-mail t (#$ . 796)) #@48 Hook run narrowed to an article before saving. (defvar nnmbox-prepare-save-mail-hook nil (#$ . 917)) #@17 nnmbox version. (defconst nnmbox-version "nnmbox 1.0" (#$ . 1024)) #@38 Current nnmbox news group directory. (defvar nnmbox-current-group nil (#$ . 1097)) (byte-code "ÀÁ\nBÃÄ!„ÅÄ\nBÃÆ!„ÀÆ\nBÃÇ!„(ÀÇ\nBÃÈ!„5ÀÈ\nBÃÉ!„BÀ É\nBÃÊ!„_Ë DÌ\fDÍ DÎÏЯ\nÊ\nBÀ‡" [nil nnmbox-mbox-buffer current-load-list boundp nnmbox-status-string "" nnmbox-group-alist nnmbox-active-timestamp nnmbox-current-server nnmbox-server-alist nnmbox-server-variables nnmbox-mbox-file nnmbox-active-file nnmbox-get-new-mail (nnmbox-current-group nil) (nnmbox-status-string "") (nnmbox-group-alist nil)] 6) (defalias 'nnmbox-retrieve-headers #[(sequence &optional newsgroup server) "ŠqˆÁ ˆ\nGÃĉ‰‰ \nË\f!ˆ\n@;ƒ(Í‚ß\nƒ°\n@Î!qˆÐÄÑ#„OebˆÐÄÑ#ƒ~ŠÒÓPÄÑ#ˆ`)ÐÕÄÑ#ˆ`SqˆÖ×\"cˆØ #ˆdbˆÙcˆ\nA T §ƒ(\nVƒ( Û¦ÃUƒ(ƒ(ÝÞ ß_\n¥\"ˆ‚(§ƒÇ\nVƒÇƒÇÝà!ˆqˆebˆáâÄÑ#ƒÞãäщ#ˆ‚ÍÍ.‡" [nntp-server-buffer erase-buffer sequence 0 nil stop start art-string article count number nnmbox-possibly-change-newsgroup newsgroup headers nnmbox-article-string nnmbox-mbox-buffer search-forward t re-search-backward "^" rmail-unix-mail-delimiter "\n\n" format "221 %d Article retrieved.\n" insert-buffer-substring ".\n" nnmail-large-newsgroup 20 gnus-verbose-backends message "nnmbox: Receiving headers... %d%%" 100 "nnmbox: Receiving headers...done" re-search-forward "\\( ?\n[ ]+\\)+" replace-match " "] 6]) (defalias 'nnmbox-open-server #[(server &optional defs) "À ˆ \nšƒ Ç\nƒ\nÄ !DBÇ \"‰ƒ6ÉA@!ˆÊ\"‚<Ë \f\"ˆ) ‰‡" [nnheader-init-server-buffer server nnmbox-current-server t nnheader-save-variables nnmbox-server-variables nnmbox-server-alist assoc state nnheader-restore-variables delq nnheader-set-init-variables defs] 4]) (defalias 'nnmbox-close-server #[(&optional server) "À‡" [t] 1]) (defalias 'nnmbox-server-opened #[(&optional server) " š…\n…Ã\n!…\f…Ã\f!‡" [server nnmbox-current-server nnmbox-mbox-buffer buffer-name nntp-server-buffer] 2]) (defalias 'nnmbox-status-message #[(&optional server) "‡" [nnmbox-status-string] 1]) (defalias 'nnmbox-request-article #[(article &optional newsgroup server buffer) "À !ˆ\n;?…vŠ qˆebˆÄÅ\n!ÆÇ#…uƉ ÊË\fPÆÇ#ˆ` ÍyˆÎË\fPÆÇ#ƒ@Ïy„Cdbˆ`†M‰qˆÒ ˆÓ  #ˆebˆÔÕ!ƒsÖ×!ˆØcˆÍyˆ‚`+Ç)‡" [nnmbox-possibly-change-newsgroup newsgroup article nnmbox-mbox-buffer search-forward nnmbox-article-string nil t stop start re-search-backward "^" rmail-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: "] 5]) (defalias 'nnmbox-request-group #[(group &optional server dont-check) "ŠÀ !…A\nƒÂAÄ !ˆŠ qˆÆ ˆÇ \" ÊË A@A A@@ZT A@@ A@A @%cˆ*Ã)‡" [nnmbox-possibly-change-newsgroup group dont-check t nnmbox-get-new-mail nntp-server-buffer erase-buffer assoc nnmbox-group-alist active format "211 %d %d %d %s\n"] 6]) (defalias 'nnmbox-close-group #[(group &optional server) "À‡" [t] 1]) (defalias 'nnmbox-request-list #[(&optional server) "ƒÁ ˆŠÂ !†Ä Æ \"ˆÂ !)‡" [server nnmbox-get-new-mail nnmail-find-file nnmbox-active-file nnmail-get-active nnmbox-group-alist nnmail-save-active] 3]) (defalias 'nnmbox-request-newgroups #[(date &optional server) "À !‡" [nnmbox-request-list server] 2]) (defalias 'nnmbox-request-list-newsgroups #[(&optional server) "À‡" ["nnmbox: LIST NEWSGROUPS is not implemented." nnmbox-status-string nil] 1]) (defalias 'nnmbox-request-post #[(&optional server) "ÀÁ!‡" [mail-send-and-exit nil] 2]) (defalias (quote nnmbox-request-post-buffer) (quote nnmail-request-post-buffer)) (defalias 'nnmbox-request-expire-articles #[(articles newsgroup &optional server force) "À !ˆ\nƒ\n !† ÅÇÉÊ!ˆŠ qˆ\fƒrƒrebˆÍÎ\f@!ÇÅ#ƒi„OÐÑ `Lj`{\"\fV‰ƒaƒ[ÓÔ\f@\"ˆÕ ˆ‚i\f@B\fA‰\f„$Ö ˆ× \"A@ebˆÍÎ@!ÇÅ#„¤@AXƒ¤‰@T ˆebˆ‚)Ú\"ˆ\f¤,‡" [nnmbox-possibly-change-newsgroup newsgroup nnmail-expiry-wait-function nnmail-expiry-wait days t is-old nil rest nnmail-activate nnmbox nnmbox-mbox-buffer articles search-forward nnmbox-article-string force nnmail-days-between current-time-string gnus-verbose-backends message "Deleting article %s..." nnmbox-delete-mail save-buffer assoc nnmbox-group-alist active nnmail-save-active nnmbox-active-file] 5]) (defalias 'nnmbox-request-move-article #[(article group server accept-form &optional last) "À !ˆÂÃ!ÄÇ  #ƒtŠqˆÊp!ˆË ˆÌ !ˆebˆÎÏŠÐÑÄÒ#ˆ`)Ò#ƒFÓyˆ`Ôyˆ`|ˆ‚)Õ!×!ˆ )ƒtŠqˆebˆÐÙ!ÄÒ#ƒkÚ ˆƒsÜ ˆ) *‡" [nnmbox-possibly-change-newsgroup group get-buffer-create " *nnmbox move*" nil result buf nnmbox-request-article article 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-mbox-buffer nnmbox-article-string nnmbox-delete-mail last save-buffer] 6]) (defalias 'nnmbox-request-accept-article #[(group &optional last) "pÀebˆÃÄ!ƒÅÆ!ˆ‚ÇÈ É±ˆÊË!ƒn\nqˆebˆÌÍÀÎ#ˆÏyˆÐÑÀÎ#ƒB`Òyˆ`|ˆ‚0Ó;…K!‰ƒnŠqˆÖ\n!ˆƒbØ ˆ )ƒnÙ\"ˆ @*‡" [nil result buf looking-at "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: " 1 nnmbox-save-mail group nnmbox-mbox-buffer insert-buffer-substring last save-buffer nnmail-save-active nnmbox-group-alist nnmbox-active-file] 4]) (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]) (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 "^" rmail-unix-mail-delimiter nil t leave-delim re-search-forward -2 "^X-Gnus-Newsgroup: "] 5]) (defalias 'nnmbox-possibly-change-newsgroup #[(newsgroup) "ƒ\nÁ!„ŠÂ ÄÅ#‰qˆÆp!ˆ)„\"ÈÉ!ˆ\n…5Ë\n\"…5\n‰\f‡" [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] 4]) (defalias 'nnmbox-article-string #[(article) "À ÂÃ\f!Å°‡" ["\nX-Gnus-Newsgroup: " nnmbox-current-group ":" int-to-string article " "] 5]) #@32 Called narrowed to an article. (defalias 'nnmbox-save-mail #[(&optional group) "ƒ ÁDC‚\f\nÃÄ!ŸÆ ˆÇ !ˆÈ !ˆÉÊ!ˆ *‡" [group "" nnmail-split-methods nnmail-article-group nnmbox-active-number group-art nnmail-insert-lines nnmail-insert-xref nnmbox-insert-newsgroup-line run-hooks nnml-prepare-save-mail-hook] 2 (#$ . 7491)]) (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-read-mbox #[nil "ÀÁ!ˆÂ !„Äʼn ÆÇ%ˆ…,É!…,ŠqˆÊ ËÌ !8U)?…ŠŠÍPωÓ ÏÔ#‰qˆÕp!ˆebˆÖÏÆ#…‰×”ØÙŠÖÏÆ#ƒl×”†md‰)Æ#„‚ŠŒ}ˆÚ ˆ*bˆ‚N,‡" [nnmail-activate nnmbox file-exists-p nnmbox-mbox-file write-region 1 t nomesg nnmbox-mbox-buffer buffer-name buffer-size 7 file-attributes "^" rmail-unix-mail-delimiter nil end start delim nnheader-find-file-noselect raw buffer-disable-undo re-search-forward 0 search-forward "\nX-Gnus-Newsgroup: " nnmbox-save-mail] 6]) #@25 Read new incoming mail. (defalias 'nnmbox-get-new-mail #[(&optional group) "À ! ÄÄÇ ˆ?† ??…½\nƒuÊ\n@!ƒnËÌ\n@!8ÍVƒnƒ:ÏÐ!ˆÑ\n@ÓP\"‰ƒn BŠÔ\n@ \"Õ Ö× $qˆdbˆÚ!ˆÛ!ˆ*\nA‰„Ü!ƒŒŠÝ\"ˆqˆà ˆ)ƒ•áâ!ˆ…½@#ƒ³Ê !ƒ³ä !ƒ³å !ˆA‰„šÄ,‡" [nnmail-get-spool-files group spools group-in nil incoming incomings nnmbox-read-mbox nnmbox-get-new-mail nnmail-spool-file file-exists-p 7 file-attributes 0 gnus-verbose-backends message "nnmbox: Reading incoming mail..." nnmail-move-inbox nnmbox-mbox-file "-Incoming" nnmail-get-split-group nnmail-split-incoming nnmbox-save-mail t in-buf nnmbox-mbox-buffer insert-buffer-substring kill-buffer buffer-modified-p nnmail-save-active nnmbox-group-alist nnmbox-active-file save-buffer run-hooks nnmail-read-incoming-hook nnmail-delete-incoming file-writable-p delete-file] 6 (#$ . 8655)]) (provide (quote nnmbox))