;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:42:27 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/gnus/gnus-draft.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; 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 (#$ . 782)) (byte-code "\301B\302\301!\204\f\303 \204\304 \305\301\306\"\210\303\207" [current-load-list gnus-draft-mode-map 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 "\302\300!?\205\303\300\304\305#\210\302\300!\204\306\307\300 \305\310$\207" [gnus-draft-menu gnus-draft-mode-map boundp put variable-documentation "" 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]) #@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 (#$ . 1659) "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 (#$ . 2174) (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 \315#\210\316\315!\210\317 \210\320\321 C \315#\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 t set-buffer-modified-p 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 (#$ . 2555) nil]) #@25 Send the current draft. (defalias 'gnus-draft-send-message #[(&optional n) "\306!\211G\307 \211A@\211\2057\310 !\210 \f>\204 \311\312\n GZ\n#\313 \314#\210)\315 \"\210\202 +\207" [n articles total article gnus-newsgroup-unsendable message-sending-message gnus-summary-work-articles nil 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 (#$ . 3299) "P"]) #@23 Send message ARTICLE. (defalias 'gnus-draft-send #[(article &optional group interactive) "?\205\306 ?\206 \307\232\206\n \205 \307\232?\205 \205* \307\232?\205*\f\310\211\311 \206<\307\"\210\214\312 \210\313\314\315!!\316Q\310\317#\203`\320\321\322\217\323\324\325\217\326!!\210)\327 \210 \203t\330 !\204t\331 !\205\245\203\221\332=\333= \211\"#$%\334 ,\202\223\334 \205\245\310&\335 C \206\242\307\317#).\207" [interactive group message-inhibit-body-encoding message-send-hook message-setup-hook method dont-check-for-anything-just-trust-me "nndraft:queue" nil gnus-draft-setup message-narrow-to-head re-search-forward "^" regexp-quote ":" t #1=#:G97342 (byte-code "\300p!\207" [read] 2) ((error)) #2=#:G97343 (byte-code "\300p!\207" [read] 2) ((error)) message-remove-header gnus-agent-restore-gcc gnus-server-opened gnus-open-server news mail message-send-and-exit gnus-request-expire-articles type message-syntax-checks article gnus-agent-meta-information-header message-post-method gnus-post-method message-this-is-mail message-this-is-news gnus-verbose-backends] 6 (#$ . 3779)]) #@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 (#$ . 4921) nil]) #@50 Send all sendable articles from the queue group. (defalias 'gnus-group-send-drafts #[nil "\306\307!\210\212\310 \311\312\313\314\315\307 \"J88\236A!G\316\211A@\211\205=\f\n>\204\317\320 GZ #\321\f!\210)\202-\207" [articles gnus-newsrc-hashtb unsendable total article message-sending-message 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] 7 (#$ . 5090) nil]) (defalias 'gnus-draft-setup #[(narticle group &optional restore) "\306 \307p!\205 \310`\311\"\211\203\312 !\210)\310`\313\"\206 \314 \n\315 !\f\315 !%&'()\316\317\303\320\"\210\317\303\321\"\210\317\305\322\"\210\323\216*+\324 \210\325 \210\326+,\"\204a\327\330!\210\202\204-\203p,\331\232\203p\332 \210eb\210\333\334!\210\335u\210.c\210\336y\210\337 \210*\340 \210\341\342\343\"\210\344\316!.\207" [gnus-article-reply to gnus-newsgroup-name message-header-setup-hook mml-buffer-list message-mode-hook current-window-configuration buffer-name get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject copy-sequence nil add-hook gnus-inews-insert-gcc gnus-inews-insert-archive-gcc gnus-configure-posting-styles ((byte-code "\306 \n#\210p\307\310!\f\nBL\210\307\311!\fL\210\312\313!\210 \314=\203A  \307\315!L\210\316\317\320\321\322$\210\316\323\320\322\211$\210)\202H\320 \210 \321\207" [#1=#:gnus-setup-message-winconf #2=#:gnus-setup-message-buffer #3=#:gnus-setup-message-article gnus-message-buffer #4=#:gnus-setup-message-group major-mode gnus-inews-add-send-actions make-local-variable gnus-message-group-art gnus-newsgroup-name 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 mbl1 mbl] 5)) message-mail erase-buffer gnus-request-restore-buffer error "Couldn't restore the article" "nndraft:queue" mime-to-mml search-forward "\n\n" -1 1 message-set-auto-save-file-name gnus-add-buffer gnus-configure-windows forward t set-buffer-modified-p mbl #4# #3# #2# #1# narticle article group restore mail-header-separator] 9]) #@34 Say whether ARTICLE is sendable. (defalias 'gnus-draft-article-sendable-p #[(article) " >?\207" [article gnus-newsgroup-unsendable] 2 (#$ . 7278)]) (provide 'gnus-draft)