;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:09:46 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/gnus-draft.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 "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\207" [require gnus gnus-sum message gnus-msg nndraft gnus-agent] 2)
(defvar gnus-draft-mode-map (byte-code "\301 \302\300\303\"\210)\207" [map make-sparse-keymap gnus-define-keys-1 ("Dt" gnus-draft-toggle-sending "e" gnus-draft-edit-message "De" gnus-draft-edit-message "Ds" gnus-draft-send-message "DS" gnus-draft-send-all-messages)] 3))
(defalias 'gnus-draft-make-menu-bar #[nil "\301\302!?\205\303\304!\210\305\302\306\307$\207" [gnus-draft-mode-map boundp gnus-draft-menu (lambda (#1=#:def-tmp-var) (defvar gnus-draft-menu #1# #2="")) nil easy-menu-do-define #2# ("Drafts" ["Toggle whether to send" gnus-draft-toggle-sending t] ["Edit" gnus-draft-edit-message t] ["Send selected message(s)" gnus-draft-send-message t] ["Send all messages" gnus-draft-send-all-messages t] ["Delete draft" gnus-summary-delete-article t])] 5])
#@99 Non-nil if Gnus-Draft mode is enabled.
Use the command `gnus-draft-mode' to change this variable.
(defvar gnus-draft-mode nil (#$ . 1478))
(make-variable-buffer-local 'gnus-draft-mode)
#@75 Minor mode for providing a draft summary buffers.

\{gnus-draft-mode-map}
(defalias 'gnus-draft-mode #[(&optional arg) "\303 	\304=\203\n?\202\305	!\306V\307\310!\204\311\2024\n\2034\312\313\314\"\203-\315 \210\316\317\320\321\211$\210\322\323\n\203>\324\202?\325\"\210\326\327!\203`\303 \203S\303 \232\203`\330\331\n\203]\332\202^\333\"\210)\334 \210\n\207" [#1=#:last-message arg gnus-draft-mode current-message toggle prefix-numeric-value 0 derived-mode-p gnus-summary-mode nil gnus-visual-p draft-menu menu gnus-draft-make-menu-bar add-hook gnus-summary-prepare-exit-hook gnus-draft-clear-marks t run-hooks gnus-draft-mode-hook gnus-draft-mode-on-hook gnus-draft-mode-off-hook called-interactively-p any message "Gnus-Draft mode %sabled" "en" "dis" force-mode-line-update] 5 (#$ . 1669) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\211%\207" [gnus-draft-mode-map add-minor-mode gnus-draft-mode " Draft" nil] 6)
#@43 Toggle whether to send an article or not.
(defalias 'gnus-draft-toggle-sending #[(article) "\304!\203	B\305\n\"\210\202\306	\"\305\"\210\307 \207" [article gnus-newsgroup-unsendable gnus-unsendable-mark gnus-unread-mark gnus-draft-article-sendable-p gnus-summary-mark-article delq gnus-summary-position-point] 3 (#$ . 2636) (list (progn (let ((to (get-text-property (point) 'gnus-intangible))) (and to (gnus-summary-goto-subject to))) (or (get-text-property (point) 'gnus-number) (gnus-summary-last-subject))))])
#@54 Enter a mail/post buffer to edit and send the draft.
(defalias 'gnus-draft-edit-message #[nil "\306`\307\"\211\203
\310!\210)\306`\311\"\206\312 	\313C!\210\314\f\"\210\315\n\316#\210\317\316!\210\212\214\320 \210\321\322!\210*\323\324\325
!\"\326 \210)\327 \330C\n\316#\210)\331\327\332\333!D\334\335!D\336\337BBEEEC\"B\211\"*\207" [to gnus-newsgroup-name group article gnus-canceled-mark message-draft-headers get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-draft-check-draft-articles gnus-summary-mark-as-read gnus-draft-setup t set-buffer-modified-p message-narrow-to-headers message-remove-header "date" delq Date copy-sequence save-buffer nil gnus-request-expire-articles lambda when gnus-buffer-exists-p save-excursion set-buffer gnus-cache-possibly-remove-article (nil nil nil t) gnus-verbose-backends gnus-summary-buffer message-send-actions] 10 (#$ . 3167) nil])
#@74 Send the current draft(s).
Obeys the standard process/prefix convention.
(defalias 'gnus-draft-send-message #[(&optional n) "\306!\211G\307\310	!\210	\211A@\211\205;\311!\210\f>\204
\312\313\n	GZ\n#\314\315#\210)\316\"\210\202
+\207" [n articles total article gnus-newsgroup-unsendable message-sending-message gnus-summary-work-articles nil gnus-draft-check-draft-articles gnus-summary-remove-process-mark format "Sending message %d of %d..." gnus-draft-send t gnus-summary-mark-article gnus-newsgroup-name gnus-canceled-mark] 5 (#$ . 4119) "P"])
#@23 Send message ARTICLE.
(defalias 'gnus-draft-send #[(article &optional group interactive) "?\206\306\232\n\203\202\307\310	\206
	?\205\"!!	?\205+\"\"	?\2054##	?\205=$$	?\205F%%\310\211&'\310\211()\311*\206\\\306\310\312$\210\214\313 \210\314\315\316+!\317Q\310\320#\203\201\321\322!\210`\323 {)\324+!\210eb\210\314\315\316,!\317Q\310\320#\203\243\310\325\326\217'\310\327\330\217(\324,!\210)\331 \210(\203\272\332(!\204\272\333(!\205
