HOME

Mini Shell 1.0
Current File : //usr/share/emacs/26.1/lisp/gnus/gnus-draft.elc
;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 	\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 (#$ . 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\3100\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\2038A@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\206IS\234\312\234\202Q\n\314!?\314!@ABCDEF\306?\315\316\317\"\210\315\320\321\"\210\315\320\322\"\210\323\324G\236G\"GA\203\250A\325\230\204\250\326H!\327B\206\241C!BGBG\330\216IJ\331\306\211\211\211K\205\271\332%\210\333L\334 \210)\335JM\"\204\322\336\337!\210\202N\203\341M\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\306J\211R\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\211r
\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)