;ELC ;;; compiled by larsi@ifi.uio.no on Fri Jun 28 20:34:25 1996 ;;; from file /gd/gnu/emacs/19.0/lisp/nnmbox.el ;;; emacs version 19.31.4. ;;; 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 ȇ" [require nnheader message nnmail nnoo nnmbox mapcar #[(p) "C" [p] 1] nil nnoo-definition-alist] 4) #@61 The name of the mail box file in the user's home directory. (defvar nnmbox-mbox-file (expand-file-name "~/mbox") (#$ . 608)) (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") (#$ . 782)) (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 (#$ . 954)) (nnoo-define (quote nnmbox-get-new-mail) nil) #@48 Hook run narrowed to an article before saving. (defvar nnmbox-prepare-save-mail-hook nil (#$ . 1121)) (nnoo-define (quote nnmbox-prepare-save-mail-hook) nil) #@17 nnmbox version. (defconst nnmbox-version "nnmbox 1.0" (#$ . 1285)) #@38 Current nnmbox news group directory. (defvar nnmbox-current-group nil (#$ . 1358)) (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#vP#`)#`Sq\"c #dbc\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 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\"  !  !" [nnoo-current-server-p nnmbox server nnmbox-mbox-buffer buffer-name nntp-server-buffer] 3]) (nnoo-register-function (quote nnmbox-server-opened)) (defalias 'nnmbox-request-article #[(article &optional newsgroup server buffer) " \n\" qeb!#lj \n P#`\ny P#<y?db` Iq \n #eb!o!cy\\}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) " \f %" [nnmbox-read-mbox nnmail-get-new-mail nnmbox #[nil "q )" [nnmbox-mbox-buffer save-buffer] 1] nnmbox-mbox-file group #[nil "p qdb!*\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-list #[(&optional server) " ! )" [nnmail-find-file nnmbox-active-file nnmail-get-active nnmbox-group-alist] 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@Tebj)\"\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) " \n\"! \n#wqp!  !ebϊ#`)#Gy`y`|*!!)wqeb !#n v )*" [nnmbox-possibly-change-newsgroup group server get-buffer-create " *nnmbox move*" nil result buf nnmbox-request-article article 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]) (nnoo-register-function (quote nnmbox-request-move-article)) (defalias 'nnmbox-request-accept-article #[(group &optional server last) " \n\" peb!!$ ͱ!zqeb#y#L`y`|: ;S !zqdb!n )z\" @*" [nnmbox-possibly-change-newsgroup group server nnmail-check-syntax 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 nnmbox-mbox-buffer insert-buffer-substring last save-buffer nnmail-save-active nnmbox-group-alist nnmbox-active-file] 4]) (nnoo-register-function (quote nnmbox-request-accept-article)) (defalias 'nnmbox-request-replace-article #[(article group buffer) " !\nqeb !##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\fqebQ \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\" qeb QQ \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#JoEEy`GKd}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) "!!  !(#qp!)\n1! 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 #[(&optional group) " DC\f\n!Peb!, ̱eby#Ayc/ ! !!! +" [group "" nnmail-split-methods nnmail-article-group nnmbox-active-number group-art "^" 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 nnmbox-insert-newsgroup-line run-hooks nnmail-prepare-save-mail-hook nnmbox-prepare-save-mail-hook] 4 (#$ . 9827)]) (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 ĉBD\nB A)" [assoc group nnmbox-group-alist active 1] 4]) (defalias 'nnmbox-read-mbox #[nil "! !ʼn %*!*q !U)? Pω #qp!db@@\"#Ŕŕ{!@A@AY@A@TAUeb#ݔߊ#ݔd)#} *b." [nnmail-activate nnmbox file-exists-p nnmbox-mbox-file write-region 1 t nomesg nnmbox-mbox-buffer buffer-name buffer-size nnheader-file-size "^" 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]+\\) " string-to-number re-search-forward 0 search-forward "\nX-Gnus-Newsgroup: " nnmbox-save-mail] 7]) (provide (quote nnmbox))