;ELC ;;; compiled by amu@mit.edu on Sat Sep 13 16:20:25 1997 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.4.67/lisp/nnfolder.el ;;; emacs version 19.30.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 "`nnfolder.el' was compiled for Emacs 19.29 or later")) (byte-code "ﾀﾁ!安ﾂ!安ﾃ!安ﾄ!安ﾅ!安ﾆ!杏ﾈﾉﾊ\"ﾊ宇 B ﾇﾌD B ﾊ" [require nnheader message nnmail nnoo cl gnus-util nnfolder mapcar #[(p) "C" [p] 1] nil nnoo-definition-alist "*internal-non-initialized-backend*" nnoo-state-alist] 4) #@37 The name of the nnfolder directory. (defvar nnfolder-directory (expand-file-name message-directory) (#$ . 726)) (nnoo-define (quote nnfolder-directory) nil) #@30 The name of the active file. (defvar nnfolder-active-file (nnheader-concat nnfolder-directory "active") (#$ . 889)) (nnoo-define (quote nnfolder-active-file) nil) #@253 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 (#$ . 1059)) (nnoo-define (quote nnfolder-ignore-active-file) nil) #@322 If non-nil, causes nnfolder to not trust the user with respect to inserting unaccounted for mail in the middle of an mbox file. This can greatly slow down scans, which now must scan the entire file for unmarked messages. When nil, scans occur forward from the last marked message, a huge time saver for large mailboxes. (defvar nnfolder-distrust-mbox nil (#$ . 1425)) (nnoo-define (quote nnfolder-distrust-mbox) nil) #@35 Mail newsgroups description file. (defvar nnfolder-newsgroups-file (byte-code "ﾀ !ﾂP" [file-name-as-directory nnfolder-directory "newsgroups"] 2) (#$ . 1849)) (nnoo-define (quote nnfolder-newsgroups-file) nil) #@76 If non-nil, nnfolder will check the incoming mail file and split the mail. (defvar nnfolder-get-new-mail t (#$ . 2066)) (nnoo-define (quote nnfolder-get-new-mail) nil) #@48 Hook run narrowed to an article before saving. (defvar nnfolder-prepare-save-mail-hook nil (#$ . 2240)) (nnoo-define (quote nnfolder-prepare-save-mail-hook) nil) #@50 Hook run before saving the nnfolder mbox buffer. (defvar nnfolder-save-buffer-hook nil (#$ . 2408)) (nnoo-define (quote nnfolder-save-buffer-hook) nil) #@29 If non-nil, inhibit expiry. (defvar nnfolder-inhibit-expiry nil (#$ . 2566)) (nnoo-define (quote nnfolder-inhibit-expiry) nil) #@19 nnfolder version. (defconst nnfolder-version "nnfolder 1.0" (#$ . 2699)) #@68 String used to demarcate what the article number for a message is. (defconst nnfolder-article-marker "X-Gnus-Article-Number: " (#$ . 2778)) (byte-code "ﾀﾁ!ﾂﾁ Bﾄﾁﾂ\"安ﾅ!ﾂﾅ Bﾄﾅﾂ\"安ﾆ!+ﾇﾆ Bﾄﾆﾂ\"安ﾈ!=ﾂﾈ Bﾄﾈﾂ\"安ﾉ!Оﾂ ﾉ Bﾄﾉﾂ\"安ﾊ!aﾂ\nﾊ Bﾄﾊﾂ\"安ﾋ!гﾂ ﾋ Bﾄﾋﾂ\"偉ﾍ!" [boundp nnfolder-current-group nil current-load-list nnoo-define nnfolder-current-buffer nnfolder-status-string "" nnfolder-group-alist nnfolder-buffer-alist nnfolder-scantime-alist nnfolder-active-timestamp nnoo-define-basics-1 nnfolder] 3) (defalias 'nnfolder-retrieve-headers #[(articles &optional group server fetch-old) "q庵 按演ﾇ \"\n\nqeb @;.ﾌｆ  @ﾍ!\nq夷 ﾂﾏ#Рﾐ ﾂﾏ#プﾑ `ﾎﾒﾂﾏ#`Sq意ﾔ\"c易\n\f #db椅c A 3q為 偉-" [nntp-server-buffer erase-buffer nil stop start art-string article nnfolder-possibly-change-group group server nnfolder-current-buffer articles headers nnfolder-article-string search-forward t search-backward nnmail-search-unix-mail-delim-backward "\n\n" format "221 %d Article retrieved.\n" insert-buffer-substring ".\n" nnheader-fold-continuation-lines] 5]) (nnoo-register-function (quote nnfolder-retrieve-headers)) (defalias 'nnfolder-open-server #[(server &optional defs) "ﾀﾁ\n #案ﾁﾅ\"鞍!以!!ﾉ 位ﾁﾋ#ﾌﾍ!!4ﾉ 位ﾁﾎ#ﾄﾁ!位ﾁﾏ\n$闇" [nnoo-change-server nnfolder server defs nnmail-activate t gnus-make-directory nnfolder-directory file-exists-p nnfolder-close-server nnheader-report "Couldn't create directory: %s" file-directory-p file-truename "Not a directory: %s" "Opened server %s using directory %s"] 5]) (nnoo-register-function (quote nnfolder-open-server)) (defalias 'nnfolder-request-close #[nil "ﾂ @@ﾃﾄ# A)ﾅﾆ!暗ﾃ" [nnfolder-buffer-alist alist nnfolder-close-group nil t nnoo-close-server nnfolder nnfolder-group-alist] 5]) (nnoo-register-function (quote nnfolder-request-close)) (defalias 'nnfolder-request-article #[(article &optional group server buffer) "ﾀ \n\" qeb案ﾅ!ﾇﾈ#ﾘﾇ \nﾋ `\nﾌy杏  бﾏﾐﾇﾈ#Аﾑ .還yoТ鑑ygﾔU)ノ肝y易ﾖ!ツﾌy８ﾕﾗ!)ノﾘ ),ﾒy *ﾘ=メﾓyтdb` q維 緯 \n #eb易ﾝ!Χﾞﾟ!謂c偉yぃｧδ!Bべeb案#P!!臍ﾇ`{!B+)" [nnfolder-possibly-change-group group server nnfolder-current-buffer search-forward nnfolder-article-string article nil t stop start nnmail-search-unix-mail-delim-backward 1 found case-fold-search re-search-forward "^From " no 0 -1 10 looking-at ">From \\|From " "[^ \n :]+[ \n ]*:" yes buffer nntp-server-buffer erase-buffer insert-buffer-substring "From " delete-char 5 "X-From-Line: " nnfolder-current-group "\n" nnfolder-article-marker string-to-int] 5]) (nnoo-register-function (quote nnfolder-request-article)) (defalias 'nnfolder-request-group #[(group &optional server dont-check) "ﾀ \nﾃ#監 \"ﾆﾇﾈ #Ｈ %ﾆﾇﾊ #暗Ｈﾄ \" @ A@\f Бﾆﾇﾈ #Ｇ Нﾆﾇﾎ #Ｇﾆﾇﾊ #委ﾐ\fA\f@ZT\f@\fA %+)" [nnfolder-possibly-change-group group server t assoc nnfolder-group-alist nnheader-report nnfolder "No such group: %s" dont-check "Selected group %s" active range nnfolder-current-group "Empty group: %s" nnheader-insert "211 %d %d %d %s\n"] 7]) (nnoo-register-function (quote nnfolder-request-group)) (defalias 'nnfolder-request-scan #[(&optional group server) "ﾀﾁ\n\" ﾀ\f\n\"闇ﾆﾇ\f$" [nnfolder-possibly-change-group nil server nnfolder-get-new-mail group nnmail-get-new-mail nnfolder #[nil " = @A@ﾃ\n!ﾄﾃ\n!!)(ﾅ @\"5 @A@q鞍 杏p! Aﾈ*" [nnfolder-buffer-alist bufs buffer get-buffer buffer-name delq nnfolder-save-buffer kill-buffer nil] 4] nnfolder-directory] 5]) (nnoo-register-function (quote nnfolder-request-scan)) (defalias 'nnfolder-close-group #[(group &optional server force) "ﾀ \n\" 噬Oﾀ \n\"0 $ $ D\nBﾆ\f\n\"\fA@\f@) グﾇ !グ q以 伊p!鞍ﾀ \n\"\n\")ﾊﾊﾋ" [assoc group nnfolder-buffer-alist nnfolder-current-group inf nnfolder-current-buffer delq buffer-name nnfolder-save-buffer kill-buffer nil t] 5]) (nnoo-register-function (quote nnfolder-close-group)) (defalias 'nnfolder-request-create-group #[(group &optional server args) "ﾀﾁ\n\"暗ﾄ! *ﾆ \"* ﾈﾉBDBﾊ \"偉 !囲" [nnfolder-possibly-change-group nil server nnmail-activate nnfolder group assoc nnfolder-group-alist 1 0 nnmail-save-active nnfolder-active-file nnfolder-read-folder t] 3]) (nnoo-register-function (quote nnfolder-request-create-group)) (defalias 'nnfolder-request-list #[(&optional server) "ﾀﾁ\n\" ﾄﾇ!伊 \n+ﾋ" [nnfolder-possibly-change-group nil server nnmail-active-file-coding-system binary pathname-coding-system nnmail-file-coding-system nnmail-find-file nnfolder-active-file nnmail-get-active nnfolder-group-alist t] 3]) (nnoo-register-function (quote nnfolder-request-list)) (defalias 'nnfolder-request-newgroups #[(date &optional server) "ﾀﾁ\n\"暗\n!" [nnfolder-possibly-change-group nil server nnfolder-request-list] 3]) (nnoo-register-function (quote nnfolder-request-newgroups)) (defalias 'nnfolder-request-list-newsgroups #[(&optional server) "ﾀﾁ\n\"甘\f!)" [nnfolder-possibly-change-group nil server nnmail-find-file nnfolder-newsgroups-file] 3]) (nnoo-register-function (quote nnfolder-request-list-newsgroups)) (defalias 'nnfolder-request-expire-articles #[(articles newsgroup &optional server force) "ﾀ \n\"暗ﾅﾇﾈ! q\nゾ\fゾeb依ﾌ\n@!ﾅﾃ#サﾍ `ﾅ`{$キﾐﾑﾒ\n@ $意 ５\n@B\nA\ngﾐﾑﾔ\"易 椅 !為\"\n､+" [nnfolder-possibly-change-group newsgroup server t is-old nil rest nnmail-activate nnfolder nnfolder-current-buffer articles search-forward nnfolder-article-string nnmail-expired-article-p force nnfolder-inhibit-expiry nnheader-message 5 "Deleting article %d..." nnfolder-delete-mail "Deleting articles...done" nnfolder-save-buffer nnfolder-adjust-min-active nnmail-save-active nnfolder-group-alist nnfolder-active-file] 6]) (nnoo-register-function (quote nnfolder-request-expire-articles)) (defalias 'nnfolder-request-move-article #[(article group server accept-form &optional last) "ﾀﾁ!ﾂﾅ#ヤ浬fq伊p!位 依\f!eb囲ﾎP諌ﾑﾂﾒ#`)ﾒ#ゥﾓy`ﾔy`|$ﾕ!ﾗ\f! )ヤ韓\"qeb威ﾚ!ﾂﾒ#バﾛ ャﾝ 萎!衣 !\") *" [get-buffer-create " *nnfolder move*" nil result buf nnfolder-request-article article group 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-possibly-change-group nnfolder-current-buffer nnfolder-article-string nnfolder-delete-mail last nnfolder-save-buffer nnfolder-adjust-min-active nnmail-save-active nnfolder-group-alist nnfolder-active-file] 6]) (nnoo-register-function (quote nnfolder-request-move-article)) (defalias 'nnfolder-request-accept-article #[(group &optional server last) "ﾀ \n\"暗 pﾄeb以ﾉ!ﾊﾋ!偉 Γqeb囲ﾎﾄﾏ#威y尉ﾒPﾄﾏ#ォ`ﾔy`|3ゴﾖﾗﾘ!! ;ヂ ﾙ !BCＧﾚﾙ!иﾛﾜ!ペﾝａﾞ!@)ΓΓ癌 @@ !違 Β )$%\"┫跚鐔"+" [nnfolder-possibly-change-group group server nnmail-check-syntax nil art-group result buf looking-at "X-From-Line: " replace-match "From " nnfolder-request-list search-forward "\n\n" t -1 re-search-backward "^" nnfolder-article-marker 1 nnmail-cache-accepted-message-ids nnmail-cache-insert nnmail-fetch-field "message-id" nnfolder-active-number nnmail-article-group yes-or-no-p "Moved to `junk' group; delete article? " junk nnfolder-save-mail last nnfolder-possibly-change-folder nnfolder-save-buffer nnmail-cache-close nnmail-save-active nnfolder-group-alist nnfolder-active-file nnheader-report nnfolder "Couldn't store article"] 5]) (nnoo-register-function (quote nnfolder-request-accept-article)) (defalias 'nnfolder-request-replace-article #[(article group buffer) "ﾀ !浬nqeb暗ﾄ !ﾆﾇ##ﾈﾇ噂"伊\n!依 杏)" [nnfolder-possibly-change-group group nnfolder-current-buffer search-forward nnfolder-article-string article nil t nnfolder-delete-mail insert-buffer-substring buffer nnfolder-save-buffer] 4]) (nnoo-register-function (quote nnfolder-request-replace-article)) (defalias 'nnfolder-request-delete-group #[(group &optional force server) "ﾀ \nﾃ#\fﾅﾆﾇ処ﾈﾉ \n\"\n\"\nﾋ\fﾋ ﾎ\n\"暗" [nnfolder-close-group group server t force G77736 (byte-code "ﾀﾁ\n!!" [delete-file nnfolder-group-pathname group] 3) ((error)) delq assoc nnfolder-group-alist nil nnfolder-current-group nnfolder-current-buffer nnmail-save-active nnfolder-active-file] 4]) (nnoo-register-function (quote nnfolder-request-delete-group)) (defalias 'nnfolder-request-rename-group #[(group new-name &optional server) "ﾀ \n\" q案 !9ﾆﾇﾈ遵9ﾉ \n\" ' \f囲ﾍﾏ\n\"尉p!)ﾒ)" [nnfolder-possibly-change-group group server nnfolder-current-buffer file-writable-p buffer-file-name G77737 (byte-code "ﾀ ﾂ !\"案" [rename-file buffer-file-name nnfolder-group-pathname new-name t] 4) ((error)) assoc nnfolder-group-alist entry new-name nil nnfolder-current-group nnmail-save-active nnfolder-active-file kill-buffer t] 4]) (nnoo-register-function (quote nnfolder-request-rename-group)) (defalias 'nnfolder-request-regenerate #[(server) "ﾀﾁ\n\"暗 案" [nnfolder-possibly-change-group nil server nnfolder-generate-active-file t] 3]) (defalias 'nnfolder-adjust-min-active #[(group) "ﾀ \n\"A@ﾄ Pﾇ A \nqeb依ﾌﾍ#<ﾎﾌﾍ#< ﾏﾐ頒府!^   -" [assoc group nnfolder-group-alist active "\n" nnfolder-article-marker marker "[0-9]+" number activemin nnfolder-current-buffer search-forward nil t re-search-forward string-to-number 0] 4]) (defalias 'nnfolder-article-string #[(article) "ｧ ﾁ\nﾃ!ﾄRﾅP" [article "\n" nnfolder-article-marker int-to-string " " "\nMessage-ID: "] 4]) #@38 Delete the message that point is in. (defalias 'nnfolder-delete-mail #[(&optional force leave-delim) "滑ﾀ ﾂy``)ﾂy暗\fЪﾆﾇﾃﾈ#+ﾉ缶yo>翰ygﾌU)ジ環y囲ﾎ!クﾂyBﾍﾏ!)ジﾐ)ﾊy\f*ﾐ=ベoд フﾑy`Ｚ`Ｚd|)" [nnmail-search-unix-mail-delim-backward leave-delim 1 nil found case-fold-search re-search-forward "^From " t no 0 -1 10 looking-at ">From \\|From " "[^ \n :]+[ \n ]*:" yes -2] 6 (#$ . 12406)]) (defalias 'nnfolder-possibly-change-group #[(group &optional server dont-check) "ﾁ!ﾂ! ﾅ\f!ﾆﾅ\f!!)(ﾇﾇ  ?ﾊ ﾌﾍ!夷 \"aﾐﾑ !!a ﾒﾓBDBﾔ\"パ ﾇらﾇﾎ \"A@Δ ﾅ\f!ﾆﾅ\f!!)┐ﾚ\"ﾇ  Τﾛ !?貫 !ﾐ!ﾏﾜﾝ!!萎ﾒﾟ%違 ! q DB)*)" [server nnfolder-server-opened nnfolder-open-server nnfolder-current-buffer buffer get-buffer buffer-name nil nnfolder-current-group group binary pathname-coding-system nnmail-activate nnfolder assoc nnfolder-group-alist file-exists-p nnfolder-group-pathname 1 0 nnmail-save-active nnfolder-active-file dont-check file inf nnfolder-buffer-alist delq verify-visited-file-modtime gnus-make-directory file-name-directory nnmail-write-region t nomesg nnfolder-read-folder] 7]) #@32 Called narrowed to an article. (defalias 'nnfolder-save-mail #[(group-art-list) "ﾀﾀeb暗ﾄ P!ﾆﾇ!暗 !#ﾈﾉ ﾊｱeb杏y安 ﾌﾍﾀﾎ#:ﾏy威c))ﾒ 意!慰ﾕ!慰ﾖ!陰@Σeb為ﾘﾀﾎ#異y移ﾊPﾀﾎ#ポ`Tﾜy`|Ｇﾝ\n!各dp 畚n@!安\"dblﾊco┘ﾊc医 #-N *" [nil save-list group-art looking-at ">" message-unix-mail-delimiter delete-char 1 "From nobody " current-time-string "\n" case-fold-search re-search-forward "^From " t 0 "> " group-art-list nnmail-insert-lines nnmail-insert-xref run-hooks nnmail-prepare-save-mail-hook nnfolder-prepare-save-mail-hook search-forward "\n\n" -1 search-backward nnfolder-article-marker 2 nnfolder-insert-newsgroup-line obuf end beg nnfolder-possibly-change-folder buffer-read-only insert-buffer-substring] 4 (#$ . 13633)]) (defalias 'nnfolder-insert-newsgroup-line #[(group-art) "各b安ﾁﾂﾃ#ﾄu闇ﾇPAﾉ #c)" [search-forward "\n\n" nil t -1 format nnfolder-article-marker "%d %s\n" group-art current-time-string] 4]) (defalias 'nnfolder-active-number #[(group) "ﾀ \n\"A@ 陰T｡ ﾄ隠D\nB A)" [assoc group nnfolder-group-alist active 1] 4]) (defalias 'nnfolder-possibly-change-folder #[(group) "ﾀ \n\"' A@ﾅ\f!ﾆﾅ\f!!)' A@qE 0ﾇ \n\"<ﾉ\n\" ﾋ !D\nB)" [assoc group nnfolder-buffer-alist inf buffer get-buffer buffer-name delq nnfolder-group-alist nnmail-save-active nnfolder-active-file nnfolder-read-folder] 4]) (defalias 'nnfolder-read-folder #[(group) "ﾀ !ﾃ\n!qﾅ \"A@ﾇﾈ\n!8噬\f９緩ﾊ!依\fPﾍPﾏﾅ \"A@8ﾑﾒBﾅ \"ﾓﾔ噂"ﾕ演演 疳!Aeb\"д絽ｷﾕ#Αﾕ#Α鉅ﾒ!!))])^)Ｕﾑ^]A]｡eb*+絽+db壱ﾕ#ﾒeb易,-,跟ﾕ#,ぼ還yo間ygU)貫y鰯!ﾑy!),)ぺﾒy,*=+eb易,-,ё跟ﾕ#Е,3還yoЧ間ygU)ビ貫y鰯!ドﾑy\\!)ビ,)1ﾒy,*=тdb員 dU+!b鰯 !Θﾑyｙﾕ,-,跟ﾕ#ﾂ,げ還yoﾕ間ygU)貫y鰯!ﾑyほ!),)ぐﾒy,*=`dﾕ嶋b井#ц}姻 引ﾕ:!B!~ｈﾕ遠胤<\" ガC｡６:DBp.\f*" [nnfolder-group-pathname group file nnheader-find-file-noselect buffer assoc nnfolder-scantime-alist 5 file-attributes nnmail-activate nnfolder "^" message-unix-mail-delimiter "\n" nnfolder-article-marker "[0-9]+" nnfolder-group-alist 1 0 lsh -1 nil buffer-read-only newscantime end start maxid minid scantime active number marker delim buffer-disable-undo nnfolder-ignore-active-file 2 search-forward t re-search-forward string-to-number match-string newnum nnfolder-distrust-mbox re-search-backward found case-fold-search "^From " no 10 looking-at ">From \\|From " "[^ \n :]+[ \n ]*:" yes point-marker marker-position nnmail-insert-lines nnfolder-insert-newsgroup-line nnfolder-active-number nnfolder-current-group nnmail-save-active nnfolder-active-file visited-file-modtime] 12]) #@76 Look for mbox folders in the nnfolder directory and make them into groups. (defalias 'nnfolder-generate-active-file #[nil "ﾀﾁ!按 !ﾄ陰@ナﾇ ! ﾈﾉ \"! ﾊ  \"\f:ﾍﾎﾏ #@ﾍﾎﾐ #\fグﾑ\fﾒ !\" ﾓﾔBD B ﾕ !椅 !為 !) ﾘﾙ!*" [nnmail-activate nnfolder directory-files nnfolder-directory nil file files backup-file-name-p message-mail-file-mbox-p nnheader-concat assoc nnfolder-group-alist oldgroup nnheader-message 5 "Refreshing group %s..." "Adding group %s..." delq copy-sequence 1 0 nnfolder-possibly-change-folder nnfolder-possibly-change-group nnfolder-close-group message ""] 5 (#$ . 16477) nil]) #@26 Make pathname for GROUP. (defalias 'nnfolder-group-pathname #[(group) "ﾀ \n\"ﾃﾄ !!ﾈ P!! P)ﾉ ﾊﾋ#P)" [gnus-encode-coding-string group nnmail-pathname-coding-system file-name-as-directory expand-file-name nnfolder-directory dir nnmail-use-long-file-names file-exists-p nnheader-replace-chars-in-string 46 47] 5 (#$ . 17101)]) #@18 Save the buffer. (defalias 'nnfolder-save-buffer #[nil "ﾀ ﾁﾂ!暗ﾄﾅ !!鞍 " [buffer-modified-p run-hooks nnfolder-save-buffer-hook gnus-make-directory file-name-directory buffer-file-name save-buffer] 3 (#$ . 17449)]) (provide (quote nnfolder))