'\203\344'\334='\335=(\211-./0)\203\336\336)!\202\340\337 ,\202\362)\203\360\336)!\202\362\337 \205
\3101\340*C\206

\306\320#).
\207" [group is-queue interactive message-syntax-checks message-hidden-headers message-inhibit-body-encoding "nndraft:queue" dont-check-for-anything-just-trust-me nil gnus-draft-setup dont-pop message-narrow-to-headers re-search-forward "^" regexp-quote ":" t skip-syntax-forward "-" point-at-eol message-remove-header (byte-code "\300p!\207" [read] 2) ((error)) (byte-code "\300p!\207" [read] 2) ((error)) gnus-agent-restore-gcc gnus-server-opened gnus-open-server news mail gnus-inews-do-gcc message-send-and-exit gnus-request-expire-articles message-send-hook message-setup-hook gnus-message-setup-hook message-signature gnus-agent-queue-mail rfc2047-encode-encoded-words type method move-to article gnus-agent-target-move-group-header gnus-agent-meta-information-header message-post-method gnus-post-method message-this-is-mail message-this-is-news gnus-verbose-backends] 6 (#$ . 4690)])
#@31 Send all the sendable drafts.
(defalias 'gnus-draft-send-all-messages #[nil "\204\n\301\302!\205\303 \210\304 \207" [gnus-expert-user gnus-y-or-n-p "Send all drafts? " gnus-uu-mark-buffer gnus-draft-send-message] 2 (#$ . 6224) nil])
#@50 Send all sendable articles from the queue group.
(defalias 'gnus-group-send-queue #[nil "\204	\203\306\307!\205]\310\311!\210\212\312 \313\314\315\316\317\311\"J88\236A!\320\211\nG\320\n\211A@\211\203X\f>\2041\321\322\nGZ#\323!\210)\2021.\324\311!\207" [gnus-plugged gnus-agent-prompt-send-queue articles gnus-newsrc-hashtb unsendable gnus-posting-styles gnus-y-or-n-p "Gnus is unplugged; really send queue? " gnus-activate-group "nndraft:queue" nndraft-articles gnus-uncompress-range unsend 3 2 intern-soft nil format "Sending message %d of %d..." gnus-draft-send gnus-group-refresh-group message-send-mail-partially-limit total article message-sending-message] 8 (#$ . 6467) nil])
#@43 Reminder user if there are unsent drafts.
(defalias 'gnus-draft-reminder #[nil "\301 \205\302\303\304\215)\207" [active gnus-alive-p nil continue (byte-code "\303\304\211\2055	@\305!\211\203-\nA\n@Y\203-\306\307!\203)\310\311\312\"\210\202-\313\314!\210	A\211\204\304*\207" [group --dolist-tail-- active ("nndraft:drafts" "nndraft:queue") nil gnus-activate-group y-or-n-p "There are unsent drafts.  Confirm to exit? " throw continue t error "Stop!"] 4)] 2 (#$ . 7189) nil])
#@43 Hook run after setting up a draft buffer.
(custom-declare-variable 'gnus-draft-setup-hook nil '(#$ . 7685) :group 'gnus-message :version "23.1" :type 'hook)
#@88 Setup a mail draft buffer.
If DONT-POP is nil, display the buffer after setting it up.
(defalias 'gnus-draft-setup #[(narticle group &optional restore dont-pop) "\306\307 	\310p!\n\f\311
!<\311\f!\f=>?@ABC\306<\312\305\313\"\210\312\314\315\"\210\312\314\316\"\210\317\320D\236D\"D>\203`>\321\230\204`\322E!\323?\206Y@!BDBD\324\216FG\325\306\211\211\211H\205q\326%\210\327I\330 \210)\331GJ\"\204\212\332\333!\210\202\270K\203\231J\334\232\203\231\335 \210eb\210\336\337!\210\340u\210\214e`}\210\341E!)Lc\210\342y\210\343 \210*\344 \210\345 \210\346\347\327\"\210\350\351!\210\352\306!\210.	\353JF\"\210\203D
\306\354\355\217\203D
@\321\232?\205\352@\356 \210\f\211MA@)BN\357\360\361\362@EEO\211MA@)\321\232\204D
A\306G\211P\203C
P@G\363\364\365@\366GF\367@\370\211\211GD\371BBDEE\372\"\210PA\211P\204
*\350\373!)\207" [ga gnus-current-window-configuration gnus-article-reply gnus-article-yanked-articles gnus-newsgroup-name message-header-setup-hook nil current-window-configuration buffer-name copy-sequence add-hook gnus-inews-insert-gcc message-mode-hook #[nil "\302 \211\211\207" [message-mailer message-newsreader gnus-extended-version] 2] #[nil "\302\303	!)\207" [gnus-article-copy #1=#:gnus-setup-message-group nil gnus-configure-posting-styles] 2] delq X-Draft-From "" intern gnus-inews-make-draft ((byte-code "\306	\n\307\f&\210p\310\311!\210\nB	\310\312!\210\n\203'\313\314!\210\315\316!\210\317=\203\\\310\320!\210\321\322!\210\321\323!\210\324\323\325\326\327$\210\324\322\325\327\211$\210)\202c\325 \210\326\207" [#2=#:gnus-setup-message-winconf #3=#:gnus-setup-message-buffer #4=#:gnus-setup-message-article #5=#:gnus-setup-yanked-articles #6=#:gnus-setup-message-winconf-name gnus-message-buffer gnus-inews-add-send-actions forward make-local-variable gnus-message-group-art gnus-newsgroup-name gnus-message-citation-mode 1 gnus-run-hooks gnus-message-setup-hook message-mode mml-buffer-list gnus-make-local-hook kill-buffer-hook change-major-mode-hook add-hook mml-destroy-buffers nil t #1# gnus-message-highlight-citation major-mode mbl1 mbl] 7)) message-mail #[(buf) "\301!q\207" [buf get-buffer-create] 2] t erase-buffer gnus-request-restore-buffer error "Couldn't restore the article" "nndraft:queue" mime-to-mml search-forward "\n\n" -1 message-fetch-field 1 message-set-auto-save-file-name message-hide-headers gnus-add-buffer gnus-configure-windows forward run-hooks post-command-hook set-buffer-modified-p gnus-backlog-remove-article (byte-code "\301!@\211\207" [ga read-from-string] 2) ((error)) gnus-configure-posting-styles lambda (arg) gnus-post-method arg message-add-action progn gnus-add-mark 'replied gnus-request-set-mark list ('add '(reply)) send gnus-draft-setup-hook mml-buffer-list mbl #1# #5# #4# #3# #6# #2# message-required-headers gnus-draft-meta-information-header narticle article dont-pop inhibit-read-only group restore mail-header-separator x gnus-message-group-art message-post-method --dolist-tail--] 11 (#$ . 7848)])
#@34 Say whether ARTICLE is sendable.
(defalias 'gnus-draft-article-sendable-p #[(article) "	>?\207" [article gnus-newsgroup-unsendable] 2 (#$ . 10928)])
#@59 Check whether the draft articles ARTICLES are under edit.
(defalias 'gnus-draft-check-draft-articles #[(articles) "\306\232\205\206\307 \310\211\211r
\203Z	\204Z\311
\211A@!\f\n\203\n\211A@\211q\210\203U\312!\312!\232\203U\313!\313!\230\203U\314 \203U\310\211\202#\310\202\")	\205\205\315	\316\"\211\205m\317!\211\203{\320!\210\202\200\321	\316\"\210*\322\323\",\207" [gnus-newsgroup-name buff buffs file buffers articles "nndraft:drafts" buffer-list nil nndraft-article-filename file-remote-p file-truename buffer-modified-p get-buffer-window t window-frame gnus-select-frame-set-input-focus pop-to-buffer error "The draft %s is under edit" buffer-file-name window frame] 5 (#$ . 11084)])
(defalias 'gnus-draft-clear-marks #[nil "\303\211\304 \211\207" [gnus-newsgroup-reads gnus-newsgroup-marked gnus-newsgroup-unreads nil nndraft-articles] 3])
(provide 'gnus-draft)