;ELC ;;; Compiled ;;; in Emacs version 28.2 ;;; with all optimizations. (byte-code "\302\303!\210\302\304!\210\302\305!\210\302\306!\210\302\307!\210\310\236\203'\310\236A\311\312\313\"\240\210\2022\310\311\312\313\"\313\211FB\310 \236\204>\310\314D B\313\207" [nnoo-definition-alist nnoo-state-alist require nnheader message nnmail nnoo gnus-range nnmbox mapcar list nil "*internal-non-initialized-backend*"] 4) #@133 The name of the mail box file in the user's home directory. This is a Gnus server variable. See Info node `(gnus)Select Methods'. (defvar nnmbox-mbox-file (expand-file-name "~/mbox") (#$ . 434)) (nnoo-define 'nnmbox-mbox-file nil) #@119 The name of the active file for the mail box. This is a Gnus server variable. See Info node `(gnus)Select Methods'. (defvar nnmbox-active-file (expand-file-name "~/.mbox-active") (#$ . 674)) (nnoo-define 'nnmbox-active-file nil) #@146 If non-nil, nnmbox will check the incoming mail file and split the mail. This is a Gnus server variable. See Info node `(gnus)Select Methods'. (defvar nnmbox-get-new-mail t (#$ . 912)) (nnoo-define 'nnmbox-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 nnmbox-prepare-save-mail-hook nil (#$ . 1145)) (nnoo-define 'nnmbox-prepare-save-mail-hook nil) #@17 nnmbox version. (defconst nnmbox-version "nnmbox 1.0" (#$ . 1374)) #@110 Current nnmbox news group directory. This is a Gnus server variable. See Info node `(gnus)Select Methods'. (defvar nnmbox-current-group nil (#$ . 1448)) (nnoo-define 'nnmbox-current-group nil) (defvar nnmbox-mbox-buffer nil) (defvar nnmbox-status-string "") (nnoo-define 'nnmbox-status-string nil) (defvar nnmbox-group-alist nil) (nnoo-define 'nnmbox-group-alist nil) (defvar nnmbox-active-timestamp nil) (nnoo-define 'nnmbox-active-timestamp nil) (defvar nnmbox-file-coding-system mm-binary-coding-system) (nnoo-define 'nnmbox-file-coding-system nil) (defvar nnmbox-file-coding-system-for-write nil) (nnoo-define 'nnmbox-file-coding-system-for-write nil) (defvar nnmbox-active-file-coding-system mm-binary-coding-system) (nnoo-define 'nnmbox-active-file-coding-system nil) (defvar nnmbox-active-file-coding-system-for-write nil) (nnoo-define 'nnmbox-active-file-coding-system-for-write nil) (defvar nnmbox-group-building-active-articles nil) (defvar nnmbox-group-active-articles 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 nnmbox-server-opened #[256 "\300\301\"\207" [nnoo-server-opened nnmbox] 4 "\n\n(fn &optional SERVER)"] nnoo-register-function nnmbox-status-message #[256 "\300\301\"\207" [nnoo-status-message nnmbox] 4 "\n\n(fn &optional SERVER)"] nnmbox-close-server #[512 "\300\301\"\207" [nnoo-close-server nnmbox] 5 "\n\n(fn &optional SERVER DEFS)"] nnmbox-open-server #[513 "\300\301#\207" [nnoo-change-server nnmbox] 6 "\n\n(fn SERVER &optional DEFS)"]] 3) #@54 (fn SEQUENCE &optional NEWSGROUP SERVER FETCH-OLD) (defalias 'nnmbox-retrieve-headers #[1025 "rq\210\304 \210G\305\306\211\211\307\"\210\203@\262 q\210\310!\203S\212\311\312\nP\306\313#\210`)\262\314\315\306\313#\210`S\262q\210\316\317\"c\210\320 #\210db\210\321c\210A\262 T\262 \247\203 V\203\322\246\305U\203\323\324\325\326\327_ \"#\210\202 \247\203\217 V\203\217\323\324\330\"\210q\210\331 \266)\332\207" [nntp-server-buffer nnmbox-mbox-buffer message-unix-mail-delimiter nnmail-large-newsgroup erase-buffer 0 nil nnmbox-possibly-change-newsgroup nnmbox-find-article re-search-backward "^" t search-forward "\n\n" format "221 %d Article retrieved.\n" insert-buffer-substring ".\n" 20 nnheader-message 5 "nnmbox: Receiving headers... %d%%" floor 100.0 "nnmbox: Receiving headers...done" nnheader-fold-continuation-lines headers] 15 (#$ . 3040)]) (nnoo-register-function 'nnmbox-retrieve-headers) #@30 (fn SERVER &optional DEFS) (defalias 'nnmbox-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" [nnmbox-mbox-file nnoo-change-server nnmbox nnmbox-create-mbox file-exists-p nnmbox-close-server nnheader-report "No such file: %s" file-directory-p "Not a regular file: %s" "Opened server %s using mbox %s" t] 7 (#$ . 3990)]) (nnoo-register-function 'nnmbox-open-server) #@30 (fn &optional SERVER DEFS) (defalias 'nnmbox-close-server #[512 "\301!\203\n\302!\210\303\304\"\210\305\207" [nnmbox-mbox-buffer buffer-live-p kill-buffer nnoo-close-server nnmbox t] 5 (#$ . 4464)]) (nnoo-register-function 'nnmbox-close-server) #@25 (fn &optional SERVER) (defalias 'nnmbox-server-opened #[256 "\303\304!\203\305\306#\202\232\266\202\205!\307 !\205!\307\n!\207" [nnoo-parent-backend nnmbox-mbox-buffer nntp-server-buffer nnmbox nnoo-current-server format "%s+%s" buffer-live-p] 8 (#$ . 4721)]) (nnoo-register-function 'nnmbox-server-opened) #@50 (fn ARTICLE &optional NEWSGROUP SERVER BUFFER) (defalias 'nnmbox-request-article #[1025 "\304\"\210rq\210\212\305!\205l\306\211\307\310 P\306\311#\210`\262\312y\210\313\310 P\306\314#\203/\315\224\2020`\262\2067\n\211q\210\316 \210\317#\210eb\210\320\321!\203Z\322\323!\210\324c\210\312y\210\202G\247\203f B\202i\325\306!)\266\202*\207" [nnmbox-mbox-buffer message-unix-mail-delimiter nntp-server-buffer nnmbox-current-group nnmbox-possibly-change-newsgroup nnmbox-find-article nil re-search-backward "^" t 1 re-search-forward move 0 erase-buffer insert-buffer-substring looking-at "From " delete-char 5 "X-From-Line: " nnmbox-article-group-number] 11 (#$ . 5048)]) (nnoo-register-function 'nnmbox-request-article) #@47 (fn GROUP &optional SERVER DONT-CHECK INFO) (defalias 'nnmbox-request-group #[1025 "\301\302\"\210\303\"A@\211\203\301\"\204\304\305\306#\207\203,\304\305\307#\210\310\311!\207\304\305\307#\210\310\312A@ZT@A %\207" [nnmbox-group-alist nnmbox-possibly-change-newsgroup nil assoc nnheader-report nnmbox "No such group: %s" "Selected group %s" nnheader-insert "" "211 %d %d %d %s\n"] 11 (#$ . 5793)]) (nnoo-register-function 'nnmbox-request-group) (defalias 'nnmbox-save-buffer #[0 "\206 \303 )\207" [nnmbox-file-coding-system-for-write nnmbox-file-coding-system coding-system-for-write save-buffer] 1]) #@32 (fn GROUP-ALIST ACTIVE-FILE) (defalias 'nnmbox-save-active #[514 "\206 \303\")\207" [nnmbox-active-file-coding-system-for-write nnmbox-active-file-coding-system nnmail-active-file-coding-system nnmail-save-active] 5 (#$ . 6428)]) #@31 (fn &optional GROUP SERVER) (defalias 'nnmbox-request-scan #[512 "\301\"\210\302 \210\303\304\305\306!\307%\207" [nnmbox-mbox-file nnmbox-possibly-change-newsgroup nnmbox-read-mbox nnmail-get-new-mail nnmbox #[0 "rq\210\301 )\207" [nnmbox-mbox-buffer nnmbox-save-buffer] 1] file-name-directory #[0 "prq\210db\210\303!\210)\210\304 \n\"\207" [nnmbox-mbox-buffer nnmbox-group-alist nnmbox-active-file insert-buffer-substring nnmbox-save-active] 3]] 8 (#$ . 6672)]) (nnoo-register-function 'nnmbox-request-scan) #@31 (fn GROUP &optional SERVER) (defalias 'nnmbox-close-group #[513 "\300\207" [t] 3 (#$ . 7196)]) (nnoo-register-function 'nnmbox-close-group) #@36 (fn GROUP &optional SERVER ARGS) (defalias 'nnmbox-request-create-group #[769 "\302\303!\210\304\"\204\305\306BDB\307 \"\210\310\207" [nnmbox-group-alist nnmbox-active-file nnmail-activate nnmbox assoc 1 0 nnmbox-save-active t] 6 (#$ . 7344)]) (nnoo-register-function 'nnmbox-request-create-group) #@25 (fn &optional SERVER) (defalias 'nnmbox-request-list #[256 "\212\304\n!\210)\305 )\306\207" [nnmbox-active-file-coding-system nnmail-file-coding-system nnmbox-active-file nnmbox-group-alist nnmail-find-file nnmail-get-active t] 3 (#$ . 7658)]) (nnoo-register-function 'nnmbox-request-list) #@30 (fn DATE &optional SERVER) (defalias 'nnmbox-request-newgroups #[513 "\300!\207" [nnmbox-request-list] 4 (#$ . 7959)]) (nnoo-register-function 'nnmbox-request-newgroups) #@25 (fn &optional SERVER) (defalias 'nnmbox-request-list-newsgroups #[256 "\300\301\302\"\207" [nnheader-report nnmbox "LIST NEWSGROUPS is not implemented."] 4 (#$ . 8138)]) (nnoo-register-function 'nnmbox-request-list-newsgroups) #@50 (fn ARTICLES NEWSGROUP &optional SERVER FORCE) (defalias 'nnmbox-request-expire-articles #[1026 "\305\"\210\306\307\310\311!\210rq\210\203w\203w\312@!\203p\313`\314 {#\211\262\203j \315=\204Z\316\317\306\"r\211q\210\320\321\"\216\322@p$\210\307\323 \"\210+\210\305\"\210\324\325\326@$\210\327 \210\202p@B\262A\262\202\330 \210\331 \"A@\312@!\204\230\211@AX\203\230\211@T\240\210\202\200\210\332 \f\"\210\211\244)\207" [nnmbox-mbox-buffer nnmail-expiry-target nnml-current-directory nnmbox-group-alist nnmbox-active-file nnmbox-possibly-change-newsgroup t nil nnmail-activate nnmbox nnmbox-find-article nnmail-expired-article-p line-end-position delete generate-new-buffer " *temp*" make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] nnmbox-request-article nnmail-expiry-target-group nnheader-message 5 "Deleting article %d in %s..." nnmbox-delete-mail nnmbox-save-buffer assoc nnmbox-save-active] 12 (#$ . 8373)]) (nnoo-register-function 'nnmbox-request-expire-articles) #@73 (fn ARTICLE GROUP SERVER ACCEPT-FORM &optional LAST MOVE-IS-INTERNAL) (defalias 'nnmbox-request-move-article #[1540 "\302\303!\304\305#\203drq\210\306 \210\307!\210eb\210\310\311\212\312\313\304\314#\210`)\314#\2038\315 \316y\210`|\210\202\317\314\"\262\320!\210)\211\203d\212\321\"\210 q\210\322!\203\\\323 \210\203c\324 \210)\207" [nntp-server-buffer nnmbox-mbox-buffer gnus-get-buffer-create " *nnmbox move*" nil nnmbox-request-article erase-buffer insert-buffer-substring re-search-forward "^X-Gnus-Newsgroup:" search-forward "\n\n" t point-at-bol 1 eval kill-buffer nnmbox-possibly-change-newsgroup nnmbox-find-article nnmbox-delete-mail nnmbox-save-buffer] 14 (#$ . 9429)]) (nnoo-register-function 'nnmbox-request-move-article) #@36 (fn GROUP &optional SERVER LAST) (defalias 'nnmbox-request-accept-article #[769 "\305\"\210\306 \210p\307\211\310\311!\203\333\312\313\314\"r\211q\210\315\316\"\216\317!\210eb\210\320\321P!\2037\322\323!\210\323y\210\202N\320\324!\203G\325\326!\210\323y\210\202N\327\330 \331\261\210`\332\333\307\334#\203\\`S\202]`}\210\335\336\307\314#\203q`\323y\210`|\210\202_ \203\203\337\340\341!\340\342!\340\343!$\210~\210;\203\226\344!BC\202\231\345\344!\262\204\254\346\347!\203\254\350\211\262\202\263\351!@\211\262\352 \262*\262\203\333r\nq\210db\210\211c\210\203\332 \203\322\353 \210\354 \f\"\210\355 \210)\207" [message-unix-mail-delimiter nnmail-cache-accepted-message-ids nnmbox-mbox-buffer nnmbox-group-alist nnmbox-active-file nnmbox-possibly-change-newsgroup nnmail-check-syntax nil nnmail-activate nnmbox generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] insert-buffer-substring looking-at ">" delete-char 1 "X-From-Line: " replace-match "From " "From nobody " current-time-string "\n" search-forward "\n\n" move re-search-backward "^X-Gnus-Newsgroup: " nnmail-cache-insert message-fetch-field "message-id" "subject" "from" nnmbox-active-number nnmail-article-group yes-or-no-p "Moved to `junk' group; delete article? " junk nnmbox-save-mail buffer-string nnmail-cache-close nnmbox-save-active nnmbox-save-buffer] 13 (#$ . 10196)]) (nnoo-register-function 'nnmbox-request-accept-article) #@29 (fn ARTICLE GROUP BUFFER) (defalias 'nnmbox-request-replace-article #[771 "\302!\210rq\210\303!\205]\304\305\211\"\210\306\307\305\"r\211q\210\310\311\"\216\312!\210eb\210\313\314!\2034`\315y\210`|\210\316\317 P\320\305#\203H\321\224b\210\322c\210\2024db\210n\204R\323c\210\324 *\262c\210\325 \210\305)\207" [nnmbox-mbox-buffer message-unix-mail-delimiter nnmbox-possibly-change-newsgroup nnmbox-find-article nnmbox-delete-mail t generate-new-buffer " *temp*" make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] insert-buffer-substring looking-at "X-From-Line:" 1 re-search-forward "^" nil 0 ">" "\n" buffer-string nnmbox-save-buffer] 8 (#$ . 11699)]) (nnoo-register-function 'nnmbox-request-replace-article) #@37 (fn GROUP &optional FORCE SERVER) (defalias 'nnmbox-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" [nnmbox-mbox-buffer nnmbox-current-group nnmbox-group-alist nnmbox-active-file nnmbox-possibly-change-newsgroup "\nX-Gnus-Newsgroup: " ":" nil search-forward t nnmbox-delete-mail nnmbox-save-buffer delq assoc nnmbox-save-active] 9 (#$ . 12455)]) (nnoo-register-function 'nnmbox-request-delete-group) #@40 (fn GROUP NEW-NAME &optional SERVER) (defalias 'nnmbox-request-rename-group #[770 "\305\"\210rq\210eb\210\306 \307Q\306\307Q\310\311\310\312#\203)\313\312\211#\210\312\262\202\211\2030\314 \210\266)\315\n\"\211\203?\211\240\210\210\315 \"\211\203L\211\240\210\310\316 \f\"\210\312\207" [nnmbox-mbox-buffer nnmbox-current-group nnmbox-group-active-articles nnmbox-group-alist nnmbox-active-file nnmbox-possibly-change-newsgroup "\nX-Gnus-Newsgroup: " ":" nil search-forward t replace-match nnmbox-save-buffer assoc nnmbox-save-active] 10 (#$ . 13004)]) (nnoo-register-function 'nnmbox-request-rename-group) #@36 (fn &optional FORCE LEAVE-DELIM) (defalias 'nnmbox-delete-mail #[512 "\204\n\301\302\303!!\210\204\304 \305y\210`|\210\212\214\306\307P\310\303#\210\211\203+\305y\210`\202-\311\224\305y\210\312\307P\310\303#\203?\311\224\206@d}\210eb\210\204Y\312\313\310\303#\203Y\314\315\310\303#\205\\ed|*\207" [message-unix-mail-delimiter nnmbox-record-deleted-article nnmbox-article-group-number t point-at-bol 1 re-search-backward "^" nil 0 re-search-forward "^X-Gnus-Newsgroup: " search-backward "\n\n"] 7 (#$ . 13637)]) #@35 (fn NEWSGROUP &optional SERVER) (defalias 'nnmbox-possibly-change-newsgroup #[513 "\211\203\303!\204\304!\210\305!\204\306 \210 \204\307\310!\210\203.\311 \"\205/\211\207\312\207" [nnmbox-mbox-buffer nnmbox-group-alist nnmbox-current-group nnmbox-server-opened nnmbox-open-server buffer-live-p nnmbox-read-mbox nnmail-activate nnmbox assoc t] 5 (#$ . 14171)]) #@16 (fn ARTICLE) (defalias 'nnmbox-article-string #[257 "\211\247\203\301\302\303!\304\260\207\305P\207" [nnmbox-current-group "\nX-Gnus-Newsgroup: " ":" int-to-string " " "\nMessage-ID: "] 6 (#$ . 14556)]) #@18 (fn THIS-LINE) (defalias 'nnmbox-article-group-number #[257 "\212\211\203 \300 \210\202eb\210\301\302\303\304#\205#\305\224\305\225{\306\307\224\307\225{!B)\207" [beginning-of-line re-search-forward "^X-Gnus-Newsgroup: +\\([^:]+\\):\\([0-9]+\\) " nil t 1 string-to-number 2] 5 (#$ . 14773)]) #@65 Return non-nil if POS is in the header of an article. (fn POS) (defalias 'nnmbox-in-header-p #[257 "\212\211b\210\301\302P\303\304#\210\305\306\303\304#\210\211`W)\207" [message-unix-mail-delimiter re-search-backward "^" nil t search-forward "\n\n"] 5 (#$ . 15077)]) #@76 Leaves point on the relevant X-Gnus-Newsgroup line if found. (fn ARTICLE) (defalias 'nnmbox-find-article #[257 "\211\247\205 \300!??\2059\301!\302\303\302\304#\203\305`!\2067eb\210\211\2046\303\302\304#\2036\305`!\262\202\"\211\266\202\207" [nnmbox-is-article-active-p nnmbox-article-string nil search-forward t nnmbox-in-header-p] 7 (#$ . 15352)]) #@18 (fn GROUP-ART) (defalias 'nnmbox-record-active-article #[257 "\211@A\303\"\206CB\211@ \204\211\304AC\"\241\207A>\2030\305\n!\210\306\307#\210\211A@\203HA@W\203H\305\n!\210\306\310#\210\211AB\241\207" [nnmbox-group-active-articles nnmbox-group-building-active-articles nnmbox-mbox-buffer assoc gnus-add-to-range switch-to-buffer error "Article %s:%d already exists!" "Article %s:%d out of order"] 9 (#$ . 15721)]) #@18 (fn GROUP-ART) (defalias 'nnmbox-record-deleted-article #[257 "\211@A\301\"\206CB\211@\211\302AC\"\241\207" [nnmbox-group-active-articles assoc gnus-remove-from-range] 9 (#$ . 16167)]) #@16 (fn ARTICLE) (defalias 'nnmbox-is-article-active-p #[257 "\302\303 \"A\"\207" [nnmbox-current-group nnmbox-group-active-articles gnus-member-of-range assoc] 6 (#$ . 16370)]) #@48 Called narrowed to an article. (fn GROUP-ART) (defalias 'nnmbox-save-mail #[257 "\301Peb\210\302!\203\303y\210\202\304\305 \306\261\210\307\310\311#\203+\312\224b\210\313c\210\202\210db\210n\2046\306c\210\314 \210\315!\210\316!\210\211\211\203R\317@!\210\211A\262\202B\210\320\321!\210\320\322!\210\207" [message-unix-mail-delimiter "^" looking-at 1 "From nobody " current-time-string "\n" re-search-forward nil t 0 ">" nnmail-insert-lines nnmail-insert-xref nnmbox-insert-newsgroup-line nnmbox-record-active-article run-hooks nnmail-prepare-save-mail-hook nnmbox-prepare-save-mail-hook] 6 (#$ . 16554)]) #@18 (fn GROUP-ART) (defalias 'nnmbox-insert-newsgroup-line #[257 "\212eb\210\300\301\302\303#\203'\304u\210\211\203'\305\306@@@A\307 $c\210\211A\262\202)\303\207" [search-forward "\n\n" nil t -1 format "X-Gnus-Newsgroup: %s:%d %s\n" current-time-string] 6 (#$ . 17184)]) #@14 (fn GROUP) (defalias 'nnmbox-active-number #[257 "\301\"A@\211\203\211AT\241\210\202\302\211B\211\262DB\211A\207" [nnmbox-group-alist assoc 1] 5 (#$ . 17468)]) (defalias 'nnmbox-create-mbox #[0 "\304!?\205& \206\f\n\305!\211\203\306!\210\307ee\310\311\312\313&)\266\202\207" [nnmbox-mbox-file nnmbox-file-coding-system-for-write nnmbox-file-coding-system nnmail-file-coding-system file-exists-p file-name-directory gnus-make-directory nnmail-write-region t nomesg nil excl] 10]) (defalias 'nnmbox-read-mbox #[0 "\306\307!\210\310 \210\311!\205rq\210\312 \313 !U)?\205\314\nP \315\316\211\211\211r (\317 \315\211#)\211q\210\320 \210\321 \210\322 \210\203udb\210\323\324\325@@\"\316\315#\203n\326\327\224\327\225{!\211\262@A@AV\203n@A@\241\210A\262\202>eb\210\316)\330\316\315#\203\377\331\224\262\212\332\333\316\315#\210`\262\330\316\315#\203\240\331\224\206\241d\262)\332\334\315#\203\303\335\336\315!!\210\332\334\315#\203\371\335\336\315!!\210\202\262\212\214}\210\330\337\315#\203\362\316\330\340\315#\203\352\341\327!\326\341\342!!BB\262\202\322\343!\266\202\370\344\345\346!!\210*b\210\202{)\262\205@\347@A\237!\241\210A\262\202*\266\207\207" [nnmbox-mbox-buffer nnmbox-mbox-file message-unix-mail-delimiter nnmbox-group-alist nnmbox-group-building-active-articles nnmbox-file-coding-system nnmail-activate nnmbox nnmbox-create-mbox buffer-live-p buffer-size nnheader-file-size "^" t nil nnheader-find-file-noselect mm-enable-multibyte buffer-disable-undo gnus-add-buffer re-search-backward format "^X-Gnus-Newsgroup: %s:\\([0-9]+\\) " string-to-number 1 re-search-forward 0 search-forward "\n\n" "\nX-Gnus-Newsgroup: " nnmbox-record-active-article nnmbox-article-group-number "\nXref: [^ ]+" " \\([^:]+\\):\\([0-9]+\\)" match-string 2 nnmbox-insert-newsgroup-line nnmbox-save-mail nnmail-article-group nnmbox-active-number gnus-compress-sequence nnheader-file-coding-system nnmbox-group-active-articles] 12]) (provide 'nnmbox)