%PDF-
%PDF-
Mini Shell
Mini Shell
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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)
#@318 Minor mode for providing a draft summary buffers.
If called interactively, enable Gnus-Draft mode if ARG is
positive, and disable it if ARG is zero or negative. If called
from Lisp, also enable the mode if ARG is omitted or nil, and
toggle it if ARG is `toggle'; disable the mode otherwise.
\{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 (#$ . 1520) (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 (#$ . 3067) (list (gnus-summary-article-number))])
#@54 Enter a mail/post buffer to edit and send the draft.
(defalias 'gnus-draft-edit-message #[nil "\306`\307\"\211\203\f \310!\210\210\306`\311\"\206 \312 \313\nC!\210\314\n \"\210\315\n \316#\210\317\316!\210\212\214\320 \210\321\322!\210*\323\324\f\" \325 \210)\326 \327\nC \316#\210)\330\326\331\332 D\333\334 D\335\n\336BBEEEC B\211 *\207" [gnus-newsgroup-name group article gnus-canceled-mark message-draft-headers gnus-verbose-backends 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 lambda when gnus-buffer-live-p save-excursion set-buffer gnus-cache-possibly-remove-article (nil nil nil t) gnus-summary-buffer message-send-actions] 9 (#$ . 3448) 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 (#$ . 4378) "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 (#$ . 4952)])
#@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 (#$ . 6446) nil])
#@50 Send all sendable articles from the queue group.
(defalias 'gnus-group-send-queue #[nil "\204 \203 \306\307!\205c \310\311!\210\212\312 \313\314\311\315 \"A@\262 \316\f8)\236A! \317\211 \nG \317 \n\211A\242\211\203^
>\2047 \320\321\nGZ# \322!\210)\2027 .\323\311!\207" [gnus-plugged gnus-agent-prompt-send-queue articles gnus-newsrc-hashtb cl-x unsendable gnus-y-or-n-p "Gnus is unplugged; really send queue? " gnus-activate-group "nndraft:queue" nndraft-articles gnus-uncompress-range unsend gethash 3 nil format "Sending message %d of %d..." gnus-draft-send gnus-group-refresh-group gnus-posting-styles message-send-mail-partially-limit total article message-sending-message] 7 (#$ . 6689) 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 (#$ . 7419) nil])
#@43 Hook run after setting up a draft buffer.
(custom-declare-variable 'gnus-draft-setup-hook nil '(#$ . 7868) :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 (#$ . 8031)])
#@34 Say whether ARTICLE is sendable.
(defalias 'gnus-draft-article-sendable-p #[(article) " >?\207" [article gnus-newsgroup-unsendable] 2 (#$ . 11242)])
#@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 (#$ . 11398)])
(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)
Zerion Mini Shell 1.0