;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\302\310!\210\302\311!\210\312\236\203/\312\236A\313\314\315\"\240\210\202:\312\313\314\315\"\316\211FB\312	\236\204F\312\317D	B\316\207" [nnoo-definition-alist nnoo-state-alist require nnheader nnmail gnus-start gnus-group nnmh nnoo mm-util nndraft mapcar list (nnmh) nil "*internal-non-initialized-backend*"] 4)
#@109 Where nndraft will store its files.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nndraft-directory (nnheader-concat gnus-directory "drafts/") (#$ . 484))
(byte-code "\300\301\302\"\210\303\304\305\306\307DD\310\311\312\313\314&\207" [nnoo-define nndraft-directory (nnmh-directory) custom-declare-variable nndraft-required-headers funcall function #[0 "\300\207" [(Date)] 1 ""] "Headers to be generated when saving a draft message.\nThe headers in this variable and the ones in `message-required-headers'\nare generated if and only if they are also in `message-draft-headers'." :type (repeat sexp) :group message-headers] 8)
(defvar nndraft-current-group "")
(nnoo-define 'nndraft-current-group '(nnmh-current-group))
(defvar nndraft-get-new-mail nil)
(nnoo-define 'nndraft-get-new-mail '(nnmh-get-new-mail))
(defvar nndraft-current-directory nil)
(nnoo-define 'nndraft-current-directory '(nnmh-current-directory))
(defconst nndraft-version "nndraft 1.0")
(defvar nndraft-status-string "")
(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 nndraft-status-string (nnmh-status-string) defalias nndraft-server-opened #[256 "\300\301\"\207" [nnoo-server-opened nndraft] 4 "\n\n(fn &optional SERVER)"] nnoo-register-function nndraft-status-message #[256 "\300\301\"\207" [nnoo-status-message nndraft] 4 "\n\n(fn &optional SERVER)"] nndraft-close-server #[512 "\300\301\"\207" [nnoo-close-server nndraft] 5 "\n\n(fn &optional SERVER DEFS)"] nndraft-open-server #[513 "\300\301#\207" [nnoo-change-server nndraft] 6 "\n\n(fn SERVER &optional DEFS)"]] 3)
#@30 

(fn SERVER &optional DEFS)
(defalias 'nndraft-open-server #[513 "\301\302#\210\303!\204\304 \210\305\302\306#\207\307\310!!\204&\304 \210\305\302\311#\207\305\302\312$\210\313\207" [nndraft-directory nnoo-change-server nndraft file-exists-p nndraft-close-server nnheader-report "No such file or directory: %s" file-directory-p file-truename "Not a directory: %s" "Opened server %s using directory %s" t] 7 (#$ . 2195)])
(nnoo-register-function 'nndraft-open-server)
#@50 

(fn ARTICLES &optional GROUP SERVER FETCH-OLD)
(defalias 'nndraft-retrieve-headers #[1025 "\301!\210rq\210\302 \210\303\211\211@;\203\266\304\202{\203v``}\210\305\211A\262	\242\211\262p$\203eb\210\306\307\303\310#\203I\311y\210\202Ldb\210\312`d\"\262d`Z\262
`d|\210eb\210\313\314\"c\210\313\315#c\210~\210db\210\316c\210\202\317 \266\304)\207" [nntp-server-buffer nndraft-possibly-change-group erase-buffer nil headers nndraft-request-article search-forward "\n\n" t -1 count-lines format "221 %d Article retrieved.\n" "Lines: %d\nChars: %d\n" ".\n" nnheader-fold-continuation-lines] 12 (#$ . 2680)])
(nnoo-register-function 'nndraft-retrieve-headers)
#@41 

(fn ID &optional GROUP SERVER BUFFER)
(defalias 'nndraft-request-article #[1025 "\306!\210\247\205d\307!\310
!\311\"\203
\202\211\206 \312
!\205a\311\"\203<\313\235\2038	\202=\n\202=\314
!)\205arq\210eb\210\315\316\317
!\320Q\321\322#\203_\323\324\322\211#\210)\322)\266\203\207" [nntp-server-buffer message-draft-coding-system mm-text-coding-system mm-auto-save-coding-system nnmail-file-coding-system mail-header-separator nndraft-possibly-change-group nndraft-article-filename nndraft-auto-save-file-name file-newer-than-file-p file-exists-p ("drafts" "delayed") nnmail-find-file re-search-forward "^" regexp-quote "$" nil t replace-match ""] 11 (#$ . 3369)])
(nnoo-register-function 'nndraft-request-article)
#@101 Request a new buffer that is restored to the state of ARTICLE.

(fn ARTICLE &optional GROUP SERVER)
(defalias 'nndraft-request-restore-buffer #[769 "\300!\210\301p$\205\302\303!\210\302\304!\210\305\207" [nndraft-possibly-change-group nndraft-request-article message-remove-header "xref" "lines" t] 8 (#$ . 4118)])
(nnoo-register-function 'nndraft-request-restore-buffer)
#@36 

(fn GROUP INFO &optional SERVER)
(defalias 'nndraft-request-update-info #[770 "\300!\210
AA\211\301\302\303\"\304 \305#\240\266\3068\211\203+\306\233\307\236\205)\307\236C\240\210\210\305\207" [nndraft-possibly-change-group gnus-update-read-articles gnus-group-prefixed-name (nndraft "") nndraft-articles t 3 unsend] 9 (#$ . 4502)])
(nnoo-register-function 'nndraft-request-update-info)
(defalias 'nndraft-generate-headers #[0 "\212\302\303	\304#!)\207" [nndraft-required-headers message-draft-headers message-generate-headers message-headers-to-generate nil] 5])
#@53 Update groups' unread articles in the group buffer.
(defalias 'nndraft-update-unread-articles #[0 "\305 \210rq\210\306\307\310 \"\311
!\312\313\314\312\313\"\210\212\211\211\205F\211@\f\203,\315\f\"\204?\316
!\210\317 \320U\203?\321 \322y\210`|\210
A\266\202\202\262
,\262
)\207" [gnus-group-buffer gnus-group-marked gnus-get-new-news-hook inhibit-read-only gnus-permanently-visible-groups nndraft-request-list mapcar #[257 "\300
@\301\302D\"\207" [gnus-group-prefixed-name nndraft ""] 5 "\n\n(fn ELEM)"] nnmail-get-active copy-sequence nil t gnus-group-get-new-news-this-group string-match gnus-group-goto-group gnus-group-group-unread 0 point-at-bol 1] 6 (#$ . 5085)])
#@80 Associate the current buffer with some article in the draft group.

(fn GROUP)
(defalias 'nndraft-request-associate-buffer #[257 "\303\304!\210\305
!\210\306
!\210\307p\307\211\310\311\312\"r\211q\210\313\314\"\216\315!\210\316\317\320!\312\321$\262\322!\262*\210\323
!\324 \325 \210\326\327\330\307\312$\210\326\331\332\307\312$\210\333\334\335\336\337$\210
)\207" [gnus-verbose-backends buffer-file-name buffer-auto-save-file-name nndraft-open-server "" nndraft-request-group nndraft-possibly-change-group nil generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] insert-buffer-substring nndraft-request-accept-article nnoo-current-server nndraft noinsert nndraft-article-filename expand-file-name make-auto-save-file-name clear-visited-file-modtime add-hook write-contents-functions nndraft-generate-headers after-save-hook nndraft-update-unread-articles message-add-action (nndraft-update-unread-articles) exit postpone kill] 11 (#$ . 5773)])
(nnoo-register-function 'nndraft-request-associate-buffer)
#@47 

(fn GROUP &optional SERVER DONT-CHECK INFO)
(defalias 'nndraft-request-group #[1025 "\303!\210
\204Q\304\"	\305\211\306!\210\307\310\3111$\312\305\313\314$0\202&\210\305\"\262
\211\203M\211@\315\316\317!\"\211\262!\204F\320\321!\"\210
A\266\202\202*\210)\266\322\323\324E#\207" [nndraft-directory nnmail-pathname-coding-system file-name-coding-system nndraft-possibly-change-group nnmail-group-pathname nil nnheader-re-read-dir mapcar #[257 "\300
\301\302O!\207" [string-to-number 1 nil] 5 "\n\n(fn NAME)"] (error) directory-files "\\`#[0-9]+#\\'" t file-exists-p expand-file-name int-to-string rename-file nndraft-auto-save-file-name nnoo-parent-function nndraft nnmh-request-group] 14 (#$ . 6854)])
(nnoo-register-function 'nndraft-request-group)
#@73 

(fn ARTICLE GROUP SERVER ACCEPT-FORM &optional LAST MOVE-IS-INTERNAL)
(defalias 'nndraft-request-move-article #[1540 "\301!\210\302\303!\304\305#\205<r
q\210\306 \210\307!\210\310\311\"\262
\312p!\210)\211\205<\313C\314$?\205<\211\207" [nntp-server-buffer nndraft-possibly-change-group gnus-get-buffer-create " *nndraft move*" nil nndraft-request-article erase-buffer insert-buffer-substring eval t kill-buffer nndraft-request-expire-articles force] 13 (#$ . 7637)])
(nnoo-register-function 'nndraft-request-move-article)
#@46 

(fn ARTICLES GROUP &optional SERVER FORCE)
(defalias 'nndraft-request-expire-articles #[1026 "\305!\210\306\307\310\311\312F#\313\203]\211A\262\242\211\262>\204\314\315!!\316
!\2037\n
!\210\210\317\320\321\315!!*\211\203Y\211@\316
!\203R\n
!\210
A\266\202\202B\210\202
*\207" [nnmh-allow-delete-final nnmail-expiry-target nnmail-delete-file-function kept-old-versions kept-new-versions nndraft-possibly-change-group t delete nnoo-parent-function nndraft nnmh-request-expire-articles nil nndraft-auto-save-file-name nndraft-article-filename file-exists-p 1 0 find-backup-file-name] 11 (#$ . 8185)])
(nnoo-register-function 'nndraft-request-expire-articles)
#@45 

(fn GROUP &optional SERVER LAST NOINSERT)
(defalias 'nndraft-request-accept-article #[1025 "\301!\210\302\303\304\305F#)\207" [gnus-verbose-backends nndraft-possibly-change-group nil nnoo-parent-function nndraft nnmh-request-accept-article] 11 (#$ . 8878)])
(nnoo-register-function 'nndraft-request-accept-article)
#@29 

(fn ARTICLE GROUP BUFFER)
(defalias 'nndraft-request-replace-article #[771 "\303!\210
\304\235\203\202	\305\306\307E#)\207" [message-draft-coding-system mm-text-coding-system nnmail-file-coding-system nndraft-possibly-change-group ("drafts" "delayed") nnoo-parent-function nndraft nnmh-request-replace-article] 9 (#$ . 9211)])
(nnoo-register-function 'nndraft-request-replace-article)
#@36 

(fn GROUP &optional SERVER ARGS)
(defalias 'nndraft-request-create-group #[769 "\301!\210\302!\203\303!\205\304\207\3051\306!\210\3040\207\210\307\207" [nndraft-current-directory nndraft-possibly-change-group file-exists-p file-directory-p t (file-error) gnus-make-directory nil] 5 (#$ . 9614)])
(nnoo-register-function 'nndraft-request-create-group)
#@14 

(fn GROUP)
(defalias 'nndraft-possibly-change-group #[257 "\211\205\211\232?\205\303\304!\210\211\305	\"\211\207" [nndraft-current-group nndraft-directory nndraft-current-directory nndraft-open-server "" nnheader-concat] 4 (#$ . 9983)])
#@27 

(fn ARTICLE &rest ARGS)
(defalias 'nndraft-article-filename #[385 "\301\302\303!\304!$\207" [nndraft-current-directory apply concat file-name-as-directory int-to-string] 7 (#$ . 10236)])
#@13 

(fn FILE)
(defalias 'nndraft-auto-save-file-name #[257 "r\301\302!q\210\211\303 \304p!\210)\207" [buffer-file-name gnus-get-buffer-create " *draft tmp*" make-auto-save-file-name kill-buffer] 4 (#$ . 10434)])
#@43 Return the list of messages in the group.
(defalias 'nndraft-articles #[0 "\301!\210\302\303\304\305\306\307\310$\"\311\"\207" [nndraft-current-directory gnus-make-directory sort mapcar string-to-number directory-files nil "\\`[0-9]+\\'" t <] 8 (#$ . 10651)])
(byte-code "\300\301\302\"\210\303\301!\207" [nnoo-import-1 nndraft ((nnmh nnmh-retrieve-headers nnmh-request-group nnmh-close-group nnmh-request-list)) provide] 3)