;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; 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 rmail nnmail nnoo nnbabyl mapcar list nil "*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") (#$ . 408)) (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") (#$ . 650)) (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 (#$ . 891)) (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 (#$ . 1126)) (nnoo-define 'nnbabyl-prepare-save-mail-hook nil) (defvar nnbabyl-mail-delimiter "")#@18 nnbabyl version. (defconst nnbabyl-version "nnbabyl 1.0" (#$ . 1392)) (make-obsolete-variable 'nnbabyl-version 'emacs-version "29.1") (defvar nnbabyl-mbox-buffer nil) (nnoo-define 'nnbabyl-mbox-buffer nil) (defvar nnbabyl-current-group nil) (nnoo-define 'nnbabyl-current-group nil) (defvar nnbabyl-status-string "") (nnoo-define 'nnbabyl-status-string nil) (defvar nnbabyl-group-alist nil) (nnoo-define 'nnbabyl-group-alist nil) (defvar nnbabyl-active-timestamp nil) (nnoo-define 'nnbabyl-active-timestamp nil) (defvar nnbabyl-previous-buffer-mode nil) (byte-code "\300\301\302\"\210\303\304\305\"\210\306\304!\210\303\307\310\"\210\306\307!\210\303\311\312\"\210\306\311!\210\303\313\314\"\210\306\313!\207" [nnoo-define nnbabyl-previous-buffer-mode nil defalias nnbabyl-server-opened #[256 "\300\301\"\207" [nnoo-server-opened nnbabyl] 4 "\n\n(fn &optional SERVER)"] nnoo-register-function nnbabyl-status-message #[256 "\300\301\"\207" [nnoo-status-message nnbabyl] 4 "\n\n(fn &optional SERVER)"] nnbabyl-close-server #[512 "\300\301\"\207" [nnoo-close-server nnbabyl] 5 "\n\n(fn &optional SERVER DEFS)"] nnbabyl-open-server #[513 "\300\301#\207" [nnoo-change-server nnbabyl] 6 "\n\n(fn SERVER &optional DEFS)"]] 3)#@50 (fn ARTICLES &optional GROUP SERVER FETCH-OLD) (defalias 'nnbabyl-retrieve-headers #[1025 "rq\210\304 \210G\305\306 P\307\211\211\211\310\n\n\"\210\n\211A\262\f\242\211\262\203\247\311!\262\nq\210\307\210\312\307\313#\204@\314\307\313#\203\315\307\313#\204Keb\210\316\317!\204X\320y\305U\204K`\262\312\321\307\313#\210`S\262q\210\322c\210\323p\"\210\324c\210\325\n#\210db\210\326c\210 \247\203 V\203T\211\262\327\246\305U\203\330\331\332\333 \334_ \"#\210\202 \247\203\270 V\203\270\330\331\335\"\210q\210\336 \266)\337\207" [nntp-server-buffer nnbabyl-mail-delimiter nnbabyl-mbox-buffer nnmail-large-newsgroup erase-buffer 0 "^" nil nnbabyl-possibly-change-newsgroup nnbabyl-article-string search-forward t search-backward re-search-backward looking-at ".+:" 1 "\n\n" "221 " princ " Article retrieved.\n" insert-buffer-substring ".\n" 20 nnheader-message 5 "nnbabyl: Receiving headers... %d%%" floor 100.0 "nnbabyl: Receiving headers...done" nnheader-fold-continuation-lines headers] 17 (#$ . 2620)]) (nnoo-register-function 'nnbabyl-retrieve-headers)#@30 (fn SERVER &optional DEFS) (defalias 'nnbabyl-open-server #[513 "\301\302#\210\303 \210\304!\204\305 \210\306\302\307#\207\310!\203'\305 \210\306\302\311#\207\306\302\312$\210\313\207" [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] 7 (#$ . 3725)]) (nnoo-register-function 'nnbabyl-open-server)#@30 (fn &optional SERVER DEFS) (defalias 'nnbabyl-close-server #[512 "\302 \203\203r q\210@@@A}\210A )\210\303\304\"\210\305\306\207" [nnbabyl-previous-buffer-mode nnbabyl-mbox-buffer nnbabyl-server-opened nnoo-close-server nnbabyl nil t] 5 (#$ . 4204)]) (nnoo-register-function 'nnbabyl-close-server)#@25 (fn &optional SERVER) (defalias 'nnbabyl-server-opened #[256 "\303\304!\203\305\306#\202\232\266\202\205!\307 !\205!\307\n!\207" [nnoo-parent-backend nnbabyl-mbox-buffer nntp-server-buffer nnbabyl nnoo-current-server format "%s+%s" buffer-live-p] 8 (#$ . 4519)]) (nnoo-register-function 'nnbabyl-server-opened)#@50 (fn ARTICLE &optional NEWSGROUP SERVER BUFFER) (defalias 'nnbabyl-request-article #[1025 "\304\"\210rq\210eb\210\305\306!\307\310#\205\240\307\211\211\311\312 P\307\310#\204)eb\210\307\210\313\314!\2046\315y\316U\204)`\262\317\312 P\307\310#\203I\320 \210\202Ldb\210`\262\206T\n\211q\210\321 \210\322#\210eb\210\313\323!\262\305\324\307\310#\203\216\211\203e\315y\210`|\210\202\216\320 \210`\305\325\307\310#\206\214`|\210\247\203\233 B\202\235\326 )\266\203)\207" [nnbabyl-mbox-buffer nnbabyl-mail-delimiter nntp-server-buffer nnbabyl-current-group nnbabyl-possibly-change-newsgroup search-forward nnbabyl-article-string nil t re-search-backward "^" looking-at ".+:" 1 0 re-search-forward beginning-of-line erase-buffer insert-buffer-substring "Summary-line:" "\n*** EOOH ***" "\n\n" nnbabyl-article-group-number] 13 (#$ . 4849)]) (nnoo-register-function 'nnbabyl-request-article)#@47 (fn GROUP &optional SERVER DONT-CHECK INFO) (defalias 'nnbabyl-request-group #[1025 "\301\"A@\212\211\203\302\"\204\303\304\305#\202B\203,\303\304\306#\210\307\310!\202B\303\304\306#\210\307\311A@ZT@A %)\207" [nnbabyl-group-alist assoc nnbabyl-possibly-change-newsgroup nnheader-report nnbabyl "No such group: %s" "Selected group %s" nnheader-insert "" "211 %d %d %d %s\n"] 11 (#$ . 5769)]) (nnoo-register-function 'nnbabyl-request-group)#@31 (fn &optional GROUP SERVER) (defalias 'nnbabyl-request-scan #[512 "\301\"\210\302 \210\303\304\305\306!\307%\207" [nnbabyl-mbox-file nnbabyl-possibly-change-newsgroup nnbabyl-read-mbox nnmail-get-new-mail nnbabyl #[0 "rq\210\301 )\207" [nnbabyl-mbox-buffer save-buffer] 1] file-name-directory #[0 "\212peb\210\303\304\305\306#\203\307\310!\210\202q\210db\210\311\312\305\306#\210\313\225b\210\314!)\266\315 \n\"\207" [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] 5]] 8 (#$ . 6238)]) (nnoo-register-function 'nnbabyl-request-scan)#@31 (fn GROUP &optional SERVER) (defalias 'nnbabyl-close-group #[513 "\300\207" [t] 3 (#$ . 6914)]) (nnoo-register-function 'nnbabyl-close-group)#@36 (fn GROUP &optional SERVER ARGS) (defalias 'nnbabyl-request-create-group #[769 "\302\303!\210\304\"\204\305\306BDB\307 \"\210\310\207" [nnbabyl-group-alist nnbabyl-active-file nnmail-activate nnbabyl assoc 1 0 nnmail-save-active t] 6 (#$ . 7063)]) (nnoo-register-function 'nnbabyl-request-create-group)#@25 (fn &optional SERVER) (defalias 'nnbabyl-request-list #[256 "\212\302!\210\303 )\304\207" [nnbabyl-active-file nnbabyl-group-alist nnmail-find-file nnmail-get-active t] 3 (#$ . 7381)]) (nnoo-register-function 'nnbabyl-request-list)#@30 (fn DATE &optional SERVER) (defalias 'nnbabyl-request-newgroups #[513 "\300!\207" [nnbabyl-request-list] 4 (#$ . 7622)]) (nnoo-register-function 'nnbabyl-request-newgroups)#@25 (fn &optional SERVER) (defalias 'nnbabyl-request-list-newsgroups #[256 "\300\301\302\"\207" [nnheader-report nnbabyl "nnbabyl: LIST NEWSGROUPS is not implemented."] 4 (#$ . 7803)]) (nnoo-register-function 'nnbabyl-request-list-newsgroups)#@50 (fn ARTICLES NEWSGROUP &optional SERVER FORCE) (defalias 'nnbabyl-request-expire-articles #[1026 "\305\"\210\306\307\310\311!\210rq\210\312ed\307#\210\203\206\203\206eb\210\313\314@!\307\306#\203\315`\307\210`{#\211\262\203y \316=\204i\317\320\306\"r\211q\210\321\322\"\216\323@p$\210\307\324 \"+\266\305\"\210\325\326\327@$\210\330 \210\202@B\262A\262\202\331 \210\332 \"A@eb\210\313\314@!\307\306#\204\261\211@AX\203\261\211@T\240\210eb\210\202\222\210\333 \f\"\210\211\244)\207" [nnbabyl-mbox-buffer nnmail-expiry-target nnml-current-directory nnbabyl-group-alist nnbabyl-active-file 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*" make-closure #[0 "\301\300!\205 \302\300!\207" [V0 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] 12 (#$ . 8049)]) (nnoo-register-function 'nnbabyl-request-expire-articles)#@73 (fn ARTICLE GROUP SERVER ACCEPT-FORM &optional LAST MOVE-IS-INTERNAL) (defalias 'nnbabyl-request-move-article #[1540 "\302\303!\304\305#\203hrq\210\306!\210eb\210\307\310\212\311\312\304\313#\210`)\313#\2035\314 \315y\210`|\210\202\316\313\"\262\317p!)\210\211\203h\212\320\"\210 q\210eb\210\311\321 !\304\313#\203`\322 \210\203g\323 \210)\207" [nntp-server-buffer nnbabyl-mbox-buffer gnus-get-buffer-create " *nnbabyl move*" nil nnbabyl-request-article insert-buffer-substring re-search-forward "^X-Gnus-Newsgroup:" search-forward "\n\n" t line-beginning-position 1 eval kill-buffer nnbabyl-possibly-change-newsgroup nnbabyl-article-string nnbabyl-delete-mail save-buffer] 14 (#$ . 9193)]) (nnoo-register-function 'nnbabyl-request-move-article)#@36 (fn GROUP &optional SERVER LAST) (defalias 'nnbabyl-request-accept-article #[769 "\304\"\210\305 \210p\306\307\310!\205\237\212eb\210\311\312\306\313#\210\314y\210\212\315\316\306\313#\2030`\317y\210`|\210\202)\203C\320\321\322!\321\323!\321\324!$\210;\203R\325!BC\202U\326\325!\262\211\204g\327\330!\203g\331\262\202m\332!@\262 q\210db\210\333\334!\210\335\225b\210\336!\210\203\235\203\225\320\321\322!\321\323!\321\324!$\210\337 \210\340\n \"\210)\211\207" [nnmail-cache-accepted-message-ids nnbabyl-mbox-buffer nnbabyl-group-alist nnbabyl-active-file 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] 11 (#$ . 9969)]) (nnoo-register-function 'nnbabyl-request-accept-article)#@29 (fn ARTICLE GROUP BUFFER) (defalias 'nnbabyl-request-replace-article #[771 "\301!\210rq\210eb\210\302\303!\304\305#\205\"\306\305\211\"\210\307!\210\310 \210\305)\207" [nnbabyl-mbox-buffer nnbabyl-possibly-change-newsgroup search-forward nnbabyl-article-string nil t nnbabyl-delete-mail insert-buffer-substring save-buffer] 7 (#$ . 11056)]) (nnoo-register-function 'nnbabyl-request-replace-article)#@37 (fn GROUP &optional FORCE SERVER) (defalias 'nnbabyl-request-delete-group #[769 "\304\"\210\2030rq\210eb\210\305 \306Q\307\310\307\311#\203&\311\262\312 \210\202\211\203-\313 \210)\266\314\315\n\"\n\"\307\316\n \"\210\311\207" [nnbabyl-mbox-buffer nnbabyl-current-group nnbabyl-group-alist nnbabyl-active-file nnbabyl-possibly-change-newsgroup "\nX-Gnus-Newsgroup: " ":" nil search-forward t nnbabyl-delete-mail save-buffer delq assoc nnmail-save-active] 9 (#$ . 11467)]) (nnoo-register-function 'nnbabyl-request-delete-group)#@40 (fn GROUP NEW-NAME &optional SERVER) (defalias 'nnbabyl-request-rename-group #[770 "\304\"\210rq\210eb\210\305 \306Q\305\306Q\307\310\307\311#\203)\312\311\211#\210\311\262\202\211\2030\313 \210)\266\314\n\"\211\203?\211\240\210\307\315\n \"\210\311\207" [nnbabyl-mbox-buffer nnbabyl-current-group nnbabyl-group-alist nnbabyl-active-file nnbabyl-possibly-change-newsgroup "\nX-Gnus-Newsgroup: " ":" nil search-forward t replace-match save-buffer assoc nnmail-save-active] 10 (#$ . 12016)]) (nnoo-register-function 'nnbabyl-request-rename-group)#@36 (fn &optional FORCE LEAVE-DELIM) (defalias 'nnbabyl-delete-mail #[512 "\204\f\301 \302y\210`|\210\212\214~\210\212\303\304P\305\306#\204!eb\210\305\210\211\203,\302y\210`\202.\307\224)\302y\210\310\304P\305\306#\203A\307\224\206Bd}\210eb\210\204T\310\311\305\306#?\205Wed|*\207" [nnbabyl-mail-delimiter line-beginning-position 1 re-search-backward "^" nil t 0 re-search-forward "^X-Gnus-Newsgroup: "] 7 (#$ . 12584)])#@35 (fn NEWSGROUP &optional SERVER) (defalias 'nnbabyl-possibly-change-newsgroup #[513 "\211\203\303!\204\304!\210\305!\204\212\306 )\210 \204!\307\310!\210\2035\311 \"\2030\211\207\312\310\313\"\207\314\207" [nnbabyl-mbox-buffer nnbabyl-group-alist nnbabyl-current-group nnbabyl-server-opened nnbabyl-open-server buffer-live-p nnbabyl-read-mbox nnmail-activate nnbabyl assoc nnheader-report "No such group in file" t] 5 (#$ . 13022)])#@16 (fn ARTICLE) (defalias 'nnbabyl-article-string #[257 "\211\247\203\301\302\303!\304\260\207\305P\207" [nnbabyl-current-group "\nX-Gnus-Newsgroup: " ":" int-to-string " " "\nMessage-ID: "] 6 (#$ . 13477)]) (defalias 'nnbabyl-article-group-number #[0 "\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 #[0 "\300\211\212eb\210\301\302\300\303#\205L\304\305!\203\301\302\300\303#\210d`Z\262\306`d\"S\307]\262eb\210\301\302\300\303#\210\310u\210\212\311\312\300\303#\203D`\313y\210`|\210)\314\315\"c\210\211)\207" [nil search-forward "\n\n" t looking-at "\\*\\*\\* EOOH \\*\\*\\*" count-lines 0 -1 re-search-backward "^Lines: " 1 format "Lines: %d\n"] 6 (#$ . 13919)])#@18 (fn GROUP-ART) (defalias 'nnbabyl-save-mail #[257 "\300 \210\301!\210\302!\210\303\304!\210\207" [nnbabyl-insert-lines nnmail-insert-xref nnbabyl-insert-newsgroup-line run-hooks nnbabyl-prepare-save-mail-hook] 3 (#$ . 14394)])#@18 (fn GROUP-ART) (defalias 'nnbabyl-insert-newsgroup-line #[257 "\212eb\210\300\301!\203\302\303\304\211#\210\305y\210\202eb\210\300\306!\204*\212\307c\210db\210\310c)\210\311\312\313\304#\203M\314u\210\211\203M\315\316@@@A\317 $c\210\211A\262\2025)\304\207" [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 (#$ . 14630)])#@14 (fn GROUP) (defalias 'nnbabyl-active-number #[257 "\301\"A@\211\203\211AT\241\210\202\302\211B\211\262DB\211A\207" [nnbabyl-group-alist assoc 1] 5 (#$ . 15114)]) (defalias 'nnbabyl-create-mbox #[0 "\303!?\205r\304!\211q\210\305c\210\306ed\307\310\311\312&)\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 nil excl] 8]) (defalias 'nnbabyl-read-mbox #[0 "\306\307!\210\310 \210\311!\205rq\210\312 \313 !U)?\205\317\314\nP \315\211\211r\316 \315\317#\211q\210edB\fB\320 \210~\210\315#\321 \210\203tdb\210\322\323\324@@\"\315\317#\203m\325\326\224\326\225{!\211\262@A@AV\203m@A@\241\210A\262\202>eb\210\327\330!\203\203`\262\202\215\331\315\317#\210\332\225\262\331\315\317#\203\276\332\225\262\333\334\317#\204\265b\210\212\214b}\210\335\336\337!!\210d*\262\211\262b\210\202\215\340p!\203\307\341 \210\342 $\")\266\205\207" [nnbabyl-mbox-buffer nnbabyl-mbox-file nnbabyl-mail-delimiter nnbabyl-group-alist major-mode nnbabyl-previous-buffer-mode nnmail-activate nnbabyl nnbabyl-create-mbox buffer-live-p 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 buffer-read-only nnbabyl-active-file] 9]) (defalias 'nnbabyl-remove-incoming-delims #[0 "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 #[0 "\303\304\305\206\306\307\310$\262\311\212\312!\204\313 \210q\210eb\210\314\315\311\316#\203R\317\320\321!\211\262\"\203I\322 \321y\210`|\210\323\324\325#\210\326\327\330!!\210\202\331\316#\210\202\332p!\203[\333 \210\334 \n\"\210\323\335\336\")\207" [nnbabyl-mbox-buffer nnbabyl-group-alist nnbabyl-active-file 1000 make-hash-table :size 300 :test equal nil buffer-live-p nnbabyl-read-mbox re-search-forward "^X-Gnus-Newsgroup: \\([^ ]+\\) " t gethash match-string 1 line-beginning-position nnheader-message 7 "Moving %s..." nnbabyl-save-mail nnmail-article-group nnbabyl-active-number puthash buffer-modified-p save-buffer nnmail-save-active 5 ""] 6 (#$ . 16853) nil]) (provide 'nnbabyl)