;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:19 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/nndraft.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

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


(byte-code "\302\303!\204
\304\303\305\306B\"\210\307\310!\210\307\311!\210\307\312!\210\307\313!\210\307\314!\210\307\315!\210\307\316!\210\317\236\203<\317\236A\320\321\322\"\240\210\202G\317\320\321\322\"\323\211FB\317	\236\204S\317\324D	B\323\207" [nnoo-definition-alist nnoo-state-alist fboundp declare-function defalias macro #[(&rest r) "\300\207" [nil] 1] 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/") (#$ . 1065))
(nnoo-define 'nndraft-directory '(nnmh-directory))
#@198 *Headers to be generated when saving a draft message.
The headers in this variable and the ones in `message-required-headers'
are generated if and only if they are also in `message-draft-headers'.
(defvar nndraft-required-headers '(Date) (#$ . -1313))
(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!\207" [nnoo-define nndraft-status-string (nnmh-status-string) nnoo-define-basics-1 nndraft] 3)
(defalias 'nndraft-open-server #[(server &optional defs) "\303\304	#\210\305\n!\204\306 \210\307\304\310\n#\207\311\312\n!!\204&\306 \210\307\304\313\n#\207\307\304\314\n$\210\315\207" [server defs 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] 5])
(nnoo-register-function 'nndraft-open-server)
(defalias 'nndraft-retrieve-headers #[(articles &optional group server fetch-old) "\306!\210r	q\210\307 \210\310\211\211
@;\203\311\202s
\203o``}\210\312
\211A@\211p$\203eb\210\313\314\310\315#\203D\316y\210\202Gdb\210\317`d\"d`Z`d|\210eb\210\320\321\f\"c\210\320\322\n#c\210~\210db\210\323c\210\202\324 \210\311,\207" [group nntp-server-buffer chars lines article articles 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 server] 5])
(nnoo-register-function 'nndraft-retrieve-headers)
(defalias 'nndraft-request-article #[(id &optional group server buffer) "\306!\210	\247\205m\307	!\310\n!\311\n\"\203\n\202
\206$\312\f!\205l\311\n\"\203C\313\235\203>\202E\202E\314\f!)\205lrq\210eb\210\315\316\317!\320Q\321\322#\203j\323\324\322\211#\210)\322,\207" [group id file auto newest buffer 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 "" nntp-server-buffer message-draft-coding-system mm-text-coding-system mm-auto-save-coding-system nnmail-file-coding-system mail-header-separator] 4])
(nnoo-register-function 'nndraft-request-article)
#@64 Request a new buffer that is restored to the state of ARTICLE.
(defalias 'nndraft-request-restore-buffer #[(article &optional group server) "\303!\210\304	\np$\205\305\306!\210\305\307!\210\310\207" [group article server nndraft-possibly-change-group nndraft-request-article message-remove-header "xref" "lines" t] 5 (#$ . 3980)])
(nnoo-register-function 'nndraft-request-restore-buffer)
(defalias 'nndraft-request-update-info #[(group info &optional server) "\303!\210	AA\304\305\306\"\307 \310#\240\210\311	8\211\203)\311	\233\312\n\236\205'\312\n\236C\240\210)\310\207" [group info marks nndraft-possibly-change-group gnus-update-read-articles gnus-group-prefixed-name (nndraft "") nndraft-articles t 3 unsend] 6])
(nnoo-register-function 'nndraft-request-update-info)
(defalias 'nndraft-generate-headers #[nil "\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 #[nil "\306 \210rq\210\307\310\311 \"\312	!\313\314\315\313\314\"\210\212	\313\211\205R@\2035\316
\"\204H\317
!\210\320\321 !\203H\322 \323y\210`|\210A\211\204$\313.\207" [gnus-group-buffer groups gnus-group-marked gnus-get-new-news-hook inhibit-read-only group nndraft-request-list mapcar #[(elem) "\301@\302\303D\"\207" [elem gnus-group-prefixed-name nndraft ""] 4] nnmail-get-active copy-sequence nil t gnus-group-get-new-news-this-group string-match gnus-group-goto-group zerop gnus-group-group-unread point-at-bol 1 --dolist-tail-- gnus-permanently-visible-groups] 4 (#$ . 4947)])
#@68 Associate the current buffer with some article in the draft group.
(defalias 'nndraft-request-associate-buffer #[(group) "\306\307!\210\310!\210\311!\210\312p\312\211\313\314!r
q\210\315\216\316!\210\317\320\321!\322\323$\324\n!+\325	!%\326 &\327 \210\330\331!\203F\331\202G\332'\333'!\210\334'\335\312\322$\210)\333\336!\210\334\336\337\312\322$\210\340\341\342\343\344$\210\n,\207" [group file article buf gnus-verbose-backends #1=#:temp-buffer nndraft-open-server "" nndraft-request-group nndraft-possibly-change-group nil generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-buffer-substring nndraft-request-accept-article nnoo-current-server nndraft t noinsert nndraft-article-filename expand-file-name make-auto-save-file-name clear-visited-file-modtime boundp write-contents-functions write-contents-hooks gnus-make-local-hook add-hook nndraft-generate-headers after-save-hook nndraft-update-unread-articles message-add-action (nndraft-update-unread-articles) exit postpone kill buffer-file-name buffer-auto-save-file-name hook] 5 (#$ . 5659)])
(nnoo-register-function 'nndraft-request-associate-buffer)
(defalias 'nndraft-request-group #[(group &optional server dont-check info) "\306!\210	\204T\307\n\"\f\310\211\311!\210\312\313\310\314\315\217\"\211\310\211\203R@\316\317\320!\"\211!\204I\321\322!\"\210A\211\204,.\323\324\325	E#\207" [group dont-check nndraft-directory pathname nnmail-pathname-coding-system file-name-coding-system nndraft-possibly-change-group nnmail-group-pathname nil nnheader-re-read-dir mapcar #[(name) "\301\302\303O!\207" [name string-to-number 1 nil] 4] (directory-files pathname nil "^#[0-9]+#$" t) ((error)) file-exists-p expand-file-name int-to-string rename-file nndraft-auto-save-file-name nnoo-parent-function nndraft nnmh-request-group dir file n --dolist-tail-- server] 7])
(nnoo-register-function 'nndraft-request-group)
(defalias 'nndraft-request-move-article #[(article group server accept-form &optional last move-is-internal) "\306!\210\307\310!\311\312\f#\2057r\nq\210\313 \210\314
!\210\315!\316p!\210	)\2057\317C\f\320$?\2057	*\207" [group result buf article server nntp-server-buffer nndraft-possibly-change-group get-buffer-create " *nndraft move*" nil nndraft-request-article erase-buffer insert-buffer-substring eval kill-buffer nndraft-request-expire-articles force accept-form] 5])
(nnoo-register-function 'nndraft-request-move-article)
(defalias 'nndraft-request-expire-articles #[(articles group &optional server force) "\306!\210\307\310\311\312\nD\"\313\307#\206\314\312\315\f\n
F#\316\f\203\200\f\211A@\211>\204#\317\320!!\321!\203J!\210)\322\323\324\320!!*\316\211\203|@\321!\203s!\210A\211\204a*\202#,\207" [group nnmh-allow-delete-final server nnmail-expiry-target articles force nndraft-possibly-change-group t gnus-group-find-parameter gnus-group-prefixed-name nndraft expiry-target nnoo-parent-function nnmh-request-expire-articles nil nndraft-auto-save-file-name nndraft-article-filename file-exists-p 1 0 find-backup-file-name res article auto nnmail-delete-file-function kept-old-versions kept-new-versions backup --dolist-tail--] 8])
(nnoo-register-function 'nndraft-request-expire-articles)
(defalias 'nndraft-request-accept-article #[(group &optional server last noinsert) "\305!\210\306\307\310\311\n\fF#)\207" [group gnus-verbose-backends server last noinsert nndraft-possibly-change-group nil nnoo-parent-function nndraft nnmh-request-accept-article] 7])
(nnoo-register-function 'nndraft-request-accept-article)
(defalias 'nndraft-request-replace-article #[(article group buffer) "\306!\210\307\235\203	\202\n\310\311\312\f
E#)\207" [group message-draft-coding-system mm-text-coding-system nnmail-file-coding-system article buffer nndraft-possibly-change-group ("drafts" "delayed") nnoo-parent-function nndraft nnmh-request-replace-article] 6])
(nnoo-register-function 'nndraft-request-replace-article)
(defalias 'nndraft-request-create-group #[(group &optional server args) "\302!\210\303	!\203\304	!\205\305\207\306\307\310\217\207" [group nndraft-current-directory nndraft-possibly-change-group file-exists-p file-directory-p t nil (byte-code "\301!\210\302\207" [nndraft-current-directory gnus-make-directory t] 2) ((file-error))] 3])
(nnoo-register-function 'nndraft-request-create-group)
(defalias 'nndraft-possibly-change-group #[(group) "\205	\232?\205\304\305!\210\306\n\"\211\207" [group nndraft-current-group nndraft-directory nndraft-current-directory nndraft-open-server "" nnheader-concat] 3])
(defalias 'nndraft-article-filename #[(article &rest args) "\303\304\305!\306	!\n$\207" [nndraft-current-directory article args apply concat file-name-as-directory int-to-string] 5])
(defalias 'nndraft-auto-save-file-name #[(file) "\212\302\303!q\210\304 \305p!\210)\207" [file buffer-file-name get-buffer-create " *draft tmp*" make-auto-save-file-name kill-buffer] 3])
#@43 Return the list of messages in the group.
(defalias 'nndraft-articles #[nil "\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 (#$ . 10750)])
(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 nnmh-request-newsgroups)) provide] 3)