;ELC ;;; Compiled by amu@quiche-lorraine.mit.edu on Thu Jan 6 19:17:15 2000 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.8.3/lisp/gnus-draft.el ;;; in Emacs version 20.4.1 ;;; with bytecomp version 2.56 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`gnus-draft.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (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) #@51 Minor mode for providing a draft summary buffers. (defvar gnus-draft-mode nil (#$ . 802)) (byte-code "\302\300!\204\303\300 B\204\304 \305\300\306\"\210\303\207" [gnus-draft-mode-map current-load-list boundp nil make-sparse-keymap gnus-define-keys-1 ("Dt" gnus-draft-toggle-sending "De" gnus-draft-edit-message "Ds" gnus-draft-send-message "DS" gnus-draft-send-all-messages)] 3) (defalias 'gnus-draft-make-menu-bar #[nil "\303\300!?\205\303\300!\204\304\300 B\305\300\306\307#\210\310\300\n\307\311$\207" [gnus-draft-menu current-load-list gnus-draft-mode-map boundp nil put variable-documentation "" 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]) #@75 Minor mode for providing a draft summary buffers. \{gnus-draft-mode-map} (defalias 'gnus-draft-mode #[(&optional arg) "\304=\2051\305\302! \204\n?\202\306 !\307VL\2051\310\311\312\"\203%\313 \210\314\302\315 #\210\316 \210\317\320!\207" [major-mode arg gnus-draft-mode gnus-draft-mode-map gnus-summary-mode make-local-variable prefix-numeric-value 0 gnus-visual-p draft-menu menu gnus-draft-make-menu-bar gnus-add-minor-mode " Draft" mml-mode gnus-run-hooks gnus-draft-mode-hook] 4 (#$ . 1704) "P"]) #@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 (#$ . 2219) (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 \310!\210)\306`\311\"\206\312 \313 \n\"\210\314 \"\210\315\316!\210\317 \210\320\321 C \316#\210)\322\320\323\324 D\325\326 D\327 \330BBEEECB\211)\207" [to article gnus-canceled-mark gnus-newsgroup-name gnus-verbose-backends gnus-summary-buffer get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-summary-mark-as-read gnus-draft-setup set-buffer-modified-p t 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) message-send-actions] 10 (#$ . 2600) nil]) #@25 Send the current draft. (defalias 'gnus-draft-send-message #[(&optional n) "\306!\307\n\211A@\211\205(\310 !\210 >\204\311 \f\312#\210\313 \"\210\202*\207" [n article articles gnus-newsgroup-unsendable gnus-newsgroup-name gnus-canceled-mark gnus-summary-work-articles nil gnus-summary-remove-process-mark gnus-draft-send t gnus-summary-mark-article] 4 (#$ . 3341) "P"]) #@23 Send message ARTICLE. (defalias 'gnus-draft-send #[(article &optional group interactive) "\306 \206\307\"\210\n?\205\310 ?\206 \307\232\206 \205' \307\232?\205'\f\311\211\214\312 \210\313\314\315!\316Q\311\317#\203R\320\321\322\217\323\324\325\217\326!\210) \203c\327 !\204c\330 !\205\223\203\200\331=\332= \211 !\"#\333 ,\202\202\333 \205\223\311$\334C \206\220\307\317#)-\207" [article group interactive message-inhibit-body-encoding message-send-hook method gnus-draft-setup "nndraft:queue" dont-check-for-anything-just-trust-me nil message-narrow-to-head re-search-forward "^" regexp-quote ":" t #1=#:G81953 (byte-code "\300p!\207" [read] 2) ((error)) #2=#:G81954 (byte-code "\300p!\207" [read] 2) ((error)) message-remove-header gnus-server-opened gnus-open-server news mail message-send-and-exit gnus-request-expire-articles type message-syntax-checks gnus-agent-meta-information-header message-post-method gnus-post-method message-this-is-mail message-this-is-news gnus-verbose-backends] 5 (#$ . 3729)]) #@31 Send all the sendable drafts. (defalias 'gnus-draft-send-all-messages #[nil "\300 \210\301 \207" [gnus-uu-mark-buffer gnus-draft-send-message] 1 (#$ . 4792) nil]) #@50 Send all sendable articles from the queue group. (defalias 'gnus-group-send-drafts #[nil "\304\305!\210\212\306 \307\310\311\312\313\305\"J88\236A!\314 \211A@\211\2050 \n>\204\315 !\210\202,\207" [gnus-newsrc-hashtb article unsendable articles gnus-activate-group "nndraft:queue" nndraft-articles gnus-uncompress-range unsend 3 2 intern-soft nil gnus-draft-send] 8 (#$ . 4961) nil]) (defalias 'gnus-draft-setup #[(narticle group) "\306 \307p!\205 \310`\311\"\211\203\312 !\210)\310`\313\"\206 \314 \n\315 !\315\f!#$%\316\303\317\"\210\316\303\320\"\210\316\304\321\"\210\322\216&'\323 \210\324 \210\325'(\"\204[\326\327!\210\202oeb\210\330\331!\210\332u\210)c\210\333y\210\334 \210*\335 \210\336\337\340\"\210\341\342!.\207" [gnus-article-reply to gnus-newsgroup-name message-header-setup-hook message-mode-hook #1=#:gnus-setup-message-group current-window-configuration buffer-name get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject copy-sequence add-hook gnus-inews-insert-gcc gnus-inews-insert-archive-gcc gnus-configure-posting-styles ((byte-code "\305 \n#\210p\306\307!\f\nBL\210\306\310!\fL\210\311\312!\207" [#2=#:gnus-setup-message-winconf #3=#:gnus-setup-message-buffer #4=#:gnus-setup-message-article gnus-message-buffer #1# gnus-inews-add-send-actions make-local-variable gnus-message-group-art gnus-newsgroup-name gnus-run-hooks gnus-message-setup-hook] 4)) message-mail erase-buffer gnus-request-restore-buffer error "Couldn't restore the article" search-forward "\n\n" -1 1 message-set-auto-save-file-name gnus-add-buffer gnus-configure-windows forward t set-buffer-modified-p nil #4# #3# #2# narticle article group mail-header-separator] 8]) #@34 Say whether ARTICLE is sendable. (defalias 'gnus-draft-article-sendable-p #[(article) " >?\207" [article gnus-newsgroup-unsendable] 2 (#$ . 6704)]) (provide 'gnus-draft)