Gecko [ 122.154.134.11 ]

Name	Size	Permission
auth-source.elc	5.49 KB	-rw-r--r--
canlock.elc	6.03 KB	-rw-r--r--
compface.elc	1.35 KB	-rw-r--r--
deuglify.elc	8.31 KB	-rw-r--r--
earcon.elc	5.67 KB	-rw-r--r--
ecomplete.elc	4.45 KB	-rw-r--r--
flow-fill.elc	4.57 KB	-rw-r--r--
gmm-utils.elc	7.68 KB	-rw-r--r--
gnus-agent.elc	122.37 KB	-rw-r--r--
gnus-art.elc	258.37 KB	-rw-r--r--
gnus-async.elc	12.09 KB	-rw-r--r--
gnus-audio.elc	2.48 KB	-rw-r--r--
gnus-bcklg.elc	3.67 KB	-rw-r--r--
gnus-bookmark.elc	24.54 KB	-rw-r--r--
gnus-cache.elc	26.11 KB	-rw-r--r--
gnus-cite.elc	27.6 KB	-rw-r--r--
gnus-cus.elc	38.4 KB	-rw-r--r--
gnus-delay.elc	4.98 KB	-rw-r--r--
gnus-demon.elc	8.65 KB	-rw-r--r--
gnus-diary.elc	9 KB	-rw-r--r--
gnus-dired.elc	6.56 KB	-rw-r--r--
gnus-draft.elc	10.7 KB	-rw-r--r--
gnus-dup.elc	4.77 KB	-rw-r--r--
gnus-eform.elc	3.68 KB	-rw-r--r--
gnus-ems.elc	7.21 KB	-rw-r--r--
gnus-fun.elc	8.91 KB	-rw-r--r--
gnus-group.elc	155.85 KB	-rw-r--r--
gnus-int.elc	51.53 KB	-rw-r--r--
gnus-kill.elc	18.37 KB	-rw-r--r--
gnus-logic.elc	5.2 KB	-rw-r--r--
gnus-mh.elc	2.89 KB	-rw-r--r--
gnus-ml.elc	5.22 KB	-rw-r--r--
gnus-mlspl.elc	6.37 KB	-rw-r--r--
gnus-move.elc	3.63 KB	-rw-r--r--
gnus-msg.elc	84.07 KB	-rw-r--r--
gnus-nocem.elc	12.08 KB	-rw-r--r--
gnus-picon.elc	8.63 KB	-rw-r--r--
gnus-range.elc	11.92 KB	-rw-r--r--
gnus-registry.elc	32.46 KB	-rw-r--r--
gnus-salt.elc	29.77 KB	-rw-r--r--
gnus-score.elc	76.25 KB	-rw-r--r--
gnus-setup.elc	5.01 KB	-rw-r--r--
gnus-sieve.elc	8.54 KB	-rw-r--r--
gnus-soup.elc	16.29 KB	-rw-r--r--
gnus-spec.elc	17 KB	-rw-r--r--
gnus-srvr.elc	43.88 KB	-rw-r--r--
gnus-start.elc	142.13 KB	-rw-r--r--
gnus-sum.elc	406.63 KB	-rw-r--r--
gnus-topic.elc	46.81 KB	-rw-r--r--
gnus-undo.elc	4.07 KB	-rw-r--r--
gnus-util.elc	48.22 KB	-rw-r--r--
gnus-uu.elc	57.87 KB	-rw-r--r--
gnus-vm.elc	2.63 KB	-rw-r--r--
gnus-win.elc	12.56 KB	-rw-r--r--
gnus.elc	158.49 KB	-rw-r--r--
html2text.elc	10.59 KB	-rw-r--r--
ietf-drums.elc	7.85 KB	-rw-r--r--
legacy-gnus-agent.elc	6.67 KB	-rw-r--r--
mail-parse.elc	2.44 KB	-rw-r--r--
mail-prsvr.elc	1.29 KB	-rw-r--r--
mail-source.elc	30.28 KB	-rw-r--r--
mailcap.elc	25.11 KB	-rw-r--r--
message.elc	223.29 KB	-rw-r--r--
messcompat.elc	2.83 KB	-rw-r--r--
mm-bodies.elc	6.06 KB	-rw-r--r--
mm-decode.elc	46.1 KB	-rw-r--r--
mm-encode.elc	5.96 KB	-rw-r--r--
mm-extern.elc	4.65 KB	-rw-r--r--
mm-partial.elc	3.44 KB	-rw-r--r--
mm-url.elc	9.94 KB	-rw-r--r--
mm-util.elc	39.83 KB	-rw-r--r--
mm-uu.elc	18.57 KB	-rw-r--r--
mm-view.elc	17.58 KB	-rw-r--r--
mml-sec.elc	12.58 KB	-rw-r--r--
mml-smime.elc	14.58 KB	-rw-r--r--
mml.elc	40.35 KB	-rw-r--r--
mml1991.elc	14.71 KB	-rw-r--r--
mml2015.elc	41.93 KB	-rw-r--r--
nnagent.elc	10.86 KB	-rw-r--r--
nnbabyl.elc	17.45 KB	-rw-r--r--
nndb.elc	29.58 KB	-rw-r--r--
nndiary.elc	39.38 KB	-rw-r--r--
nndir.elc	3.2 KB	-rw-r--r--
nndoc.elc	28.12 KB	-rw-r--r--
nndraft.elc	9.95 KB	-rw-r--r--
nneething.elc	11.98 KB	-rw-r--r--
nnfolder.elc	38.93 KB	-rw-r--r--
nngateway.elc	3.1 KB	-rw-r--r--
nnheader.elc	30.94 KB	-rw-r--r--
nnimap.elc	61.12 KB	-rw-r--r--
nnir.elc	45.26 KB	-rw-r--r--
nnkiboze.elc	11.79 KB	-rw-r--r--
nnlistserv.elc	4.42 KB	-rw-r--r--
nnmail.elc	52.92 KB	-rw-r--r--
nnmaildir.elc	98.94 KB	-rw-r--r--
nnmairix.elc	72.84 KB	-rw-r--r--
nnmbox.elc	19.03 KB	-rw-r--r--
nnmh.elc	15.64 KB	-rw-r--r--
nnml.elc	45.05 KB	-rw-r--r--
nnnil.elc	1.94 KB	-rw-r--r--
nnoo.elc	8.95 KB	-rw-r--r--
nnrss.elc	33.15 KB	-rw-r--r--
nnslashdot.elc	16.43 KB	-rw-r--r--
nnsoup.elc	21.22 KB	-rw-r--r--
nnspool.elc	15.55 KB	-rw-r--r--
nntp.elc	135.97 KB	-rw-r--r--
nnultimate.elc	13.85 KB	-rw-r--r--
nnvirtual.elc	18.99 KB	-rw-r--r--
nnwarchive.elc	21.92 KB	-rw-r--r--
nnweb.elc	18.3 KB	-rw-r--r--
nnwfm.elc	12.56 KB	-rw-r--r--
pop3.elc	13.01 KB	-rw-r--r--
qp.elc	4.12 KB	-rw-r--r--
rfc1843.elc	5.74 KB	-rw-r--r--
rfc2045.elc	1.01 KB	-rw-r--r--
rfc2047.elc	25.24 KB	-rw-r--r--
rfc2104.elc	1.71 KB	-rw-r--r--
rfc2231.elc	6.9 KB	-rw-r--r--
score-mode.elc	3.56 KB	-rw-r--r--
sieve-manage.elc	19.88 KB	-rw-r--r--
sieve-mode.elc	7.1 KB	-rw-r--r--
sieve.elc	10.77 KB	-rw-r--r--
smiley.elc	5.37 KB	-rw-r--r--
smime.elc	18.81 KB	-rw-r--r--
spam-report.elc	11.77 KB	-rw-r--r--
spam-stat.elc	19.88 KB	-rw-r--r--
spam-wash.elc	1.43 KB	-rw-r--r--
spam.elc	87.54 KB	-rw-r--r--
starttls.elc	6.63 KB	-rw-r--r--
utf7.elc	6.08 KB	-rw-r--r--
webmail.elc	28.79 KB	-rw-r--r--
yenc.elc	3.85 KB	-rw-r--r--

