403Webshell
Server IP : 217.160.0.212  /  Your IP : 216.73.216.141
Web Server : Apache
System : Linux www 6.18.51-i1-ampere #1196 SMP Fri Sep 11 20:43:55 CEST 2026 aarch64
User : sws1073854427 ( 1073854427)
PHP Version : 8.4.23
Disable Function : NONE
MySQL : OFF  |  cURL : ON  |  WGET : ON  |  Perl : ON  |  Python : OFF  |  Sudo : OFF  |  Pkexec : OFF
Directory :  /usr/share/emacs/28.2/lisp/gnus/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :


[ Back ]     

Current File : /usr/share/emacs/28.2/lisp/gnus/nnmbox.elc
;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\203V\203\322\246\305U\203\323\324\325\326\327_	\"#\210\202\247\203\217V\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\203fB\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)

Youez - 2016 - github.com/yon3zu
LinuXploit