;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:45:40 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/gnus/nnmbox.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; 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 "`nnmbox.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\302\303!\210\302\304!\210\302\305!\210\302\306!\210\307\310\311\312\"\312\211FB\307\313D B\312\207" [nnoo-definition-alist nnoo-state-alist require nnheader message nnmail nnoo nnmbox mapcar #[(p) "C\207" [p] 1] nil "*internal-non-initialized-backend*"] 4) #@61 The name of the mail box file in the user's home directory. (defvar nnmbox-mbox-file (expand-file-name "~/mbox") (#$ . 893)) (nnoo-define 'nnmbox-mbox-file nil) #@47 The name of the active file for the mail box. (defvar nnmbox-active-file (expand-file-name "~/.mbox-active") (#$ . 1060)) (nnoo-define '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 (#$ . 1226)) (nnoo-define 'nnmbox-get-new-mail nil) #@48 Hook run narrowed to an article before saving. (defvar nnmbox-prepare-save-mail-hook nil (#$ . 1387)) (nnoo-define 'nnmbox-prepare-save-mail-hook nil) #@17 nnmbox version. (defconst nnmbox-version "nnmbox 1.0" (#$ . 1544)) #@38 Current nnmbox news group directory. (defvar nnmbox-current-group nil (#$ . 1617)) (byte-code "\306\307\310\"\210\301B\310\302B\311\302!\204\312\306\302\310\"\210\303B\311\303!\204(\310\306\303\310\"\210\304B\311\304!\2049\310\306\304\310\"\210\313B\311\313!\204K  \306\313\310\"\210\314B\311\314!\204]\310\f\306\314\310\"\210\315B\311\315!\204o  \306\315\310\"\210\316B\311\316!\204\201\310\306\316\310\"\210\317\320!\207" [current-load-list nnmbox-mbox-buffer nnmbox-status-string nnmbox-group-alist nnmbox-active-timestamp mm-binary-coding-system nnoo-define nnmbox-current-group nil boundp "" nnmbox-file-coding-system nnmbox-file-coding-system-for-write nnmbox-active-file-coding-system nnmbox-active-file-coding-system-for-write nnoo-define-basics-1 nnmbox] 3) (defalias 'nnmbox-retrieve-headers #[(sequence &optional newsgroup server fetch-old) "\212q\210\306 \210 G\307\310\211\211\211\311 \"\210 \203\231 @\312 !!q\210\313\f\310\314#\204?eb\210\313\f\310\314#\203k\212\315\316\"P\310\314#\210`)\313\317\310\314#\210`Sq\210\320\321 \"c\210\322! \n#\210db\210\323c\210 AT#\247\203#V\203\324\325\246!\203\326\327\330\331_\245#\210\202#\247\203\254#V\203\254\326\327\332\"\210q\210\333 \210.\334\207" [nntp-server-buffer sequence stop start art-string article erase-buffer 0 nil nnmbox-possibly-change-newsgroup nnmbox-article-string search-forward t re-search-backward "^" "\n\n" format "221 %d Article retrieved.\n" insert-buffer-substring ".\n" zerop 20 nnheader-message 5 "nnmbox: Receiving headers... %d%%" 100 "nnmbox: Receiving headers...done" nnheader-fold-continuation-lines headers count number newsgroup server nnmbox-mbox-buffer message-unix-mail-delimiter nnmail-large-newsgroup] 6]) (nnoo-register-function 'nnmbox-retrieve-headers) (defalias 'nnmbox-open-server #[(server &optional defs) "\303\304 #\210\305 \210\306\n!\204\307 \210\310\304\311\n#\207\312\n!\203'\307 \210\310\304\313\n#\207\310\304\314\n$\210\315\207" [server defs nnmbox-mbox-file nnoo-change-server nnmbox nnmbox-create-mbox file-exists-p 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 'nnmbox-open-server) (defalias 'nnmbox-close-server #[(&optional server) "\203\302!\203\303!\210\304\305 \"\210\306\207" [nnmbox-mbox-buffer server buffer-name kill-buffer nnoo-close-server nnmbox t] 3]) (nnoo-register-function 'nnmbox-close-server) (defalias 'nnmbox-server-opened #[(&optional server) "\305\306 !\n\203\307\310\n#\202\232*\205* \205*\311 !\205*\f\205*\311\f!\207" [server backend nnoo-parent-backend nnmbox-mbox-buffer nntp-server-buffer nnmbox nnoo-current-server format "%s+%s" buffer-name] 5]) (nnoo-register-function 'nnmbox-server-opened) (defalias 'nnmbox-request-article #[(article &optional newsgroup server buffer) "\306 \"\210\212\nq\210eb\210\307\310 !\311\312#\205w\311\211\313\314P\311\312#\210`\315y\210\316\314P\311\312#\2038\317y\204;db\210`\206D\211q\210\320 \210\321\n \f#\210eb\210\322\323!\203h\324\325!\210\326c\210\315y\210\202U \247\203t B\202v\327 +)\207" [newsgroup server nnmbox-mbox-buffer article stop start nnmbox-possibly-change-newsgroup search-forward nnmbox-article-string nil t re-search-backward "^" 1 re-search-forward -1 erase-buffer insert-buffer-substring looking-at "From " delete-char 5 "X-From-Line: " nnmbox-article-group-number message-unix-mail-delimiter buffer nntp-server-buffer nnmbox-current-group] 5]) (nnoo-register-function 'nnmbox-request-article) (defalias 'nnmbox-request-group #[(group &optional server dont-check) "\306\307\"\210\310 \n\"\211A@)\211\203\306 \"\204\"\311\312\313 #\202F \2032\311\312\314 #\210\315\316!\202F\311\312\314 #\210\315\317\fA\f@ZT\f@\fA %)\207" [server group nnmbox-group-alist x active dont-check nnmbox-possibly-change-newsgroup nil assoc nnheader-report nnmbox "No such group: %s" "Selected group %s" nnheader-insert "" "211 %d %d %d %s\n"] 7]) (nnoo-register-function 'nnmbox-request-group) (defalias 'nnmbox-save-buffer #[nil "\206 \303 )\207" [nnmbox-file-coding-system-for-write nnmbox-file-coding-system coding-system-for-write save-buffer] 1]) (defalias 'nnmbox-save-active #[(group-alist active-file) "\206 \305 \f\")\207" [nnmbox-active-file-coding-system-for-write nnmbox-active-file-coding-system nnmail-active-file-coding-system group-alist active-file nnmail-save-active] 3]) (defalias 'nnmbox-request-scan #[(&optional group server) "\303 \"\210\304 \210\305\306\307\310\n!\311%\207" [group server nnmbox-mbox-file nnmbox-possibly-change-newsgroup nnmbox-read-mbox nnmail-get-new-mail nnmbox #[nil "\212q\210\301 )\207" [nnmbox-mbox-buffer nnmbox-save-buffer] 1] file-name-directory #[nil "\212p q\210db\210\304!\210*\305\n \"\207" [in-buf nnmbox-mbox-buffer nnmbox-group-alist nnmbox-active-file insert-buffer-substring nnmbox-save-active] 3]] 6]) (nnoo-register-function 'nnmbox-request-scan) (defalias 'nnmbox-close-group #[(group &optional server) "\300\207" [t] 1]) (nnoo-register-function 'nnmbox-close-group) (defalias 'nnmbox-request-create-group #[(group &optional server args) "\303\304!\210\305 \"\204\306\307BD B\310 \n\"\210\311\207" [group nnmbox-group-alist nnmbox-active-file nnmail-activate nnmbox assoc 1 0 nnmbox-save-active t] 3]) (nnoo-register-function 'nnmbox-request-create-group) (defalias 'nnmbox-request-list #[(&optional server) "\212\304\n!\210)\305 )\306\207" [nnmbox-active-file-coding-system nnmail-file-coding-system nnmbox-active-file nnmbox-group-alist nnmail-find-file nnmail-get-active t] 2]) (nnoo-register-function 'nnmbox-request-list) (defalias 'nnmbox-request-newgroups #[(date &optional server) "\301!\207" [server nnmbox-request-list] 2]) (nnoo-register-function 'nnmbox-request-newgroups) (defalias 'nnmbox-request-list-newsgroups #[(&optional server) "\300\301\302\"\207" [nnheader-report nnmbox "LIST NEWSGROUPS is not implemented."] 3]) (nnoo-register-function 'nnmbox-request-list-newsgroups) (defalias 'nnmbox-request-expire-articles #[(articles newsgroup &optional server force) "\306 \"\210\307\310\311\312!\210\212\fq\210 \203Q\n\203Qeb\210\313\314 @!\310\307#\203J\315`\310\210`{#\211\203E\316\317\320 @$\210\321 \210\202J @ B A\211\204\322 \210\323\"A@eb\210\313\314@!\310\307#\204\203@AX\203\203\211@T\240\210eb\210\202`)\324\"\210 \244+\207" [newsgroup server is-old rest nnmbox-mbox-buffer articles nnmbox-possibly-change-newsgroup t nil nnmail-activate nnmbox search-forward nnmbox-article-string nnmail-expired-article-p nnheader-message 5 "Deleting article %d in %s..." nnmbox-delete-mail nnmbox-save-buffer assoc nnmbox-save-active force nnmbox-group-alist active nnmbox-active-file] 6]) (nnoo-register-function 'nnmbox-request-expire-articles) (defalias 'nnmbox-request-move-article #[(article group server accept-form &optional last) "\306\307!\310\311\n \f#\203j\212 q\210\312 \210\313 !\210eb\210\314\315\212\316\317\310\320#\210`)\320#\2039\321 \210`\322y\210`|\210\202\323!\324 !\210)\203j\212\325 \f\"\210q\210eb\210\316\326\n!\310\320#\203a\327 \210\203i\330 \210)*\207" [result buf article group server nntp-server-buffer get-buffer-create " *nnmbox move*" nil nnmbox-request-article erase-buffer insert-buffer-substring re-search-forward "^X-Gnus-Newsgroup:" search-forward "\n\n" t beginning-of-line 1 eval kill-buffer nnmbox-possibly-change-newsgroup nnmbox-article-string nnmbox-delete-mail nnmbox-save-buffer accept-form nnmbox-mbox-buffer last] 6]) (nnoo-register-function 'nnmbox-request-move-article) (defalias 'nnmbox-request-accept-article #[(group &optional server last) "\306 \"\210\307 \210p\310eb\210\311\312\fP!\203\313\314!\210\311\315!\203(\316\317!\210\202/\320\321 \322\261\210\323\324!\203\256 q\210eb\210\325\326\310\327#\210\330y\210\331\332\310\327#\203V`\314y\210`|\210\202D \203`\333\334\335!!\210;\203n\336!BC\202q\337\336!\211\204\202\340\341!\203\202\342\211\202\210\343\n!@\211\203\256\212(q\210db\210\344 !\210)\203\255 \203\243\345 \210\346*+\"\210\347 \210)\n*\207" [group server result buf message-unix-mail-delimiter nnmail-cache-accepted-message-ids nnmbox-possibly-change-newsgroup nnmail-check-syntax nil looking-at ">" 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-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 insert-buffer-substring nnmail-cache-close nnmbox-save-active nnmbox-save-buffer nnmbox-mbox-buffer last nnmbox-group-alist nnmbox-active-file] 5]) (nnoo-register-function 'nnmbox-request-accept-article) (defalias 'nnmbox-request-replace-article #[(article group buffer) "\304!\210\212 q\210eb\210\305\306\n!\307\310#\205\"\311\310\211\"\210\312 !\210\313 \210\310)\207" [group nnmbox-mbox-buffer article buffer nnmbox-possibly-change-newsgroup search-forward nnmbox-article-string nil t nnmbox-delete-mail insert-buffer-substring nnmbox-save-buffer] 4]) (nnoo-register-function 'nnmbox-request-replace-article) (defalias 'nnmbox-request-delete-group #[(group &optional force server) "\306 \"\210\n\2031\212 q\210eb\210\307\f\310Q\311\312\311\313#\203)\313\314 \210\202 \2030\315 \210+\316\317\"\"\311\320\"\210\313\207" [group server force nnmbox-mbox-buffer nnmbox-current-group found nnmbox-possibly-change-newsgroup "\nX-Gnus-Newsgroup: " ":" nil search-forward t nnmbox-delete-mail nnmbox-save-buffer delq assoc nnmbox-save-active ident nnmbox-group-alist nnmbox-active-file] 4]) (nnoo-register-function 'nnmbox-request-delete-group) (defalias 'nnmbox-request-rename-group #[(group new-name &optional server) "\306 \"\210\212\nq\210eb\210\307 \310Q\307\f\310Q\311\312\311\313#\203/\314\313\211#\210\313\202 \2036\315 \210,\316\"\211\203G\f\240\210\311\317\"\210)\313\207" [group server nnmbox-mbox-buffer nnmbox-current-group new-name found nnmbox-possibly-change-newsgroup "\nX-Gnus-Newsgroup: " ":" nil search-forward t replace-match nnmbox-save-buffer assoc nnmbox-save-active new-ident ident nnmbox-group-alist entry nnmbox-active-file] 5]) (nnoo-register-function 'nnmbox-request-rename-group) (defalias 'nnmbox-delete-mail #[(&optional force leave-delim) "\204\303 \210`\304y\210`|\210\212\214\212\305\306 P\307\310#\210\n\203$\304y\210`\202&\311\224)\304y\210\312\306 P\307\310#\203Ho\204C\n\203C\313y\210`\202E\311\224\206Id}\210eb\210\204[\312\314\307\310#?\205^ed|*\207" [force message-unix-mail-delimiter leave-delim beginning-of-line 1 re-search-backward "^" nil t 0 re-search-forward -2 "^X-Gnus-Newsgroup: "] 5]) (defalias 'nnmbox-possibly-change-newsgroup #[(newsgroup &optional server) "\203\306!\204\307!\210 \203\310 !\204,\212\n\311\f\312\313#)\211q\210\314 \210\315 \210) \2044\316\317!\210\203G\320 \"\205H\211\207\313\207" [server nnmbox-mbox-buffer nnmbox-file-coding-system nnheader-file-coding-system nnmbox-mbox-file nnmbox-group-alist nnmbox-server-opened nnmbox-open-server buffer-name nnheader-find-file-noselect nil t mm-enable-multibyte buffer-disable-undo nnmail-activate nnmbox assoc newsgroup nnmbox-current-group] 4]) (defalias 'nnmbox-article-string #[(article) "\247\203\302 \303\304!\305\260\207\306P\207" [article nnmbox-current-group "\nX-Gnus-Newsgroup: " ":" int-to-string " " "\nMessage-ID: "] 5]) (defalias 'nnmbox-article-group-number #[nil "\212eb\210\300\301\302\303#\205\304\224\304\225{\305\306\224\306\225{!B)\207" [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) "\303Peb\210\304 !\204\305\306 \307\261\210eb\210\310y\210\311 \312\313#\203+\314 \210\315c\210\202\316 \210\317\n!\210\320\n!\210\321\322!\210\321\323!\210\n)\207" [message-unix-mail-delimiter delim group-art "^" looking-at "From nobody " current-time-string "\n" 1 re-search-forward nil t beginning-of-line "> " nnmail-insert-lines nnmail-insert-xref nnmbox-insert-newsgroup-line run-hooks nnmail-prepare-save-mail-hook nnmbox-prepare-save-mail-hook] 4 (#$ . 13532)]) (defalias 'nnmbox-insert-newsgroup-line #[(group-art) "\212eb\210\302\303\304\305#\203-\306u\210\203-\307\310\211@@)\211@A)\311 $c\210A\211\204)\305\207" [group-art x search-forward "\n\n" nil t -1 format "X-Gnus-Newsgroup: %s:%d %s\n" current-time-string] 6]) (defalias 'nnmbox-active-number #[(group) "\304 \"\211A@)\211\203 \211AT\241\210\202!\305\211B\211D B A)\207" [group nnmbox-group-alist x active assoc 1] 4]) (defalias 'nnmbox-create-mbox #[nil "\304!?\205 \206\f\n\305\306\211\307\310%)\207" [nnmbox-mbox-file nnmbox-file-coding-system-for-write nnmbox-file-coding-system nnmail-file-coding-system file-exists-p nnmail-write-region 1 t nomesg] 6]) (defalias 'nnmbox-read-mbox #[nil "\306\307!\210\310 \210\205\311!\205\212q\210\312 \313 !U)?\205\322\212\314\nP \315\211\211 !\"#\316 \315\317#)\211q\210\320 \210\321 \210 \203\212db\210\322\323\324 \211$@@)\"\315\317#\203\201\325\326\224\326\225{!\211 \211$@A)@AV\203\201 \211$@A)@\f\241\210 A\211 \204Ieb\210\327!\315\317#\205\320\330\224\331\332\212\331\333\315\317#\203\263\327!\315\317#\203\263\330\224\206\264d\211)\317#\204\312\212\214 }\210\334\335\336!!\210* b\210\202\215.\207" [nnmbox-mbox-buffer nnmbox-mbox-file message-unix-mail-delimiter nnmbox-group-alist number end nnmail-activate nnmbox nnmbox-create-mbox buffer-name buffer-size nnheader-file-size "^" nil nnheader-find-file-noselect t mm-enable-multibyte buffer-disable-undo re-search-backward format "^X-Gnus-Newsgroup: %s:\\([0-9]+\\) " string-to-number 1 re-search-forward 0 search-forward "\nX-Gnus-Newsgroup: " "\n\n" nnmbox-save-mail nnmail-article-group nnmbox-active-number start alist delim nnmbox-file-coding-system nnheader-file-coding-system x] 7]) (provide 'nnmbox)