;ELC ;;; compiled by larsi@ifi.uio.no on Fri Jun 28 20:34:28 1996 ;;; from file /gd/gnu/emacs/19.0/lisp/nnmh.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 "`nnmh.el' was compiled for Emacs 19.29 or later")) (byte-code "!!!!!\"ɉF\nB\nɇ" [require nnheader nnmail gnus nnoo cl nnmh mapcar #[(p) "C" [p] 1] nil nnoo-definition-alist] 4) #@24 *Mail spool directory. (defvar nnmh-directory message-directory (#$ . -608)) (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 (#$ . -732)) (nnoo-define (quote nnmh-get-new-mail) nil) #@49 *Hook run narrowed to an article before saving. (defvar nnmh-prepare-save-mail-hook nil (#$ . -895)) (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 (#$ . -1056)) (nnoo-define (quote nnmh-be-safe) nil) #@15 nnmh version. (defconst nnmh-version "nnmh 1.0" (#$ . 1224)) #@31 Current news group directory. (defvar nnmh-current-directory nil (#$ . 1291)) (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 \n  \"\f@;2ς\f!\fA@ !P! ! \"c`\n !\nb#ruxdbcc`d| T 2 ݦU2 _ \"2! ." [nntp-server-buffer erase-buffer nil file articles number nnmail-large-newsgroup large 0 count 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;>!>!?>!)>!!*" [nnmh-possibly-change-directory newsgroup server id nnmh-current-directory int-to-string buffer nntp-server-buffer 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\" ! #u \n &\f& !5 #Ђu ! $\"\"i #\fG\f@\fAb\fAW\f@ %u # \"!*" [nnmail-group-pathname group nnmh-directory nil dir 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) "!\n !!!)  ʇ" [nnheader-insert "" dir file-truename file-name-as-directory nnmh-directory nnmh-toplev nnmh-request-list-1 nnmail-get-active nnmh-group-alist t] 3]) (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 0 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 ! !p! )= \"я *" [get-buffer-create " *nnmh move*" nil result buf nnmh-deletable-article-p group article nnmh-request-article server 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\" ; !+ DC !@)!+ !@" [nnmh-possibly-change-directory group server nnmail-check-syntax nnmail-activate nnmh "" nnmail-split-methods nnmh-save-mail noinsert] 3]) (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 nil (byte-code "ed !P!?%ȇ" [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) "! \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 nil (delete-directory nnmh-current-directory) ((error)) delq assoc nnmh-group-alist] 6]) (nnoo-register-function (quote nnmh-request-delete-group)) (defalias 'nnmh-request-rename-group #[(group new-name &optional server) " \n\"\f!'Ǐ'  \"\n#\n )̇" [nnmh-possibly-change-directory group server file-writable-p nnmh-current-directory nil (byte-code "\n!\f \"!\"Ƈ" [rename-file directory-file-name nnmh-current-directory nnmail-group-pathname new-name nnmh-directory t] 6) ((error)) assoc nnmh-group-alist entry new-name t] 4]) (nnoo-register-function (quote nnmh-request-rename-group)) (defalias 'nnmh-possibly-change-directory #[(newsgroup &optional server) "!! , \"!'+ \")" [server nnmh-server-opened nnmh-open-server newsgroup nnmail-group-pathname nnmh-directory 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 #[(&optional noinsert) "!  \n!!!eb!+!y\nu@@!@@\"@A!P^#kedΉ%)A5*\n)" [nnmail-article-group nnmh-active-number group-art noinsert nnmail-insert-lines nnmail-insert-xref 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 write-region] 7 (#$ . 9489)]) #@43 Compute the next article number in GROUP. (defalias 'nnmh-active-number #[(group) " \n\"A@B D\nB AT \" A!P!3 AT A)" [assoc group nnmh-group-alist active 1 0 file-exists-p nnmail-group-pathname nnmh-directory int-to-string] 5 (#$ . 10084)]) (defalias 'nnmh-update-gnus-unreads #[(group) "$\"\"\n P\f \f!/ҏ)\nQ@H@ B A7)v@@\n>m@\"AZ) @@!P!8@A@\"@@ B A) @ @!P!8BBA) G!D\" \" \"\"!qc!ed\f%p!." [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 (byte-code " É$" [load nnmh-file nil t] 5) ((error)) art delq 5 file-attributes int-to-string n zerop gnus-make-articles-unread gnus-group-prefixed-name group nnmh "" #[(art1 art2) "@ @V" [art1 art2] 2] get-buffer-create "*nnmh out*" ";; Gnus article active file for " "\n\n" "(setq nnmh-newsgroup-articles '" prin1-to-string ")\n" write-region nomesg kill-buffer] 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 nnmail-keep-last-article assoc group nnmh-group-alist] 3 (#$ . 11280)]) (provide (quote nnmh))