;ELC ;;; compiled by larsi@narfi.ifi.uio.no on Fri Nov 3 03:30:43 1995 ;;; from file /home/menja/c/larsi/dgnus/lisp/nnfolder.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 "`nnfolder.el' was compiled for Emacs 19.29 or later")) (byte-code "!!!" [require nnheader rmail nnmail] 2) #@60 The name of the mail box file in the users home directory. (defvar nnfolder-directory (expand-file-name "~/Mail/") (#$ . 542)) #@30 The name of the active file. (defvar nnfolder-active-file (byte-code " !P" [file-name-as-directory nnfolder-directory "active"] 2) (#$ . 675)) #@254 If non-nil, causes nnfolder to do some extra work in order to determine the true active ranges of an mbox file. Note that the active file is still saved, but it's values are not used. This costs some extra time when scanning an mbox when opening it. (defvar nnfolder-ignore-active-file nil (#$ . 828)) #@457 If non-nil, nnfolder attempts to only ever have one mbox open at a time. This is a straight space/performance trade off, as the mboxes will have to be scanned every time they are read in. If nil (default), nnfolder will attempt to keep the buffers around (saving the nnfolder's buffer upon group close, but not killing it), speeding some things up tremendously, especially such things as moving mail. All buffers always get killed upon server close. (defvar nnfolder-always-close nil (#$ . 1140)) #@35 Mail newsgroups description file. (defvar nnfolder-newsgroups-file (byte-code " !P" [file-name-as-directory nnfolder-directory "newsgroups"] 2) (#$ . 1649)) #@76 If non-nil, nnfolder will check the incoming mail file and split the mail. (defvar nnfolder-get-new-mail t (#$ . 1815)) #@48 Hook run narrowed to an article before saving. (defvar nnfolder-prepare-save-mail-hook nil (#$ . 1941)) #@19 nnfolder version. (defconst nnfolder-version "nnfolder 1.0" (#$ . 2051)) #@68 String used to demarcate what the article number for a message is. (defconst nnfolder-article-marker "X-Gnus-Article-Number: " (#$ . 2130)) (byte-code "! B! B!  B!- B!: B!G B‡" [boundp nnfolder-current-group nil current-load-list nnfolder-current-buffer nnfolder-status-string "" nnfolder-group-alist nnfolder-buffer-alist nnfolder-active-timestamp] 2) (defalias 'nnfolder-article-string '(macro . #[(article) "\fDBBBB" [concat "\n" nnfolder-article-marker int-to-string article (" ")] 5])) (byte-code "! B! B!7DDD Dϯ\n B‡" [boundp nnfolder-current-server nil current-load-list nnfolder-server-alist nnfolder-server-variables nnfolder-directory nnfolder-active-file nnfolder-newsgroups-file nnfolder-get-new-mail (nnfolder-current-group nil) (nnfolder-current-buffer nil) (nnfolder-status-string "") (nnfolder-group-alist nil) (nnfolder-buffer-alist nil) (nnfolder-active-timestamp nil)] 10) (defalias 'nnfolder-retrieve-headers #[(sequence &optional newsgroup server) "q Pĉ  !\fqeb @;.΂  @!R\fq#Y# #c`#`Sq\"c\f #dbc A 3qeb#ԉ#." [nntp-server-buffer erase-buffer "^" rmail-unix-mail-delimiter nil stop start art-string article delim-string nnfolder-possibly-change-group newsgroup nnfolder-current-buffer sequence headers "\n" nnfolder-article-marker int-to-string " " search-forward t search-backward re-search-backward "\n\n" format "221 %d Article retrieved.\n" insert-buffer-substring ".\n" re-search-forward "\\( ?\n[ ]+\\)+" replace-match] 6]) (defalias 'nnfolder-open-server #[(server &optional defs) " \n Ç\n\n !DB \"6A@!\"< \f\") " [nnheader-init-server-buffer server nnfolder-current-server t nnheader-save-variables nnfolder-server-variables nnfolder-server-alist assoc state nnheader-restore-variables delq nnheader-set-init-variables defs] 4]) (defalias 'nnfolder-close-server #[(&optional server) "" [t] 1]) (defalias 'nnfolder-server-opened #[(&optional server) " \n \n!" [server nnfolder-current-server nntp-server-buffer buffer-name] 2]) (defalias 'nnfolder-request-close #[nil " @@# A)É" [nnfolder-buffer-alist alist nnfolder-close-group nil t nnfolder-group-alist] 5]) (defalias 'nnfolder-status-message #[(&optional server) "" [nnfolder-status-string] 1]) (defalias 'nnfolder-request-article #[(article &optional newsgroup server buffer) " !\n;?{ qeb\n!R#zɉ \fP#`\fyP#EyHdb` Rq \f #eb!x!cye+)" [nnfolder-possibly-change-group newsgroup article nnfolder-current-buffer search-forward "\n" nnfolder-article-marker int-to-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: "] 6]) (defalias 'nnfolder-request-group #[(group &optional server dont-check) "! ! \"SǂS ! \" @ A@\n@ \nA\f q  R\f ZT \f %c-)" [nnmail-activate nnfolder nnfolder-possibly-change-group group assoc nnfolder-group-alist dont-check t nnfolder-get-new-mail active range minactive maxactive nntp-server-buffer erase-buffer format "211 %d %d %d %s\n"] 7]) (defalias 'nnfolder-close-group #[(group &optional server force) " \n\" 4 ! q  ' 3p! \n\"\n\")͇" [assoc group nnfolder-buffer-alist nnfolder-current-group nnfolder-possibly-change-group nnfolder-current-buffer buffer-modified-p save-buffer force nnfolder-always-close kill-buffer delq nil t] 4]) (defalias 'nnfolder-request-create-group #[(group &optional server) "! \f\"  BD\fB\f\n\")ˇ" [nnmail-activate nnfolder assoc group nnfolder-group-alist nil active 1 0 nnmail-save-active nnfolder-active-file t] 3]) (defalias 'nnfolder-request-list #[(&optional server) " ! )" [server nnfolder-get-new-mail nnmail-find-file nnfolder-active-file nnmail-get-active nnfolder-group-alist] 2]) (defalias 'nnfolder-request-newgroups #[(date &optional server) " !" [nnfolder-request-list server] 2]) (defalias 'nnfolder-request-list-newsgroups #[(&optional server) " !)" [nnmail-find-file nnfolder-newsgroups-file] 2]) (defalias 'nnfolder-request-post #[(&optional server) "!" [mail-send-and-exit nil] 2]) (defalias (quote nnfolder-request-post-buffer) (quote nnmail-request-post-buffer)) (defalias 'nnfolder-request-expire-articles #[(articles newsgroup &optional server force) " !\n\n ! ! q\fwweb\f@!R#nT ``{\"\fVf`\f@\" n\f@B\fA\f$  \"A@P A!eb# #!{!^!!,&\"\f," [nnfolder-possibly-change-group newsgroup nnmail-expiry-wait-function nnmail-expiry-wait days t is-old nil rest nnmail-activate nnfolder nnfolder-current-buffer articles search-forward "\n" nnfolder-article-marker int-to-string " " force nnmail-days-between current-time-string gnus-verbose-backends message "Deleting article %s..." nnfolder-delete-mail buffer-modified-p save-buffer assoc nnfolder-group-alist active marker "[0-9]+" number activemin re-search-forward string-to-number 0 nnmail-save-active nnfolder-active-file] 6]) (defalias 'nnfolder-request-move-article #[(article group server accept-form &optional last) " !!  #qp!  !ebP#`)#Iy`y`|)!! ) !qeb!R#w  ) *" [nnfolder-possibly-change-group group get-buffer-create " *nnfolder move*" nil result buf nnfolder-request-article article server buffer-disable-undo erase-buffer insert-buffer-substring nntp-server-buffer re-search-forward "^" nnfolder-article-marker search-forward "\n\n" t 0 1 eval accept-form kill-buffer nnfolder-current-buffer "\n" int-to-string " " nnfolder-delete-mail last buffer-modified-p save-buffer] 6]) (defalias 'nnfolder-request-accept-article #[(group &optional last) "; !peb!!*!* ˱ v\fqeb#yP#T`y`|?;[!@)vqu u )\" *" [group nnfolder-possibly-change-group nil result buf looking-at "X-From-Line: " replace-match "From " "From nobody " current-time-string "\n" nnfolder-request-list search-forward "\n\n" t -1 re-search-backward "^" nnfolder-article-marker 1 nnfolder-save-mail nnfolder-current-buffer last buffer-modified-p save-buffer nnmail-save-active nnfolder-group-alist nnfolder-active-file] 4]) (defalias 'nnfolder-request-replace-article #[(article group buffer) " !\nqeb !R#-ʉ\" ! , )" [nnfolder-possibly-change-group group nnfolder-current-buffer search-forward "\n" nnfolder-article-marker int-to-string article " " nil t nnfolder-delete-mail insert-buffer-substring buffer buffer-modified-p save-buffer] 5]) (defalias 'nnfolder-delete-mail #[(&optional force leave-delim) "\nP# y`ǔ)y\nP#:o5 5y`7ǔ;d}ed|*" [re-search-backward "^" rmail-unix-mail-delimiter nil t leave-delim 1 0 re-search-forward -2] 5]) (defalias 'nnfolder-possibly-change-group #[(group) " !\f !!!\"6 !P!6BDB \"ʼnPP!\"fA@!!!!!!\" !P!!!ʉ%!qpDB)*" [file-exists-p nnfolder-directory make-directory directory-file-name nnfolder-possibly-activate-groups nil assoc group nnfolder-group-alist file-name-as-directory 1 0 nnmail-save-active nnfolder-active-file file inf nnfolder-current-group nnfolder-current-buffer buffer-name nnfolder-buffer-alist bufferp verify-visited-file-modtime kill-buffer delq file-directory-p file-truename write-region t nomesg nnfolder-read-folder] 6]) #@32 Called narrowed to an article. (defalias 'nnfolder-save-mail #[(&optional group) " DC\f\n!  !!  @ Aeb#yP#S`Ty`|=@!!edpqdb#q+&," [group "" nnmail-split-methods nnmail-article-group nnfolder-active-number group-art-list nil save-list group-art nnmail-insert-lines nnmail-insert-xref run-hooks nnfolder-prepare-save-mail-hook search-forward "\n\n" t -1 search-backward "\n" nnfolder-article-marker 2 nnfolder-possibly-change-group nnfolder-insert-newsgroup-line obuf end beg nnfolder-current-buffer insert-buffer-substring] 4 (#$ . 10078)]) (defalias 'nnfolder-insert-newsgroup-line #[(group-art) "eb#uPA #c)" [search-forward "\n\n" nil t -1 format nnfolder-article-marker "%d %s\n" group-art current-time-string] 4]) (defalias 'nnfolder-possibly-activate-groups #[(&optional group) " !!)" [group nnfolder-possibly-change-group nnmail-activate nnfolder] 2]) (defalias 'nnfolder-active-number #[(group) " \n\"A@ AT ĉBD\nB A)\n\" !)" [assoc group nnfolder-group-alist active 1 nnmail-save-active nnfolder-active-file nnfolder-possibly-activate-groups] 5]) (defalias 'nnfolder-read-folder #[(file) "! #qp!P\nP \"A@ebAKW\"S\"S\"S]]##{!##]#^)^^]A]eb #┆ddU!b!y#┆db#}  !B!~+\"p. " [nnfolder-possibly-activate-groups nil nnheader-find-file-noselect file raw nnfolder-current-buffer buffer-disable-undo "^" rmail-unix-mail-delimiter "\n" nnfolder-article-marker "[0-9]+" assoc nnfolder-current-group nnfolder-group-alist end start activemin activenumber active number marker delim nnfolder-ignore-active-file 2 lsh 1 23 24 25 search-forward t re-search-forward string-to-number 0 newnum point-marker marker-position looking-at nnmail-insert-lines nnfolder-insert-newsgroup-line nnfolder-active-number nnmail-save-active nnfolder-active-file] 9]) #@25 Read new incoming mail. (defalias 'nnfolder-get-new-mail #[(&optional group) " ! ???!\ne\n@!^\n@!8V^;!\n@!P\"^ B\n@ \" $\nA ~\"!~!@A@!@\"@A@q A* @$!!! A," [nnmail-get-spool-files group spools group-in nil incomings incoming nnfolder-get-new-mail nnmail-spool-file nnfolder-possibly-activate-groups file-exists-p 7 file-attributes 0 gnus-verbose-backends message "nnfolder: Reading incoming mail..." nnmail-move-inbox file-name-as-directory nnfolder-directory "Incoming" nnmail-get-split-group nnmail-split-incoming nnfolder-save-mail nnmail-save-active nnfolder-group-alist nnfolder-active-file run-hooks nnmail-read-incoming-hook "nnfolder: Reading incoming mail...done" nnfolder-buffer-alist bufs buffer-name delq buffer-modified-p save-buffer nnmail-delete-incoming file-writable-p delete-file] 6 (#$ . 12176)]) (provide (quote nnfolder))