Edit file File name : gnus-draft.elc Content :;ELC ;;; Compiled ;;; in Emacs version 26.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 (#$ . 1328)) (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) "\304 \305=\203 \n?\202 \306 !\307V\310\311!\204 \312\2024 \n\2034 \313\314\315\"\203- \316 \210\317\320\321\322\211$\210\323\324\n\203> \325\202? \326\"\210\327\330!\203d \304 \203S \304 \232\203d \331\332\333\n\203_ \334\202` \335 #\210))\336 \210\n\207" [#1=#:last-message arg gnus-draft-mode local 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 " in current buffer" message "Gnus-Draft mode %sabled%s" "en" "dis" force-mode-line-update] 5 (#$ . 1519) (list (or current-prefix-arg 'toggle))]) (defvar gnus-draft-mode-hook nil) (byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\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.)" 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 (#$ . 2823) (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 \313 C!\210\314 \f\"\210\315 \n\316#\210\317\316!\210\212\214\320 \210\321\322!\210*\323\324\325 !\" \326 \210)\327 \330 C\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 (#$ . 3354) 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\242\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 (#$ . 4306) "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\265 \3251\235 \326p!0\202\237 \210\310&\3271\254 \326p!0\202\256 \210\310'\324+!\210)\330 \210'\203\314 \331'!\204\314 \332'!\205&\203\366 &\333=&\334='\211 , - . /(\203\360 \335(!\202\362 \336 ,\202(\203\335(!\202\336 \205\310 0\337)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 (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-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 (#$ . 4880)]) #@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 (#$ . 6374) 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\242\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 (#$ . 6617) nil]) #@43 Reminder user if there are unsent drafts. (defalias 'gnus-draft-reminder #[nil "\303 \205C \304\3052B \306\304\211\205@ \n@\307 !\211\2038 A@Y\2038 \310\311!\2034 \312\305\313\"\210\2028 \314\315!\210\nA\211\204 \304*0)\207" [active group --dolist-tail-- 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!"] 4 (#$ . 7342) nil]) #@43 Hook run after setting up a draft buffer. (custom-declare-variable 'gnus-draft-setup-hook nil '(#$ . 7791) :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!\311\n!\203+ \203+ \242\206 \312V\205& \f \242\206$ S\234\313\234\202, \311\n!\203P \203P \242\206= \312V\205K \f \242\206I S\234\312\234\202Q \n\314!?\314! @ A B C D E F\306?\315\316\317\"\210\315\320\321\"\210\315\320\322\"\210\323\324G\236G\"GA\203\250 A\325\230\204\250 \326H!\327B\206\241 C!BGBG\330\216I J\331\306\211\211\211K\205\271 \332%\210\333 L\334 \210)\335JM\"\204\322 \336\337!\210\202 N\203\341 M\340\232\203\341 \341 \210eb\210\342\343!\210\344u\210\214e`}\210\345H!)Oc\210\313y\210\346 \210*\347 \210\350 \210\351\352\333\"\210\353\354!\210\355\306!\210. \356MI\"\210\203\220\3571/\360!@\2110\2021\210\306\203\220@\325\232?\205>@\361 \210\nA@BP\362\363\364\365@EEQA@\325\232\204\220A\306 J\211 R\203\217R@J\366\367\370@\371JF\372@\373\211\211JD\374BBDEE\375\"\210RA\211R\204f*\353\376!)\207" [ga gnus-current-window-configuration gnus-newsgroup-name gnus-article-reply nnir-artlist gnus-article-yanked-articles nil current-window-configuration buffer-name gnus-nnir-group-p 0 1 copy-sequence add-hook message-header-setup-hook #[nil "\301!\207" [#1=#:gnus-setup-message-group gnus-inews-insert-gcc] 2] message-mode-hook #[nil "\302 \211\211\207" [message-mailer message-newsreader gnus-extended-version] 2] #[nil "\302\303 !)\207" [gnus-article-copy #1# nil gnus-configure-posting-styles] 2] delq X-Draft-From "" intern gnus-inews-make-draft #[nil "\306 \n\307 \f&\210p\310\311!\210\nB \310\312!\210\n\203' \313\314!\210\315\316!\210\317=\203Q \310\320!\210\321\322\323\324\325$\210\321\326\323\325\211$)\207\323 \210\211\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 add-hook change-major-mode-hook mml-destroy-buffers nil t kill-buffer-hook #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 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 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 gnus-message-group-art message-post-method --dolist-tail--] 11 (#$ . 7954)]) #@34 Say whether ARTICLE is sendable. (defalias 'gnus-draft-article-sendable-p #[(article) " >?\207" [article gnus-newsgroup-unsendable] 2 (#$ . 11165)]) #@59 Check whether the draft articles ARTICLES are under edit. (defalias 'gnus-draft-check-draft-articles #[(articles) "\306\232\205\206 \307 \310\211\211 r \203Z \204Z \311 \211A\242!\f\n\203 \n\211A\242\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 select-frame-set-input-focus pop-to-buffer error "The draft %s is under edit" buffer-file-name window frame] 5 (#$ . 11321)]) (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) Save