;ELC ;;; compiled by amu@mit.edu on Sat Sep 13 16:20:33 1997 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.4.67/lisp/nnmh.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 "`nnmh.el' was compiled for Emacs 19.29 or later")) (byte-code "!!!!\"ȉF B D B ȇ" [require nnheader nnmail gnus-start nnoo nnmh mapcar #[(p) "C" [p] 1] nil nnoo-definition-alist "*internal-non-initialized-backend*" nnoo-state-alist] 4) #@24 *Mail spool directory. (defvar nnmh-directory message-directory (#$ . -696)) (nnoo-define (quote nnmh-directory) nil) #@73 *If non-nil, nnmh will check the incoming mail file and split the mail. (defvar nnmh-get-new-mail t (#$ . -820)) (nnoo-define (quote nnmh-get-new-mail) nil) #@49 *Hook run narrowed to an article before saving. (defvar nnmh-prepare-save-mail-hook nil (#$ . -983)) (nnoo-define (quote nnmh-prepare-save-mail-hook) nil) #@85 *If non-nil, nnmh will check all articles to make sure whether they are new or not. (defvar nnmh-be-safe nil (#$ . -1144)) (nnoo-define (quote nnmh-be-safe) nil) #@15 nnmh version. (defconst nnmh-version "nnmh 1.0" (#$ . 1312)) #@31 Current news group directory. (defvar nnmh-current-directory nil (#$ . 1379)) (byte-code "\"! B\"!!B\"!" [nnoo-define nnmh-current-directory nil boundp nnmh-status-string "" current-load-list nnmh-group-alist nnoo-define-basics-1 nnmh] 3) (defalias 'nnmh-retrieve-headers #[(articles &optional newsgroup server fetch-old) "q \fG V  \f \"\f@;5т\f!\fA@ !P! ! \"c`\f !\fb#uu{dbcc`d| T 5 ߦU5 _ \"5! ." [nntp-server-buffer erase-buffer nil file articles number nnmail-large-newsgroup large 0 count binary pathname-coding-system beg article nnmh-possibly-change-directory newsgroup server headers file-exists-p file-name-as-directory nnmh-current-directory int-to-string file-directory-p format "221 %d Article retrieved.\n" nnheader-insert-head search-forward "\n\n" t -1 ".\n" 20 message "nnmh: Receiving headers... %d%%" 100 "nnmh: Receiving headers...done" nnheader-fold-continuation-lines] 5]) (nnoo-register-function (quote nnmh-retrieve-headers)) (defalias 'nnmh-open-server #[(server &optional defs) "\n # !ȏ ! # !!1 #\n $Ї" [nnoo-change-server nnmh server defs file-exists-p nnmh-directory nil (make-directory nnmh-directory t) ((error)) nnmh-close-server nnheader-report "Couldn't create directory: %s" file-directory-p file-truename "Not a directory: %s" "Opened server %s using directory %s" t] 5]) (nnoo-register-function (quote nnmh-open-server)) (defalias 'nnmh-request-article #[(id &optional newsgroup server buffer) " \n\" ;?\f !P \n;A\n!A\n!?A\n!)A\n!!+" [nnmh-possibly-change-directory newsgroup server id nnmh-current-directory int-to-string binary buffer nntp-server-buffer pathname-coding-system file file-exists-p file-directory-p nnmail-find-file string-to-int file-name-nondirectory] 4]) (nnoo-register-function (quote nnmh-request-article)) (defalias 'nnmh-request-group #[(group &optional server dont-check) " \n\"! #}\f ,, !; #҂}!$\"\"q # G @ Aj A_ @ %} # \"!+" [nnmail-group-pathname group nnmh-directory binary nil dir pathname-coding-system pathname file-directory-p nnheader-report nnmh "Can't select group (no such directory): %s" nnmh-current-directory nnmh-get-new-mail nnmh-be-safe nnmh-update-gnus-unreads dont-check "Selected group %s" t nnheader-re-read-dir sort mapcar #[(name) " !" [string-to-int name] 2] directory-files "^[0-9]+$" < nnheader-insert "211 %d %d %d %s\n" "Empty group %s" format "211 0 1 0 %s\n"] 9]) (nnoo-register-function (quote nnmh-request-group)) (defalias 'nnmh-request-scan #[(&optional group server) " \f$" [nnmail-get-new-mail nnmh nil nnmh-directory group] 5]) (nnoo-register-function (quote nnmh-request-scan)) (defalias 'nnmh-request-list #[(&optional server dir) "!\f!!!*  ̇" [nnheader-insert "" binary file-truename dir file-name-as-directory nnmh-directory nnmh-toplev pathname-coding-system nnmh-request-list-1 nnmail-get-active nnmh-group-alist t] 4]) (byte-code "! B" [nnoo-register-function nnmh-request-list nnmh-toplev current-load-list] 2) (defalias 'nnmh-request-list-1 #[(dir) " ! ! !!A@V $  A @G !˝ ! ! ! *! $\"qdb!!!! \" ܕO\"#\"\"$c))LJ" [expand-file-name dir file-readable-p file-attributes file-chase-links 2 directory-files t nil dirs file-name-nondirectory ("." "..") file-directory-p nnmh-request-list-1 nnmh-toplev mapcar #[(name) " !" [string-to-int name] 2] "^[0-9]+$" files nntp-server-buffer format "%s %d %d y\n" string-match regexp-quote file-truename file-name-as-directory nnheader-replace-chars-in-string decode-coding-string 0 nnmail-pathname-coding-system 47 46 apply max min] 9]) (defalias 'nnmh-request-newgroups #[(date &optional server) " !" [nnmh-request-list server] 2]) (nnoo-register-function (quote nnmh-request-newgroups)) (defalias 'nnmh-request-expire-articles #[(articles newsgroup &optional server force) " \n\"$\"\n \f !x x@!P\f\f!8o @\"g # g\f $ۏo@ B A&! -" [nnmh-possibly-change-directory newsgroup server mapcar #[(name) " !" [string-to-int name] 2] directory-files nnmh-current-directory nil "^[0-9]+$" t active-articles is-old article rest mod-time nnmail-activate nnmh articles int-to-string 5 file-attributes nnmh-deletable-article-p nnmail-expired-article-p force nnheader-message "Deleting article %s in %s..." (funcall nnmail-delete-file-function article) ((file-error (byte-code " \f$ @B" [nnheader-message 1 "Couldn't delete article %s in %s" article newsgroup articles rest] 5))) message ""] 8]) (nnoo-register-function (quote nnmh-request-expire-articles)) (defalias 'nnmh-close-group #[(group &optional server) "" [t] 1]) (nnoo-register-function (quote nnmh-close-group)) (defalias 'nnmh-request-move-article #[(article group server accept-form &optional last) "!\"@ #@\fq \f!!p! )@ \"ҏ *" [get-buffer-create " *nnmh move*" nil result buf nnmh-deletable-article-p group article nnmh-request-article server erase-buffer insert-buffer-substring nntp-server-buffer eval accept-form kill-buffer nnmh-possibly-change-directory (byte-code " !P!" [nnmail-delete-file-function nnmh-current-directory int-to-string article] 4) ((file-error))] 4]) (nnoo-register-function (quote nnmh-request-move-article)) (defalias 'nnmh-request-accept-article #[(group &optional server last noinsert) " \n\" \f!! ;+!L !BC\f\"@L!L!D!DтK\f\"@)X\fX " [nnmh-possibly-change-directory group server nnmail-check-syntax nnmail-cache-accepted-message-ids nnmail-cache-insert nnmail-fetch-field "message-id" nnmail-activate nnmh nnmh-save-mail nnmh-active-number noinsert nnmail-article-group res yes-or-no-p "Moved to `junk' group; delete article? " junk last nnmail-cache-close] 5]) (nnoo-register-function (quote nnmh-request-accept-article)) (defalias 'nnmh-request-replace-article #[(article group buffer) " !\nq !Ə)" [nnmh-possibly-change-directory group buffer nnmh-possibly-create-directory G77749 (byte-code "ed !P!?%ȇ" [nnmail-write-region nnmh-current-directory int-to-string article nil nnheader-be-verbose 5 nomesg t] 7) ((error))] 3]) (nnoo-register-function (quote nnmh-request-replace-article)) (defalias 'nnmh-request-create-group #[(group &optional server args) "! \f\"E BD\fB !  \"#\"D\"\"*Շ" [nnmail-activate nnmh assoc group nnmh-group-alist nil active 1 0 nnmh-possibly-create-directory nnmh-possibly-change-directory server mapcar #[(file) " !" [string-to-int file] 2] directory-files nnmh-current-directory "^[0-9]+$" articles apply min max t] 7]) (nnoo-register-function (quote nnmh-request-create-group)) (defalias 'nnmh-request-delete-group #[(group &optional force server) " \n\" ; #5@!,@ $ @!A)Џ \"\"Ƈ" [nnmh-possibly-change-directory group server force directory-files nnmh-current-directory t "^[0-9]+$" articles file-writable-p nnheader-message 5 "Deleting article %s in %s..." nnmail-delete-file-function G77750 (delete-directory nnmh-current-directory) ((error)) delq assoc nnmh-group-alist nil] 6]) (nnoo-register-function (quote nnmh-request-delete-group)) (defalias 'nnmh-request-rename-group #[(group new-name &optional server) " \n\"\f \" \"ʏc!\f\f>\f@AP\f@AP\"\fA\f)!GXNҏ \"^\f)*" [nnmh-possibly-change-directory group server nnmail-group-pathname new-name nnmh-directory old-dir new-dir G77751 (byte-code " \"‡" [make-directory new-dir t] 3) ((error)) nnheader-article-to-file-alist files rename-file directory-files 2 G77752 (delete-directory old-dir) ((error)) assoc nnmh-group-alist entry nil nnmh-current-directory t] 5]) (byte-code "!!" [nnoo-register-function nnmh-request-rename-group nnoo-define-skeleton-1 nnmh] 2) (defalias 'nnmh-possibly-change-directory #[(newsgroup &optional server) "!! / \"!*\n. \"*" [server nnmh-server-opened nnmh-open-server newsgroup nnmail-group-pathname nnmh-directory binary pathname-coding-system pathname file-directory-p nnmh-current-directory error "No such newsgroup: %s"] 3]) (defalias 'nnmh-possibly-create-directory #[(group) "\f \"\n!\n B\n!! > @!!/ @\" @# A *" [nil dirs dir nnmail-group-pathname group nnmh-directory file-directory-p file-name-directory directory-file-name make-directory error "Could not create directory %s" nnheader-message 5 "Creating mail directory %s"] 5]) #@32 Called narrowed to an article. (defalias 'nnmh-save-mail #[(group-art &optional noinsert) " !!!eb!&!y  p@@!@@\"@A!P Y #fed̉% )A0* " [noinsert nnmail-insert-lines nnmail-insert-xref group-art run-hooks nnmail-prepare-save-mail-hook nnmh-prepare-save-mail-hook looking-at "From " replace-match "X-From-Line: " 1 nil first ga nnmh-possibly-create-directory nnmail-group-pathname nnmh-directory int-to-string file nnmail-crosspost-link-function t nnmail-write-region] 7 (#$ . 10264)]) #@43 Compute the next article number in GROUP. (defalias 'nnmh-active-number #[(group) " \n\"A@ \f\"GB D\nB!-!#\"\"F@)AT \f\"A!P!gATNA+" [assoc group nnmh-group-alist nnmail-group-pathname nnmh-directory binary pathname-coding-system dir active 1 0 file-exists-p make-directory sort mapcar #[(f) " !" [string-to-int f] 2] directory-files nil "^[0-9]+$" > files int-to-string] 8 (#$ . 10828)]) (defalias 'nnmh-update-gnus-unreads #[(group) "$\"\"\n P\f \f!/ӏ)\nQ@H@ B A7)v@@\n>m@\"AZ)A@ @!P!8A~\"@ B ~* \" D\" \" \"\"\f!#!!q'(c!c(! (;!='q ;'q!!!0!!\"ed!%(. " [nnmh-current-directory dir sort mapcar #[(name) " !" [string-to-int name] 2] directory-files nil "^[0-9]+$" t < files ".nnmh-articles" nnmh-file new articles file-exists-p nnmh-newsgroup-articles G77753 (byte-code " É$" [load nnmh-file nil t] 5) ((error)) art delq arts 5 file-attributes int-to-string #[(art) " !P!8B" [art 5 file-attributes dir int-to-string] 6] gnus-make-articles-unread gnus-group-prefixed-name group nnmh "" #[(art1 art2) "@ @V" [art1 art2] 2] temp-file fundamental-mode default-major-mode get-buffer-create generate-new-buffer-name " *nnheader temp*" temp-buffer temp-results ((byte-code " !\n !" [buffer-name temp-buffer kill-buffer] 2)) ";; Gnus article active file for " "\n\n" "(setq nnmh-newsgroup-articles '" gnus-prin1 ")\n" buffer-string file-directory-p file-name-directory make-directory write-region nomesg] 9]) #@46 Say whether ARTICLE in GROUP can be deleted. (defalias 'nnmh-deletable-article-p #[(group article) "\n!P !\"A@A\n=?)" [nnmh-current-directory int-to-string article path file-writable-p assoc group nnmh-group-alist] 3 (#$ . 12544)]) (provide (quote nnmh))