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 : nnbabyl.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:03:54 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/gnus/nnbabyl.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 "`nnbabyl.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(byte-code "\302\303!\210\304\305\306\217\210\302\307!\210\302\310!\210\311\236\203$�\311\236A\312\313\304\"\240\210\202/�\311\312\313\304\"\304\211FB\311	\236\204;�\311\314D	B\304\207" [nnoo-definition-alist nnoo-state-alist require nnheader nil (byte-code "\300\301!\207" [require rmail] 2) ((t (nnheader-message 5 "Ignore rmail errors from this file, you don't have rmail"))) nnmail nnoo nnbabyl mapcar list "*internal-non-initialized-backend*"] 4)
#@133 The name of the rmail box file in the users home directory.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnbabyl-mbox-file (expand-file-name "~/RMAIL") (#$ . 1068))
(nnoo-define 'nnbabyl-mbox-file nil)
#@120 The name of the active file for the rmail box.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnbabyl-active-file (expand-file-name "~/.rmail-active") (#$ . 1312))
(nnoo-define 'nnbabyl-active-file nil)
#@147 If non-nil, nnbabyl will check the incoming mail file and split the mail.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnbabyl-get-new-mail t (#$ . 1555))
(nnoo-define 'nnbabyl-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 nnbabyl-prepare-save-mail-hook nil (#$ . 1792))
(byte-code "\301\302\303\"\210\304B\305\304!\204�\306\304\307\"\210\303\207" [current-load-list nnoo-define nnbabyl-prepare-save-mail-hook nil nnbabyl-mail-delimiter default-boundp set-default ""] 3)
#@18 nnbabyl version.
(defconst nnbabyl-version "nnbabyl 1.0" (#$ . 2177))
(byte-code "\301B\302\301!\204�\303\301\304\"\210\305\301\304\"\210\306B\302\306!\204#�\303\306\304\"\210\305\306\304\"\210\307B\302\307!\2047�\303\307\310\"\210\305\307\304\"\210\311B\302\311!\204K�\303\311\304\"\210\305\311\304\"\210\312B\302\312!\204_�\303\312\304\"\210\305\312\304\"\210\313B\302\313!\204s�\303\313\304\"\210\305\313\304\"\210\314\315!\207" [current-load-list nnbabyl-mbox-buffer default-boundp set-default nil nnoo-define nnbabyl-current-group nnbabyl-status-string "" nnbabyl-group-alist nnbabyl-active-timestamp nnbabyl-previous-buffer-mode nnoo-define-basics-1 nnbabyl] 3)
(defalias 'nnbabyl-retrieve-headers #[(articles &optional group server fetch-old) "\212q\210\306 \210	G\307\310\nP\311\211\211\211\"#$%\312&'\"\210	\211A@\211\"\203\264�\313\"!(q\210\311\210\314
\311\315#\204J�\316
\311\315#\203\212�\317#\311\315#\204V�eb\210\320\321!\204c�\322\323y!\204V�`\314\324\311\315#\210`Sq\210\325c\210\326\"p\"\210\327c\210\330(\f#\210db\210\331c\210)\247\203#�%)V\203#�\322$T\211$\332\246!\203#�\333\334\335$\336_%\245#\210\202#�)\247\203\307�%)V\203\307�\333\334\337\"\210q\210\340 \210.\341\207" [nntp-server-buffer articles nnbabyl-mail-delimiter stop start art-string erase-buffer 0 "^" nil nnbabyl-possibly-change-newsgroup nnbabyl-article-string search-forward t search-backward re-search-backward looking-at ".+:" zerop 1 "\n\n" "221 " princ " Article retrieved.\n" insert-buffer-substring ".\n" 20 nnheader-message 5 "nnbabyl: Receiving headers... %d%%" 100 "nnbabyl: Receiving headers...done" nnheader-fold-continuation-lines headers article delim count number group server nnbabyl-mbox-buffer nnmail-large-newsgroup] 7])
(nnoo-register-function 'nnbabyl-retrieve-headers)
(defalias 'nnbabyl-open-server #[(server &optional defs) "\303\304	#\210\305 \210\306\n!\204�\307 \210\310\304\311\n#\207\312\n!\203'�\307 \210\310\304\313\n#\207\310\304\314\n$\210\315\207" [server defs nnbabyl-mbox-file nnoo-change-server nnbabyl nnbabyl-create-mbox file-exists-p nnbabyl-close-server nnheader-report "No such file: %s" file-directory-p "Not a regular file: %s" "Opened server %s using mbox %s" t] 5])
(nnoo-register-function 'nnbabyl-open-server)
(defalias 'nnbabyl-close-server #[(&optional server) "\304 \203 �\203 �\212	q\210\211@@)\211@A)}\210A \210)\305\306\"\210\307\310\207" [nnbabyl-previous-buffer-mode nnbabyl-mbox-buffer x server nnbabyl-server-opened nnoo-close-server nnbabyl nil t] 4])
(nnoo-register-function 'nnbabyl-close-server)
(defalias 'nnbabyl-server-opened #[(&optional server) "\305\306	!\n\203�\307\310\n#\202�\232*\205*�\205*�\311!\205*�\f\205*�\311\f!\207" [server backend nnoo-parent-backend nnbabyl-mbox-buffer nntp-server-buffer nnbabyl nnoo-current-server format "%s+%s" buffer-name] 5])
(nnoo-register-function 'nnbabyl-server-opened)
(defalias 'nnbabyl-request-article #[(article &optional newsgroup server buffer) "\306	\"\210\212\nq\210eb\210\307\310!\311\312#\205\245�\311\211\211\313\314P\311\312#\204.�eb\210\311\210\315\316!\204;�\317\320y!\204.�`\321\314P\311\312#\203O�\322 \210\202R�db\210`\206[�\211q\210\323 \210\324\n
#\210eb\210\315\325!\307\326\311\312#\203\226�\f\203\207�e\320y\210`|\210\202\226�\322 \210`\307\327\311\312#\206\224�`|\210\247\203\242�B\202\244�\330 ,)\207" [newsgroup server nnbabyl-mbox-buffer article summary-line stop nnbabyl-possibly-change-newsgroup search-forward nnbabyl-article-string nil t re-search-backward "^" looking-at ".+:" zerop 1 re-search-forward beginning-of-line erase-buffer insert-buffer-substring "Summary-line:" "\n*** EOOH ***" "\n\n" nnbabyl-article-group-number start nnbabyl-mail-delimiter buffer nntp-server-buffer nnbabyl-current-group] 6])
(nnoo-register-function 'nnbabyl-request-article)
(defalias 'nnbabyl-request-group #[(group &optional server dont-check) "\306	\"\211A@)\212\203�\307\f\"\204�\310\311\312#\202B�
\203.�\310\311\313#\210\314\315!\202B�\310\311\313#\210\314\316A@ZT@A%*\207" [group nnbabyl-group-alist x active server dont-check assoc nnbabyl-possibly-change-newsgroup nnheader-report nnbabyl "No such group: %s" "Selected group %s" nnheader-insert "" "211 %d %d %d %s\n"] 7])
(nnoo-register-function 'nnbabyl-request-group)
(defalias 'nnbabyl-request-scan #[(&optional group server) "\303	\"\210\304 \210\305\306\307\310\n!\311%\207" [group server nnbabyl-mbox-file nnbabyl-possibly-change-newsgroup nnbabyl-read-mbox nnmail-get-new-mail nnbabyl #[nil "\212q\210\301 )\207" [nnbabyl-mbox-buffer save-buffer] 1] file-name-directory #[nil "\212peb\210\304\305\306\307#\203�\310\311!\210\202�	q\210db\210\312\313\306\307#\210\314\225b\210\315!\210*\316\n\"\207" [in-buf nnbabyl-mbox-buffer nnbabyl-group-alist nnbabyl-active-file search-forward "\n\n" nil t delete-char -1 search-backward "\n" 0 insert-buffer-substring nnmail-save-active] 4]] 6])
(nnoo-register-function 'nnbabyl-request-scan)
(defalias 'nnbabyl-close-group #[(group &optional server) "\300\207" [t] 1])
(nnoo-register-function 'nnbabyl-close-group)
(defalias 'nnbabyl-request-create-group #[(group &optional server args) "\303\304!\210\305	\"\204�\306\307BD	B\310	\n\"\210\311\207" [group nnbabyl-group-alist nnbabyl-active-file nnmail-activate nnbabyl assoc 1 0 nnmail-save-active t] 3])
(nnoo-register-function 'nnbabyl-request-create-group)
(defalias 'nnbabyl-request-list #[(&optional server) "\212\302!\210\303 )\304\207" [nnbabyl-active-file nnbabyl-group-alist nnmail-find-file nnmail-get-active t] 2])
(nnoo-register-function 'nnbabyl-request-list)
(defalias 'nnbabyl-request-newgroups #[(date &optional server) "\301!\207" [server nnbabyl-request-list] 2])
(nnoo-register-function 'nnbabyl-request-newgroups)
(defalias 'nnbabyl-request-list-newsgroups #[(&optional server) "\300\301\302\"\207" [nnheader-report nnbabyl "nnbabyl: LIST NEWSGROUPS is not implemented."] 3])
(nnoo-register-function 'nnbabyl-request-list-newsgroups)
(defalias 'nnbabyl-request-expire-articles #[(articles newsgroup &optional server force) "\306	\"\210\307\310\311\312!\210\212\fq\210\313ed\310#\210
\203\201�\n\203\201�eb\210\314\315
@!\310\307#\203z�\316`\310\210`{#\211\203u�\317=\204g�\320\321!rq\210\322\216\323
@	p$\210\310\324\"\210,\306	\"\210\325\326\327
@$\210\330 \210\202z�
@B
A\211\204�\331 \210\332 \"A@!eb\210\314\315!@!\310\307#\204\263�!@!AX\203\263�!\211@T\240\210eb\210\202\220�)\333 \"\"\210
\244+\207" [newsgroup server is-old rest nnbabyl-mbox-buffer articles nnbabyl-possibly-change-newsgroup t nil nnmail-activate nnbabyl set-text-properties search-forward nnbabyl-article-string 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)) nnbabyl-request-article nnmail-expiry-target-group nnheader-message 5 "Deleting article %d in %s..." nnbabyl-delete-mail save-buffer assoc nnmail-save-active force nnmail-expiry-target #1# nnml-current-directory nnbabyl-group-alist active nnbabyl-active-file] 6])
(nnoo-register-function 'nnbabyl-request-expire-articles)
(defalias 'nnbabyl-request-move-article #[(article group server accept-form &optional last move-is-internal) "\306\307!\310\311\n\f#\203g�\212	q\210\312
!\210eb\210\313\314\212\315\316\310\317#\210`)\317#\2036�\320 \210`\321y\210`|\210\202�\322!\323p!\210)\203g�\212\324\f\"\210q\210eb\210\315\325\n!\310\317#\203^�\326 \210\203f�\327 \210)*\207" [result buf article group server nntp-server-buffer get-buffer-create " *nnbabyl move*" nil nnbabyl-request-article insert-buffer-substring re-search-forward "^X-Gnus-Newsgroup:" search-forward "\n\n" t beginning-of-line 1 eval kill-buffer nnbabyl-possibly-change-newsgroup nnbabyl-article-string nnbabyl-delete-mail save-buffer accept-form nnbabyl-mbox-buffer last] 6])
(nnoo-register-function 'nnbabyl-request-move-article)
(defalias 'nnbabyl-request-accept-article #[(group &optional server last) "\306	\"\210\307 \210p\310\211\311\312!\205\241�\212eb\210\313\314\310\315#\210\316y\210\212\317\320\n\315#\2034�`\321y\210`|\210\202\"�)
\203F�\322\323\324!\323\325!\323\326!$\210;\203T�\327!BC\202W�\330\327!\211\204g�\331\332!\203g�\333\202l�\334!@#q\210db\210\335\336!\210\337\225b\210\340\f!\210$\203\237�
\203\225�\322\323\324!\323\325!\323\326!$\210\341 \210\342%&\"\210)+\207" [group server beg result buf nnmail-cache-accepted-message-ids nnbabyl-possibly-change-newsgroup nnmail-check-syntax nil nnmail-activate nnbabyl search-forward "\n\n" t -1 re-search-backward "^X-Gnus-Newsgroup: " 1 nnmail-cache-insert nnmail-fetch-field "message-id" "subject" "from" nnbabyl-active-number nnmail-article-group yes-or-no-p "Moved to `junk' group; delete article? " junk nnbabyl-save-mail search-backward "\n" 0 insert-buffer-substring save-buffer nnmail-save-active nnbabyl-mbox-buffer last nnbabyl-group-alist nnbabyl-active-file] 7])
(nnoo-register-function 'nnbabyl-request-accept-article)
(defalias 'nnbabyl-request-replace-article #[(article group buffer) "\304!\210\212	q\210eb\210\305\306\n!\307\310#\205\"�\311\310\211\"\210\312!\210\313 \210\310)\207" [group nnbabyl-mbox-buffer article buffer nnbabyl-possibly-change-newsgroup search-forward nnbabyl-article-string nil t nnbabyl-delete-mail insert-buffer-substring save-buffer] 4])
(nnoo-register-function 'nnbabyl-request-replace-article)
(defalias 'nnbabyl-request-delete-group #[(group &optional force server) "\306	\"\210\n\2031�\212q\210eb\210\307\f\310Q\311\312\311\313#\203)�\313\314 \210\202�
\2030�\315 \210+\316\317\"\"\311\320\"\210\313\207" [group server force nnbabyl-mbox-buffer nnbabyl-current-group found nnbabyl-possibly-change-newsgroup "\nX-Gnus-Newsgroup: " ":" nil search-forward t nnbabyl-delete-mail save-buffer delq assoc nnmail-save-active ident nnbabyl-group-alist nnbabyl-active-file] 4])
(nnoo-register-function 'nnbabyl-request-delete-group)
(defalias 'nnbabyl-request-rename-group #[(group new-name &optional server) "\306	\"\210\212\nq\210eb\210\307\310Q\307\f\310Q\311\312\311\313#\203/�\314\313\211#\210\313\202�
\2036�\315 \210,\316\"\211\203G�\f\240\210\311\317\"\210)\313\207" [group server nnbabyl-mbox-buffer nnbabyl-current-group new-name found nnbabyl-possibly-change-newsgroup "\nX-Gnus-Newsgroup: " ":" nil search-forward t replace-match save-buffer assoc nnmail-save-active new-ident ident nnbabyl-group-alist entry nnbabyl-active-file] 5])
(nnoo-register-function 'nnbabyl-request-rename-group)
(defalias 'nnbabyl-delete-mail #[(&optional force leave-delim) "\204�\303 \210`\304y\210`|\210\212\214~\210\212\305\306	P\307\310#\204#�eb\210\307\210\n\203.�\304y\210`\2020�\311\224)\304y\210\312\306	P\307\310#\203C�\311\224\206D�d}\210eb\210\204V�\312\313\307\310#?\205Y�ed|*\207" [force nnbabyl-mail-delimiter leave-delim beginning-of-line 1 re-search-backward "^" nil t 0 re-search-forward "^X-Gnus-Newsgroup: "] 5])
(defalias 'nnbabyl-possibly-change-newsgroup #[(newsgroup &optional server) "\203�\305!\204�\306!\210	\203�\307	!\204�\212\310 \210)\n\204%�\311\312!\210\2039�\313\n\"\2034�\211\207\314\312\315\"\207\316\207" [server nnbabyl-mbox-buffer nnbabyl-group-alist newsgroup nnbabyl-current-group nnbabyl-server-opened nnbabyl-open-server buffer-name nnbabyl-read-mbox nnmail-activate nnbabyl assoc nnheader-report "No such group in file" t] 3])
(defalias 'nnbabyl-article-string #[(article) "\247\203�\302	\303\304!\305\260\207\306P\207" [article nnbabyl-current-group "\nX-Gnus-Newsgroup: " ":" int-to-string " " "\nMessage-ID: "] 5])
(defalias 'nnbabyl-article-group-number #[nil "\212eb\210\300\301\302\303#\205�\304\224\304\225{\305\306\224\306\225{!B)\207" [re-search-forward "^X-Gnus-Newsgroup: +\$[^:]+\$:\$[0-9]+\$ " nil t 1 string-to-number 2] 4])
#@68 Insert how many lines and chars there are in the body of the mail.
(defalias 'nnbabyl-insert-lines #[nil "\302\211\212eb\210\303\304\302\305#\205L�\306\307!\203�\303\304\302\305#\210d`Z\310`d\"S\311]eb\210\303\304\302\305#\210\312u\210\212\313\314\302\305#\203D�`\315y\210`|\210)\316\317	\"c\210+\207" [chars lines nil search-forward "\n\n" t looking-at "\\*\\*\\* EOOH \\*\\*\\*" count-lines 0 -1 re-search-backward "^Lines: " 1 format "Lines: %d\n"] 4 (#$ . 14119)])
(defalias 'nnbabyl-save-mail #[(group-art) "\301 \210\302!\210\303!\210\304\305!\210\207" [group-art nnbabyl-insert-lines nnmail-insert-xref nnbabyl-insert-newsgroup-line run-hooks nnbabyl-prepare-save-mail-hook] 2])
(defalias 'nnbabyl-insert-newsgroup-line #[(group-art) "\212eb\210\302\303!\203�\304\305\306\211#\210\307y\210\202�eb\210\302\310!\204*�\212\311c\210db\210\312c\210)\313\314\315\306#\203S�\316u\210\203S�\317\320\211@@)\211@A)\321 $c\210A\211\2049�)\306\207" [group-art x looking-at "From " replace-match "Mail-from: From " t 1 "\f" "\f\n0, unseen,,\n*** EOOH ***\n" "\n" search-forward "\n\n" nil -1 format "X-Gnus-Newsgroup: %s:%d   %s\n" current-time-string] 6])
(defalias 'nnbabyl-active-number #[(group) "\304	\"\211A@)\211\203�\211AT\241\210\202!�\305\211B\211D	BA)\207" [group nnbabyl-group-alist x active assoc 1] 4])
(defalias 'nnbabyl-create-mbox #[nil "\303!?\205�\212\304!\211q\210\305c\210\306ed\307\310%)\207" [nnbabyl-mbox-file nnbabyl-mbox-buffer buffer-file-name file-exists-p create-file-buffer "BABYL OPTIONS:\n\n" nnmail-write-region t nomesg] 6])
(defalias 'nnbabyl-read-mbox #[nil "\306\307!\210\310 \210\205�\311!\205�\212q\210\312 \313	!U)?\205\356�\212\314\nP\315\211\211#$%\316	\315\317#\211q\210edB&B'\320 \210~\210\315(\321 \210$\203\222�db\210\322\323\324$\211)@@)\"\315\317#\203\211�\325\326\224\326\225{!\211$\211)@A)@AV\203\211�$\211)@A)@\f\241\210$A\211$\204Q�eb\210\327\330!\203\241�`#\202\254�\331%\315\317#\210\332\225#\331%\315\317#\203\336�\332\225\333\334#\317#\204\325�
b\210\212\214#b
}\210\335\336\337!!\210d*
\211#b\210\202\254�\340p!\203\347�\341 \210\342*\".\207" [nnbabyl-mbox-buffer nnbabyl-mbox-file nnbabyl-mail-delimiter nnbabyl-group-alist number end nnmail-activate nnbabyl nnbabyl-create-mbox buffer-name buffer-size nnheader-file-size "^" nil nnheader-find-file-noselect t buffer-disable-undo fundamental-mode re-search-backward format "^X-Gnus-Newsgroup: %s:\$[0-9]+\$ " string-to-number 1 looking-at "\f" re-search-forward 0 search-backward "\nX-Gnus-Newsgroup: " nnbabyl-save-mail nnmail-article-group nnbabyl-active-number buffer-modified-p save-buffer nnmail-save-active start alist delim major-mode nnbabyl-previous-buffer-mode buffer-read-only x nnbabyl-active-file] 6])
(defalias 'nnbabyl-remove-incoming-delims #[nil "eb\210\300\301\302\303#\205�\304\305\303\211#\210\202�\207" [search-forward "" nil t replace-match "?"] 4])
#@79 Go through the nnbabyl mbox and make sure that no article numbers are reused.
(defalias 'nnbabyl-check-mbox #[nil "\305\306\307\"\310\212\n\203�\311\n!\204�\312 \210\nq\210eb\210\313\314\310\315#\203O�\316\317\320!\211	\"\203G�\321 \210`\320y\210`|\210\322\323\324#\210\325\326\327!!\210\202�\330	\"\210\202�\331p!\203X�\332 \210\333\f\"\210\322\334\335\"+\207" [id idents nnbabyl-mbox-buffer nnbabyl-group-alist nnbabyl-active-file make-vector 1000 0 nil buffer-name nnbabyl-read-mbox re-search-forward "^X-Gnus-Newsgroup: \$[^ ]+\$ " t intern-soft match-string 1 beginning-of-line nnheader-message 7 "Moving %s..." nnbabyl-save-mail nnmail-article-group nnbabyl-active-number intern buffer-modified-p save-buffer nnmail-save-active 5 ""] 4 (#$ . 17077) nil])
(provide 'nnbabyl)

${this.title}

Code Editor : nnbabyl.elc