Code Editor : nnmh.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:04:02 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/gnus/nnmh.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (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 "\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 (#$ . 930))
(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 (#$ . 1118))
(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 (#$ . 1346))
(nnoo-define 'nnmh-prepare-save-mail-hook nil)
#@307 If non-nil, nnmh will check all articles to make sure whether 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 (#$ . 1572))
(nnoo-define 'nnmh-be-safe nil)
#@15 nnmh version.
(defconst nnmh-version "nnmh 1.0" (#$ . 1954))
#@103 Current news group directory.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnmh-current-directory nil (#$ . 2022))
(byte-code "\301\302\303\"\210\304B\305\304!\204�\306\304\307\"\210\301\304\303\"\210\310B\305\310!\204(�\306\310\303\"\210\301\310\303\"\210\311B\305\311!\204<�\306\311\303\"\210\312\313!\207" [current-load-list nnoo-define nnmh-current-directory nil nnmh-status-string default-boundp set-default "" nnmh-group-alist nnmh-allow-delete-final nnoo-define-basics-1 nnmh] 3)
(defalias 'nnmh-retrieve-headers #[(articles &optional newsgroup server fetch-old) "rq\210\306 \210\307\nG\f\247\205�\fV\310 !\307\211\"#\311$%\"\210\n@;\2033�\312\202\255�\n\203\240�\313\314&!\315\n\211A@\211#!P\211!\203\200�\316	!\204\200�\317\320#\"c\210`\"\321	!\210\"b\210\322\323\307\324#\203s�\325u\210\202y�db\210\323c\210\326c\210`d|\210T
\2033�\327\330\246!\2033�\331\332\333\334_\245#\210\2023�
\203\251�\331\332\335\"\210\336 \210\312.\207" [nntp-server-buffer file articles number nnmail-large-newsgroup large 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" zerop 20 nnheader-message 5 "nnmh: Receiving headers... %d%%" 100 "nnmh: Receiving headers...done" nnheader-fold-continuation-lines count nnmail-pathname-coding-system file-name-coding-system beg article newsgroup server nnmh-current-directory] 6])
(nnoo-register-function 'nnmh-retrieve-headers)
(defalias 'nnmh-open-server #[(server &optional defs) "\303\304	#\210\305\n!\204�\306\307\310\217\210\305\n!\204 �\311 \210\312\304\313\n#\207\314\315\n!!\2041�\311 \210\312\304\316\n#\207\312\304\317\n$\210\320\207" [server defs nnmh-directory nnoo-change-server nnmh file-exists-p 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 'nnmh-open-server)
(defalias 'nnmh-request-article #[(id &optional newsgroup server buffer) "\306	\"\210\n;?\205�\307\n!P\f
\206�

\211;\205@�\310!\205@�\311!?\205@�\212\312!)\205@�\313\314!!+\207" [newsgroup server id nnmh-current-directory nnmail-pathname-coding-system buffer nnmh-possibly-change-directory int-to-string file-exists-p file-directory-p nnmail-find-file string-to-number file-name-nondirectory nntp-server-buffer file-name-coding-system file] 4])
(nnoo-register-function 'nnmh-request-article)
(defalias 'nnmh-request-group #[(group &optional server dont-check) "\306 \210\307	\"\210\310\n\"\311 \312 !\204!�\313\314\315#\202\223� !\"\2033�#\2033�\316!\210$\203B�\313\314\317#\210\320\202\223�\321 !\210\322\323\324\325 \311\326\320$\"\327\"\211\203\207�\330\331%\"%\"%\f@\332\f!@BD%B%\313\314\317#\210\333\334\fG\f@\332\f!@%\202\223�\313\314\335#\210\333\336\337\"!+\207" [group server nnmh-directory nnmail-pathname-coding-system dir file-name-coding-system 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" pathname nnmh-current-directory nnmh-get-new-mail nnmh-be-safe dont-check nnmh-group-alist] 9])
(nnoo-register-function 'nnmh-request-group)
(defalias 'nnmh-request-scan #[(&optional group server) "\302\303\304	$\207" [nnmh-directory group nnmail-get-new-mail nnmh nil] 5])
(nnoo-register-function 'nnmh-request-scan)
(defalias 'nnmh-request-list #[(&optional server dir) "\306\307!\210\310\311\"\210	\312\n\206�\313!!\314\f!\210*\315 \316\207" [server nnmail-pathname-coding-system dir nnmh-directory nnmh-toplev file-name-coding-system nnheader-insert "" nnmh-possibly-change-directory nil file-truename file-name-as-directory nnmh-request-list-1 nnmail-get-active t nnmh-group-alist] 4])
(nnoo-register-function 'nnmh-request-list)
(defalias 'nnmh-request-list-1 #[(dir) "\306!\307!\205�\310\311\312\311$\312\n\211A@\211\203:�\313	!\203�\307	!\203�\314	!\314!\232\204�\315	!\210\202�*\306!\230\204\220�\316\317\320\312\321\311$\"\211\203\217�r
q\210db\210\322\323\324\325\314\326\306!!!!\"\210\327\330\331\225\312O\332\333 !\"\334! \"#+#\"!\335\336\f\"\335\337\f\"$c\210))\311\207" [dir rdir dirs nnmh-toplev files nntp-server-buffer expand-file-name file-readable-p nnheader-directory-files t nil file-directory-p file-truename nnmh-request-list-1 mapcar string-to-number directory-files "^[0-9]+$" format "%s %.0f %.0f y\n" string-match regexp-quote file-name-as-directory mm-string-to-multibyte mm-encode-coding-string 0 47 46 mm-subst-char-in-string apply max min to from string nnmail-pathname-coding-system] 9])
(defalias 'nnmh-request-newgroups #[(date &optional server) "\301!\207" [server nnmh-request-list] 2])
(nnoo-register-function 'nnmh-request-newgroups)
(defalias 'nnmh-request-expire-articles #[(articles newsgroup &optional server force) "\306	\"\210\307\310\311\307#\206�\n\312\211\211\313 \210\203\214�\203\214�\314@!P\315\316
!8\211\203\203�\317@\"\203}�\320#\211\203}�\n\321=\204n�\322\323! r q\210\324\216\325@	p$\210\326\n\"\210+\327\315\330
$\210\312\331\332\217\210\202\203�@\fBA\211\204 �\327\315\333\"\210\f\244-\207" [newsgroup server nnmail-expiry-target mod-time rest article nnmh-possibly-change-directory t gnus-group-find-parameter expiry-target nil nnheader-init-server-buffer int-to-string 5 file-attributes nnmh-deletable-article-p nnmail-expired-article-p delete generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) nnmh-request-article nnmail-expiry-target-group nnheader-message "Deleting article %s in %s..." (funcall nnmail-delete-file-function article) ((file-error (byte-code "\304\305\306	$\210\n@B\304\207" [article newsgroup articles rest nnheader-message 1 "Couldn't delete article %s in %s"] 5))) "" is-old articles nnmh-current-directory force #1#] 6])
(nnoo-register-function 'nnmh-request-expire-articles)
(defalias 'nnmh-close-group #[(group &optional server) "\300\207" [t] 1])
(nnoo-register-function 'nnmh-close-group)
(defalias 'nnmh-request-move-article #[(article group server accept-form &optional last move-is-internal) "\306\307!\310\311\n\"\2038�\312\n\f#\2038�r	q\210\313 \210\314
!\210\315!\316p!\210)\2038�\317\n\f\"\210\310\320\321\217\210*\207" [result buf group article server nntp-server-buffer get-buffer-create " *nnmh move*" nil nnmh-deletable-article-p nnmh-request-article erase-buffer insert-buffer-substring eval kill-buffer nnmh-possibly-change-directory (byte-code "	\303\n!P!\207" [nnmail-delete-file-function nnmh-current-directory article int-to-string] 4) ((file-error)) accept-form] 4])
(nnoo-register-function 'nnmh-request-move-article)
(defalias 'nnmh-request-accept-article #[(group &optional server last noinsert) "\306	\"\210\307 \210\n\203�\310\311\312!\311\313!\311\314!$\210\315 \210;\2038�\203+�\316!\202P�\317\316!BC\"@\202P�\320\316!\211\204J�\321\322!\203J�\323\202O�\317\f\"@)
\203[�\n\203[�\324 \210\207" [group server nnmail-cache-accepted-message-ids noinsert res last 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] 7])
(nnoo-register-function 'nnmh-request-accept-article)
(defalias 'nnmh-request-replace-article #[(article group buffer) "\302!\210r	q\210\303!\210\304\305\306\217)\207" [group buffer nnmh-possibly-change-directory nnmh-possibly-create-directory nil (byte-code "\302ed\303	!P\304\305\306!?\205�\307%\210\310\207" [nnmh-current-directory article nnmail-write-region int-to-string nil nnheader-be-verbose 5 nomesg t] 7) ((error))] 3])
(nnoo-register-function 'nnmh-request-replace-article)
(defalias 'nnmh-request-create-group #[(group &optional server args) "\306 \210\307	\"\204;�\310\311\312B\211D	B\313!\210\314\"\210\315\316\317\f\310\320#\"\211\203:�\n\321\322
\"\240\210\n\321\323
\"\241\210*\324\207" [group nnmh-group-alist active server nnmh-current-directory articles 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] 7])
(nnoo-register-function 'nnmh-request-create-group)
(defalias 'nnmh-request-delete-group #[(group &optional force server) "\306	\"\210\n\2034�\307\310\311#\211\203.�\312\f@!\203'�\313\314\315\f@$\210
\f@!\210\fA\211\204�)\316\317\320\217\210\321\322\"\"\316\310\207" [group server force nnmh-current-directory articles nnmail-delete-file-function nnmh-possibly-change-directory directory-files t "^[0-9]+$" file-writable-p nnheader-message 5 "Deleting article %s in %s..." nil (delete-directory nnmh-current-directory) ((error)) delq assoc nnmh-group-alist] 6])
(nnoo-register-function 'nnmh-request-delete-group)
(defalias 'nnmh-request-rename-group #[(group new-name &optional server) "\306	\"\210\307\n\"\307\"\310\311\312\217\205f�\313\f!\203B�\314\f\211@A)P
\211@A)P\"\210\211A@\210\202�)\315\f!G\316X\203Q�\310\317\320\217\210\321\"\211\203a�\n\240\210\310)\322*\207" [group server new-name nnmh-directory old-dir new-dir nnmh-possibly-change-directory nnmail-group-pathname nil (byte-code "\301\302\"\210\302\207" [new-dir make-directory t] 3) ((error)) nnheader-article-to-file-alist rename-file directory-files 2 (delete-directory old-dir) ((error)) assoc t files x nnmh-group-alist entry nnmh-current-directory] 5])
(byte-code "\300\301!\210\302\303!\207" [nnoo-register-function nnmh-request-rename-group nnoo-define-skeleton-1 nnmh] 2)
(defalias 'nnmh-possibly-change-directory #[(newsgroup &optional server) "\203�\306!\204�\307!\210	\205,�\310	\n\"\311
!\203&�
\211
\202+�\312\313\314\n#*\207" [server newsgroup nnmh-directory nnmail-pathname-coding-system file-name-coding-system pathname nnmh-server-opened nnmh-open-server nnmail-group-pathname file-directory-p nnheader-report nnmh "Not a directory: %s" nnmh-current-directory] 4])
(defalias 'nnmh-possibly-create-directory #[(group) "\304\211\305\n\"\306	!\204�	B\307\310	!!\202	�\205>�\311\310@!!\203/�\312\313@\"\210\314\315\316@#\210A\211\204 �\304*\207" [dirs dir group 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"] 5])
#@32 Called narrowed to an article.
(defalias 'nnmh-save-mail #[(group-art &optional noinsert) "\204�\306 \210\307	!\210\310\311!\210\310\312!\210eb\210\313\314!\203&�\315\316!\210\317y\210\202�	\320\211\203n�\321\211@@)!\210\322\211@@)
\"\323\211@A)!P\n\203Z�\n\324#\210\202f�\325ed\320\211%\210)A\211\204.�*	\207" [noinsert group-art first ga x nnmh-directory 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 file nnmail-crosspost-link-function] 7 (#$ . 13074)])
#@43 Compute the next article number in GROUP.
(defalias 'nnmh-active-number #[(group) "\306	\"\211A@)\307\"\f\310\211\204L�\311\312BD	B\313!\2042�\314!\210\315\316\317\320\310\321#\"\322\"\211\203K�@\241\210)\211AT\241\210\313\307\"\323A!P\211!\204j�\324
!\203t�\211AT\241\210\202S�A,\207" [group nnmh-group-alist x nnmh-directory nnmail-pathname-coding-system file 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 file-name-coding-system dir active files] 8 (#$ . 13766)])
(defalias 'nnmh-update-gnus-unreads #[(group) "\306\307\310\311\312\313\314$\"\315\"	\316P\312\211\317!\203)�\312\211'\320\321\217\210')\n\211(\203G�(@
\236\204>�(@\fB(A\211(\2040�)
\211(\203l�(\211)@@)\n>\204c�\322(@
\"(A\211(\204O�)
\312(**\211A*@\211(\203\241�\323\324	\325(@!P!8(A\232\204s�\322(
\"(@\fB\202s�*
\307\326\f\"\244\f\203\275�\327\330+\331\332D\"\306\f\315\"\211\"\210\306
\333\"\334\335\336!!,-\337\216r,q\210\340+\341\261\210\342c\210\343
!\210\344c)r,q\210\345\312\211-\312\346%\210.	\207" [nnmh-current-directory dir files nnmh-file new articles sort mapcar string-to-number directory-files nil "^[0-9]+$" t < ".nnmh-articles" file-exists-p (byte-code "\301\302\303\211$\207" [nnmh-file load nil t] 5) ((error)) delq 5 file-attributes int-to-string #[(art) "\302\303	\304!P!8B\207" [art dir 5 file-attributes int-to-string] 6] gnus-make-articles-unread gnus-group-prefixed-name nnmh "" #[(art1 art2) "@	@V\207" [art1 art2] 2] get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) ";; Gnus article active file for " "\n\n" "(setq nnmh-newsgroup-articles '" gnus-prin1 ")\n" write-region 0 nnmh-newsgroup-articles art x arts group #1# #2=#:temp-file] 9])
#@46 Say whether ARTICLE in GROUP can be deleted.
(defalias 'nnmh-deletable-article-p #[(group article) "\306	!P\307\n!\205�\310\f\"A@A	=?\206�
)\207" [nnmh-current-directory article path group nnmh-group-alist nnmh-allow-delete-final int-to-string file-writable-p assoc] 3 (#$ . 15712)])
(provide 'nnmh)

${this.title}

Code Editor : nnmh.elc