;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (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 (define-keymap "D t" 'gnus-draft-toggle-sending "e" 'gnus-draft-edit-message "D e" 'gnus-draft-edit-message "D s" 'gnus-draft-send-message "D S" 'gnus-draft-send-all-messages)) (defalias 'gnus-draft-make-menu-bar #[0 "\301\302!?\205\303\302\304\305#\210\306\302\305\307$\207" [gnus-draft-mode-map boundp gnus-draft-menu defvar-1 nil "" easy-menu-do-define ("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 (#$ . 886)) (make-variable-buffer-local 'gnus-draft-mode)#@629 Minor mode for providing a draft summary buffers. \{gnus-draft-mode-map} This is a minor mode. If called interactively, toggle the `Gnus-Draft mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `gnus-draft-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'gnus-draft-mode #[256 "\302 \303=\203 ?\202\247\203\304W\203\305\202\306\307\301!\2031\310\300 \"\2031\300 B\311\312!\204<\305\202Q\203Q\313\314\315\"\203J\316 \210\317\320\321\306\211$\210\322\323\203[\324\202\\\325\"\210\326\327!\203\302 \203p\211\302 \232\203\330\331\332\203{\333\202|\334\335$\210\210\336 \210\207" [gnus-draft-mode local-minor-modes current-message toggle 1 nil t boundp delq derived-mode-p gnus-summary-mode gnus-visual-p draft-menu menu gnus-draft-make-menu-bar add-hook gnus-summary-prepare-exit-hook gnus-draft-clear-marks run-hooks gnus-draft-mode-hook gnus-draft-mode-on-hook gnus-draft-mode-off-hook called-interactively-p any message "%s %sabled%s" "Gnus-Draft mode" "en" "dis" " in current buffer" force-mode-line-update] 7 (#$ . 1076) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar gnus-draft-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\313\310\211%\207" [gnus-draft-mode-map gnus-draft-mode-hook variable-documentation put "Hook run after entering or leaving `gnus-draft-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode gnus-draft-mode " Draft"] 6)#@57 Toggle whether to send an article or not. (fn ARTICLE) (defalias 'gnus-draft-toggle-sending #[257 "\303!\203\211B\304 \"\210\202\305\"\304\n\"\210\306 \207" [gnus-newsgroup-unsendable gnus-unsendable-mark gnus-unread-mark gnus-draft-article-sendable-p gnus-summary-mark-article delq gnus-summary-position-point] 4 (#$ . 3107) [(byte-code "\300`\301\"\211\205 \302!\266\300`\303\"\206\304 C\207" [get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject] 3) (gnus-summary-mode)]])#@54 Enter a mail/post buffer to edit and send the draft. (defalias 'gnus-draft-edit-message #[0 "\306`\307\"\211\205 \310!\266\306`\311\"\206\312 \313C!\210\314 \"\210\315\316#\210\317\316!\210\212\214\320 \210\321\322!*\210\323\324\n\"\325 )\210\326\327C\316#)\210\f\330\331#\262 B\211\207" [gnus-newsgroup-name gnus-canceled-mark message-draft-headers gnus-verbose-backends gnus-summary-buffer message-send-actions 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" remq Date save-buffer nil gnus-request-expire-articles make-closure #[0 "\300\211\205\302\303!\211\262!\205\211\262\205\"r\300q\210\304\301\305\211\211\306%)\207" [V0 V1 buffer-live-p get-buffer gnus-cache-possibly-remove-article nil t] 6]] 7 (#$ . 3651) [nil (gnus-summary-mode)]])#@92 Send the current draft(s). Obeys the standard process/prefix convention. (fn &optional N) (defalias 'gnus-draft-send-message #[256 "\304!\211G\305\306!\210\211A\262\242\211\262\2058\307!\210\211>\204\n\310\311GZ#\312\n\313#)\210\314 \"\210\202\n\207" [gnus-newsgroup-unsendable message-sending-message gnus-newsgroup-name gnus-canceled-mark 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] 8 (#$ . 4630) ["P" (gnus-summary-mode)]])#@65 Send message ARTICLE. (fn ARTICLE &optional GROUP INTERACTIVE) (defalias 'gnus-draft-send #[769 "?\206\306\232\203\202\307\310\211\206\n\211?\205 \211?\205'\f\211?\205. \211?\2056  \211?\205?!!\310\211\"\310\211\311\206P\306\310\312$\210\214\313 \210\314\315\316#!\317Q\310\320#\203u\321\322!\210`\323 {\262\324#!\210eb\210\314\315\316$!\317Q\310\320#\203\251\3251\221\326p!0\202\223\210\310\262\3271\240\326p!0\202\242\210\310\262\324$!\210)\330 \210\203\275\331!\204\275\332!\205\203\341\333=\334=\211%&'(\211\203\333\335!\202\335\336 ,\202\355\211\203\353\335!\202\355\336 \205\310)\337C\206\375\306\320#). \207" [message-syntax-checks message-hidden-headers message-inhibit-body-encoding message-send-hook message-setup-hook gnus-message-setup-hook "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 "-" line-end-position message-remove-header (error) read (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-signature gnus-agent-queue-mail rfc2047-encode-encoded-words 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] 13 (#$ . 5213)])#@31 Send all the sendable drafts. (defalias 'gnus-draft-send-all-messages #[0 "\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 (#$ . 6683) nil])#@50 Send all sendable articles from the queue group. (defalias 'gnus-group-send-queue #[0 "\204 \203\306\307!\205Y\310\311!\210\212\312 \313\314\311\315\n\"A@\262\3168\262\236A!\317\211G\317\211A\262\242\211\262\203S\211>\204/\320\321GZ#\322!)\210\202/+\266\323\311!\207" [gnus-plugged gnus-agent-prompt-send-queue gnus-newsrc-hashtb gnus-posting-styles message-send-mail-partially-limit message-sending-message gnus-y-or-n-p "Gnus is unplugged; really send queue? " gnus-activate-group "nndraft:queue" nndraft-articles range-uncompress unsend gethash 3 nil format "Sending message %d of %d..." gnus-draft-send gnus-group-refresh-group] 9 (#$ . 6923) nil])#@43 Reminder user if there are unsent drafts. (defalias 'gnus-draft-reminder #[0 "\300 \205@\301\3022>\303\211\205;\211@\304!\262\2034A@Y\2034\305\306!\2030\307\302\310\"\210\2024\311\312!\210A\266\202\202 \2620\262\207" [gnus-alive-p nil continue ("nndraft:drafts" "nndraft:queue") gnus-activate-group y-or-n-p "There are unsent drafts. Confirm to exit? " throw t error "Stop!"] 6 (#$ . 7608) nil]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable gnus-draft-setup-hook funcall function #[0 "\300\207" [nil] 1 ""] "Hook run after setting up a draft buffer." :group gnus-message :version "23.1" :type hook] 10)#@136 Setup a mail draft buffer. If DONT-POP is nil, display the buffer after setting it up. (fn NARTICLE GROUP &optional RESTORE DONT-POP) (defalias 'gnus-draft-setup #[1026 "\306C\307 \310p! \205& \242\206 \311V\205 \n \242\206 S\234\312\234\206& \203I \242\2062 \311V\205@\n \242\206> S\234\311\234\206J\f\202J\f\313 !;\313!\306;\314\305\315\316\"\"\210\314\317\320\"\210\314\317\315\321\"\"\210\322\323<\236<\"<\203\227\324\230\204\227\325=!\326\206\220!B\333 )\210\334\"\204\316\335\336!\210\202\377 \203\335\f\337\232\203\335\340 \210eb\210\341\342!\210\343u\210\214e`}\210 \344=!\240)\210?c\210\312y\210\345 \210)\346 \210\347 \210\350\351\332\"\210\352\353!\210\354\306!*\266\n\355\"\210\211\242\203\211\3561/\211\357\242!@\2400\2021\210\306\203\211\211\242@\324\232?\205@\211\242@\360 \210\f\242A@B@\315\361\"A\211\242A@\324\232\204\211\211\242A\211\203\210\211@\362\363\364\242@\365F\366\242@\367\211\211D\370BBDEE\371\"\210A\266\202\202^\210\352\372!\207" [gnus-current-window-configuration gnus-article-reply gnus-newsgroup-selection gnus-article-yanked-articles gnus-newsgroup-name message-header-setup-hook nil current-window-configuration buffer-name 0 1 copy-sequence add-hook make-closure #[0 "\301\300!\207" [V0 gnus-inews-insert-gcc] 2] message-mode-hook #[0 "\302 \211\211\207" [message-mailer message-newsreader gnus-extended-version] 2] #[0 "\302\303\300!)\207" [V0 gnus-article-copy nil gnus-configure-posting-styles] 2] delq X-Draft-From "" intern gnus-inews-make-draft #[0 "\310\307\305\303\311\302\306&\210p\312\313!\210\301\304B \203\314\315!\210\316\317!\210\320=\203D\300\312\321!\210\211\322\323\324\325\326$\210\322\327\324\326\211$\207\324 \210\300\211\207" [V0 V1 V2 V3 V4 V5 V6 V7 gnus-inews-add-send-actions forward make-local-variable gnus-message-group-art gnus-message-citation-mode 1 gnus-run-hooks gnus-message-setup-hook message-mode mml-buffer-list add-hook change-major-mode-hook mml-destroy-buffers nil t kill-buffer-hook gnus-message-buffer gnus-message-highlight-citation major-mode] 7] message-mail #[257 "\300!q\207" [gnus-get-buffer-create] 3 "\n\n(fn BUF)"] 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 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 (error) read-from-string gnus-configure-posting-styles #[257 "\301\300\242@\"\207" [V0 gnus-post-method] 4 "\n\n(fn ARG)"] message-add-action progn gnus-add-mark 'replied gnus-request-set-mark list ('add '(reply)) send gnus-draft-setup-hook mml-buffer-list message-required-headers gnus-draft-meta-information-header inhibit-read-only mail-header-separator gnus-message-group-art message-post-method] 24 (#$ . 8284)])#@48 Say whether ARTICLE is sendable. (fn ARTICLE) (defalias 'gnus-draft-article-sendable-p #[257 "\211>?\207" [gnus-newsgroup-unsendable] 3 (#$ . 11322)])#@74 Check whether the draft articles ARTICLES are under edit. (fn ARTICLES) (defalias 'gnus-draft-check-draft-articles #[257 "\302\232\205\201\303 \304\211\211r\203Y\211\204Y\305\211A\262\242!\262\262\203\f\211A\262\242\211\262q\210 \203S\306!\306 !\232\203S\307 !\307!\230\203S\310 \203S\304\262\202!\304\262\202!)\211\205\311\312\"\211\205i\313!\211\203u\314!\266\202{\315\312\"\266\316\317\"\266\204\207" [gnus-newsgroup-name buffer-file-name "nndraft:drafts" buffer-list nil nndraft-article-filename file-remote-p file-truename buffer-modified-p get-buffer-window t window-frame select-frame-set-input-focus pop-to-buffer error "The draft %s is under edit"] 10 (#$ . 11480)]) (defalias 'gnus-draft-clear-marks #[0 "\303\211\304 \211\207" [gnus-newsgroup-reads gnus-newsgroup-marked gnus-newsgroup-unreads nil nndraft-articles] 3]) (provide 'gnus-draft)