;ELC ;;; Compiled ;;; in Emacs version 28.2 ;;; with all optimizations. (byte-code "\302\303!\210\302\304!\210\302\305!\210\302\306!\210\307\236\203#\307\236A\310\311\312\"\240\210\202.\307\310\311\312\"\312\211FB\307 \236\204:\307\313D B\312\207" [nnoo-definition-alist nnoo-state-alist require nnheader nnmail gnus-start nnoo nnmh mapcar list nil "*internal-non-initialized-backend*"] 4) #@95 Mail spool directory. This is a Gnus server variable. See Info node `(gnus)Select Methods'. (defvar nnmh-directory message-directory (#$ . 410)) (nnoo-define 'nnmh-directory nil) #@144 If non-nil, nnmh will check the incoming mail file and split the mail. This is a Gnus server variable. See Info node `(gnus)Select Methods'. (defvar nnmh-get-new-mail t (#$ . 598)) (nnoo-define 'nnmh-get-new-mail nil) #@120 Hook run narrowed to an article before saving. This is a Gnus server variable. See Info node `(gnus)Select Methods'. (defvar nnmh-prepare-save-mail-hook nil (#$ . 825)) (nnoo-define 'nnmh-prepare-save-mail-hook nil) #@302 If non-nil, nnmh will check all articles to make sure if they are new or not. Go through the .nnmh-articles file and compare with the actual articles in this folder. The articles that are "new" will be marked as unread by Gnus. This is a Gnus server variable. See Info node `(gnus)Select Methods'. (defvar nnmh-be-safe nil (#$ . 1050)) (nnoo-define 'nnmh-be-safe nil) #@15 nnmh version. (defconst nnmh-version "nnmh 1.0" (#$ . 1427)) #@103 Current news group directory. This is a Gnus server variable. See Info node `(gnus)Select Methods'. (defvar nnmh-current-directory nil (#$ . 1495)) (nnoo-define 'nnmh-current-directory nil) (defvar nnmh-status-string "") (nnoo-define 'nnmh-status-string nil) (defvar nnmh-group-alist nil) (nnoo-define 'nnmh-group-alist nil) (defvar nnmh-allow-delete-final nil) (byte-code "\300\301\302\"\210\303\301!\210\300\304\305\"\210\303\304!\210\300\306\307\"\210\303\306!\210\300\310\311\"\210\303\310!\207" [defalias nnmh-server-opened #[256 "\300\301\"\207" [nnoo-server-opened nnmh] 4 "\n\n(fn &optional SERVER)"] nnoo-register-function nnmh-status-message #[256 "\300\301\"\207" [nnoo-status-message nnmh] 4 "\n\n(fn &optional SERVER)"] nnmh-close-server #[512 "\300\301\"\207" [nnoo-close-server nnmh] 5 "\n\n(fn &optional SERVER DEFS)"] nnmh-open-server #[513 "\300\301#\207" [nnoo-change-server nnmh] 6 "\n\n(fn SERVER &optional DEFS)"]] 3) #@54 (fn ARTICLES &optional NEWSGROUP SERVER FETCH-OLD) (defalias 'nnmh-retrieve-headers #[1025 "rq\210\305 \210\306G \247\205\211 V\307\n\306\211\310  \"\210 @;\203)\311\202\246 \203\231\312\313\f!\314\f\211A\262\242\211\262!P\211\262!\203y\315!\204y\316\317\"c\210`\262\320!\210b\210\321\322\306\323#\203l\324u\210\202rdb\210\322c\210\325c\210`d|\210T\262\203)\326\246\307U\203)\327\330\331\332\333_ \"#\210\202)\203\242\327\330\334\"\210\335 \210\311)\266\206)\207" [nntp-server-buffer nnmail-large-newsgroup nnmail-pathname-coding-system file-name-coding-system nnmh-current-directory erase-buffer nil 0 nnmh-possibly-change-directory headers file-exists-p file-name-as-directory int-to-string file-directory-p format "221 %d Article retrieved.\n" nnheader-insert-head search-forward "\n\n" t -1 ".\n" 20 nnheader-message 5 "nnmh: Receiving headers... %d%%" floor 100.0 "nnmh: Receiving headers...done" nnheader-fold-continuation-lines] 16 (#$ . 2448)]) (nnoo-register-function 'nnmh-retrieve-headers) #@30 (fn SERVER &optional DEFS) (defalias 'nnmh-open-server #[513 "\301\302#\210\303!\204\3041\305\306\"0\210\202\210\303!\204)\307 \210\310\302\311#\207\312\313!!\204:\307 \210\310\302\314#\207\310\302\315$\210\306\207" [nnmh-directory nnoo-change-server nnmh file-exists-p (error) make-directory t 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"] 7 (#$ . 3496)]) (nnoo-register-function 'nnmh-open-server) #@45 (fn ID &optional NEWSGROUP SERVER BUFFER) (defalias 'nnmh-request-article #[1025 "\304\"\210;?\205\305!P \206\n\211;\2057\306!\2057\307!?\2057\212\310!)\2057\311\312!!*\207" [nnmh-current-directory nnmail-pathname-coding-system nntp-server-buffer file-name-coding-system nnmh-possibly-change-directory int-to-string file-exists-p file-directory-p nnmail-find-file string-to-number file-name-nondirectory] 8 (#$ . 4034)]) (nnoo-register-function 'nnmh-request-article) #@47 (fn GROUP &optional SERVER DONT-CHECK INFO) (defalias 'nnmh-request-group #[1025 "\306 \210\307\"\210\310\" \311\312!\204\313\314\315 #\202\224\f\203. \203.\316!\210\203=\313\314\317 #\210\320\202\224\321!\210\322\323\324\325\311\326\320$\"\327\"\262\211\203\206\330\331 \" \" @\332!@BD B \313\314\317 #\210\333\334G@\332!@ %\202\224\313\314\335 #\210\333\336\337 \"!)\207" [nnmh-directory nnmail-pathname-coding-system file-name-coding-system nnmh-current-directory nnmh-get-new-mail nnmh-be-safe nnheader-init-server-buffer nnmh-possibly-change-directory nnmail-group-pathname nil file-directory-p nnheader-report nnmh "Can't select group (no such directory): %s" nnmh-update-gnus-unreads "Selected group %s" t nnheader-re-read-dir sort mapcar string-to-number directory-files "\\`[0-9]+\\'" < delq assoc last nnheader-insert "211 %d %d %d %s\n" "Empty group %s" format "211 0 1 0 %s\n" nnmh-group-alist] 15 (#$ . 4530)]) (nnoo-register-function 'nnmh-request-group) #@31 (fn &optional GROUP SERVER) (defalias 'nnmh-request-scan #[512 "\301\302\303$\207" [nnmh-directory nnmail-get-new-mail nnmh nil] 7 (#$ . 5552)]) (nnoo-register-function 'nnmh-request-scan) #@29 (fn &optional SERVER DIR) (defalias 'nnmh-request-list #[512 "\305\306!\210\307\310\"\210\311\206\312 !!\313\n!\210*\314 \315\207" [nnmail-pathname-coding-system nnmh-directory nnmh-toplev file-name-coding-system nnmh-group-alist nnheader-insert "" nnmh-possibly-change-directory nil file-truename file-name-as-directory nnmh-request-list-1 nnmail-get-active t] 6 (#$ . 5751)]) (nnoo-register-function 'nnmh-request-list) #@12 (fn DIR) (defalias 'nnmh-request-list-1 #[257 "\303!\262\304\305\306\305$\307\306\211\211\211\310\311!!\211A@\262\312U?\262\211\203u\211@\2031\313!\203Y\314!\262\315\316\"\203n\317!\262]\262\203SW\203n\262\202n\320!\203n\311!\311\n!\232\204n\321!\210A\266\202\202!\210\303!\230\204\270r q\210db\210\322\323\315\324\311\325\303!!!!\n\"\210\326 \307\225\306O\327\330\331#\266\203\n\"\206\256\307\206\264\332$c\210)\266\305\207" [nnmh-toplev nntp-server-buffer nnmail-pathname-coding-system expand-file-name nnheader-directory-files t nil 0 file-attributes file-truename 2 file-regular-p file-name-nondirectory string-match "^[0-9]+$" string-to-number file-readable-p nnmh-request-list-1 format "%s %.0f %.0f y\n" regexp-quote file-name-as-directory encode-coding-string 47 46 subst-char-in-string 1] 17 (#$ . 6189)]) #@30 (fn DATE &optional SERVER) (defalias 'nnmh-request-newgroups #[513 "\300!\207" [nnmh-request-list] 4 (#$ . 7069)]) (nnoo-register-function 'nnmh-request-newgroups) #@50 (fn ARTICLES NEWSGROUP &optional SERVER FORCE) (defalias 'nnmh-request-expire-articles #[1026 "\303\"\210\304\305\211\211\306 \210\203\240\203\240\307\n@!P\262\310!\3118\262\211\262\203\230\312\n@\"\203\221\313#\211\262\203\221 \314=\204j\315\316\304\"r\211q\210\317\320\"\216\321\n@\n\np$\210\322 \n\"\210*\210\323\311\324 $\210\3251~\n!0\210\202\230\210\323\326\327 $\210@B\262\202\230@B\262A\262 \202 \323\311\330\"\210 \244\207" [nnmh-current-directory nnmail-expiry-target nnmail-delete-file-function nnmh-possibly-change-directory t nil nnheader-init-server-buffer int-to-string file-attributes 5 nnmh-deletable-article-p nnmail-expired-article-p delete generate-new-buffer " *temp*" make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] nnmh-request-article nnmail-expiry-target-group nnheader-message "Deleting article %s in %s..." (file-error) 1 "Couldn't delete article %s in %s" ""] 15 (#$ . 7242)]) (nnoo-register-function 'nnmh-request-expire-articles) #@31 (fn GROUP &optional SERVER) (defalias 'nnmh-close-group #[513 "\300\207" [t] 3 (#$ . 8296)]) (nnoo-register-function 'nnmh-close-group) #@73 (fn ARTICLE GROUP SERVER ACCEPT-FORM &optional LAST MOVE-IS-INTERNAL) (defalias 'nnmh-request-move-article #[1540 "\303\304!\305\306 \"\203I\307#\203Irq\210\310 \210\311!\210\312\313\"\262\314p!\210)\211\203I\315\"\210\3161H \n\317\n!P!0\210\207\210\207" [nntp-server-buffer nnmail-delete-file-function nnmh-current-directory gnus-get-buffer-create " *nnmh move*" nil nnmh-deletable-article-p nnmh-request-article erase-buffer insert-buffer-substring eval t kill-buffer nnmh-possibly-change-directory (file-error) int-to-string] 12 (#$ . 8440)]) (nnoo-register-function 'nnmh-request-move-article) #@45 (fn GROUP &optional SERVER LAST NOINSERT) (defalias 'nnmh-request-accept-article #[1025 "\301\"\210\302 \210\203\303\304\305!\304\306!\304\307!$\210\310 \210;\2039\211\203+\311!\202Q\312\311!BC\"@\202Q\313\311!\211\204J\314\315!\203J\316\202O\312\"@\262\203\\\203\\\317 \210\207" [nnmail-cache-accepted-message-ids nnmh-possibly-change-directory nnmail-check-syntax nnmail-cache-insert nnmail-fetch-field "message-id" "subject" "from" nnheader-init-server-buffer nnmh-active-number nnmh-save-mail nnmail-article-group yes-or-no-p "Moved to `junk' group; delete article? " junk nnmail-cache-close] 10 (#$ . 9068)]) (nnoo-register-function 'nnmh-request-accept-article) #@29 (fn ARTICLE GROUP BUFFER) (defalias 'nnmh-request-replace-article #[771 "\301!\210r\211q\210\302!\210\3031)\304ed\305!P\306\307\310!?\205\"\311%\210\3120\202+\210\306)\207" [nnmh-current-directory nnmh-possibly-change-directory nnmh-possibly-create-directory (error) nnmail-write-region int-to-string nil nnheader-be-verbose 5 nomesg t] 10 (#$ . 9770)]) (nnoo-register-function 'nnmh-request-replace-article) #@36 (fn GROUP &optional SERVER ARGS) (defalias 'nnmh-request-create-group #[769 "\302 \210\303\"\204;\304\305\306B\211\262DB\307!\210\310\"\210\311\312\313 \304\314#\"\211\2039\315\316\"\240\210\315\317\"\241\210\266\320\207" [nnmh-group-alist nnmh-current-directory nnheader-init-server-buffer assoc nil 1 0 nnmh-possibly-create-directory nnmh-possibly-change-directory mapcar string-to-number directory-files "\\`[0-9]+\\'" apply min max t] 10 (#$ . 10195)]) (nnoo-register-function 'nnmh-request-create-group) #@37 (fn GROUP &optional FORCE SERVER) (defalias 'nnmh-request-delete-group #[769 "\303\"\210\203<\304\305\306#\211\203.\307@!\203'\310\311\312@$\210 @!\210\211A\262\202\210\3131;\314!0\210\202<\210\315\316\n\"\n\"\317\305\207" [nnmh-current-directory nnmail-delete-file-function nnmh-group-alist nnmh-possibly-change-directory directory-files t "\\`[0-9]+\\'" file-writable-p nnheader-message 5 "Deleting article %s in %s..." (error) delete-directory delq assoc nil] 9 (#$ . 10728)]) (nnoo-register-function 'nnmh-request-delete-group) #@40 (fn GROUP NEW-NAME &optional SERVER) (defalias 'nnmh-request-rename-group #[770 "\303\"\210\304\"\304\"\3051\306\307\"\210\3070\202\210\310\207\205d\311!\211\203<\312@AP@AP\"\210\211A\262\202$\210\313!G\314X\203S\3151R\316!0\210\202S\210\317 \"\211\203_\211\240\210\310\307\262\207" [nnmh-directory nnmh-group-alist nnmh-current-directory nnmh-possibly-change-directory nnmail-group-pathname (error) make-directory t nil nnheader-article-to-file-alist rename-file directory-files 2 (error) delete-directory assoc] 10 (#$ . 11289)]) (byte-code "\300\301!\210\302\303!\207" [nnoo-register-function nnmh-request-rename-group nnoo-define-skeleton-1 nnmh] 2) #@35 (fn NEWSGROUP &optional SERVER) (defalias 'nnmh-possibly-change-directory #[513 "\211\203\304!\204\305!\210\205,\306\" \307!\203$\211\211\202)\310\311\312#)\262\207" [nnmh-directory nnmail-pathname-coding-system file-name-coding-system nnmh-current-directory nnmh-server-opened nnmh-open-server nnmail-group-pathname file-directory-p nnheader-report nnmh "Not a directory: %s"] 7 (#$ . 11981)]) #@14 (fn GROUP) (defalias 'nnmh-possibly-create-directory #[257 "\301\211\302\"\262\303!\204B\262\304\305!!\262\202\211\205>\306\305@!!\2030\307\310@\"\210\311\312\313@#\210\211A\262\202\207" [nnmh-directory nil nnmail-group-pathname file-directory-p file-name-directory directory-file-name make-directory error "Could not create directory %s" nnheader-message 5 "Creating mail directory %s"] 7 (#$ . 12401)]) #@67 Called narrowed to an article. (fn GROUP-ART &optional NOINSERT) (defalias 'nnmh-save-mail #[513 "\211\204 \302 \210\303!\210\304\305!\210\304\306!\210eb\210\307\310!\203&\311\312!\210\313y\210\202\314\203]\315@@!\210\316@@\"\317@A!P\203L \320#\266\202V\321ed\314\211%\210\262A\262\202(\266\207" [nnmh-directory nnmail-crosspost-link-function 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 nnmh-possibly-create-directory nnmail-group-pathname int-to-string t nnmail-write-region] 11 (#$ . 12835)]) #@55 Compute the next article number in GROUP. (fn GROUP) (defalias 'nnmh-active-number #[257 "\304\"A@\305 \"\n\306\204=\307\310B\262DB\311!\204'\312!\210\313\314\315\316\306\317#\"\320\"\211\203<@\241\210\210\211AT\241\210\311\305 \"\321A!P\211\262!\204\\\322!\203e\211AT\241\210\202CA)\207" [nnmh-group-alist nnmh-directory nnmail-pathname-coding-system file-name-coding-system assoc nnmail-group-pathname nil 1 0 file-exists-p gnus-make-directory sort mapcar string-to-number directory-files "\\`[0-9]+\\'" > int-to-string get-file-buffer] 12 (#$ . 13480)]) #@14 (fn GROUP) (defalias 'nnmh-update-gnus-unreads #[257 "\302\303\304\305\306\307\310$\"\311\"\312P\306\211\313!\203.\306\3141)\315\306\310\211$0\210\202*\210 )\262\211\203G\211@\236\204@\211@B\262\211A\262\202/\210\211\211\203c\211@@>\204\\\316@\"\262\211A\262\202I\210\211\306\211A\262\242\211\262\203\225\317\320@!P!\3218\262A\232\204f\316\"\262\211@B\262\202f\266\211\303\322\323\"\"\244\262\203\270\324\325\326\327D\"\302\311\"\211\262\"\210\302\330\"\262\331\332\310\"\322\333\"\216r\211q\210\334\335\261\210\336c\210\337!\210\340c)rq\210\341\306\211\306\342%\210*\207" [nnmh-current-directory nnmh-newsgroup-articles sort mapcar string-to-number directory-files nil "\\`[0-9]+\\'" t < ".nnmh-articles" file-exists-p (error) load delq file-attributes int-to-string 5 make-closure #[257 "\211\301\300\302!P!\3038\262B\207" [V0 file-attributes int-to-string 5] 6 "\n\n(fn ART)"] gnus-make-articles-unread gnus-group-prefixed-name nnmh "" #[514 "@@V\207" [] 4 "\n\n(fn ART1 ART2)"] generate-new-buffer " *temp file*" #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] ";; Gnus article active file for " "\n\n" "(setq nnmh-newsgroup-articles '" gnus-prin1 ")\n" write-region 0] 14 (#$ . 14076)]) #@66 Say whether ARTICLE in GROUP can be deleted. (fn GROUP ARTICLE) (defalias 'nnmh-deletable-article-p #[514 "\303!P\304!\205\305 \"A@A=?\206\n\207" [nnmh-current-directory nnmh-group-alist nnmh-allow-delete-final int-to-string file-writable-p assoc] 6 (#$ . 15364)]) (provide 'nnmh)