;ELC ;;; compiled by amu@tux.mit.edu on Sun Nov 15 14:41:45 1998 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.6.44/lisp/gnus-draft.el ;;; emacs version 19.34.1. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (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 "ﾀﾁ!安ﾂ!安ﾃ!安ﾄ!安ﾅ!安ﾆ!" [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 (#$ . 603)) (byte-code "ﾀﾁ!ﾂﾁ B ﾄ ﾅﾁﾆ\"按" [boundp gnus-draft-mode-map nil current-load-list 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 "ﾀﾁ!? ﾀﾁ!ﾂﾁ Bﾄﾁﾅﾆ#杏ﾁﾆﾉ$" [boundp gnus-draft-menu nil current-load-list put variable-documentation "" easy-menu-do-define gnus-draft-mode-map ("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) "ﾁ=/ﾂﾃ!\f ?ﾅ\f!ﾆVL/ﾇﾈﾉ\"%ﾊ 依ﾃﾌ #夷ﾏ!" [major-mode gnus-summary-mode make-local-variable gnus-draft-mode arg prefix-numeric-value 0 gnus-visual-p draft-menu menu gnus-draft-make-menu-bar gnus-add-minor-mode " Draft" gnus-draft-mode-map gnus-run-hooks gnus-draft-mode-hook] 4 (#$ . 1412) "P"]) #@43 Toggle whether to send an article or not. (defalias 'gnus-draft-toggle-sending #[(article) "ﾀ ! \nBﾃ \f\"ﾅ \n\"ﾃ \"杏 " [gnus-draft-article-sendable-p article gnus-newsgroup-unsendable gnus-summary-mark-article gnus-unsendable-mark delq gnus-unread-mark gnus-summary-position-point] 3 (#$ . 1845) (list (gnus-summary-article-number))]) #@54 Enter a mail/post buffer to edit and send the draft. (defalias 'gnus-draft-edit-message #[nil "ﾀ`ﾁ\" ﾃ\n!)ﾀ`ﾄ\"ﾅ ﾇ\"伊\n\"依ﾌ!囲 夷ﾏﾐﾑDﾓﾔDﾕﾖBBEEECB)" [get-text-property gnus-intangible to gnus-summary-goto-subject gnus-number gnus-summary-last-subject article gnus-summary-mark-as-read gnus-canceled-mark gnus-draft-setup gnus-newsgroup-name set-buffer-modified-p t save-buffer lambda nil when gnus-buffer-exists-p gnus-summary-buffer save-excursion set-buffer gnus-cache-possibly-remove-article (nil nil nil t) message-send-actions] 10 (#$ . 2199) nil]) #@25 Send the current draft. (defalias 'gnus-draft-send-message #[(&optional n) "ﾀ !ﾂ\f陰@*ﾅ ! >ﾇ \"伊 \n\"*" [gnus-summary-work-articles n nil article articles gnus-summary-remove-process-mark gnus-newsgroup-unsendable gnus-draft-send gnus-newsgroup-name gnus-summary-mark-article gnus-canceled-mark] 3 (#$ . 2789) "P"]) #@23 Send message ARTICLE. (defalias 'gnus-draft-send #[(article &optional group) "ﾀ \nﾃ\"案ﾅ演 弧 依ﾌﾍ!ﾏQﾅﾐ#8ﾑﾒﾓﾔﾕﾖﾗ!)ジﾘ=ﾙ=ﾞ ,Yﾞ jﾅ C\ngﾃﾐ#)," [gnus-draft-setup article group "nndraft:queue" dont-check-for-anything-just-trust-me nil method type message-send-hook message-syntax-checks message-narrow-to-head re-search-forward "^" regexp-quote gnus-agent-meta-information-header ":" t G99136 (byte-code "ﾀp!" [read] 2) ((error)) G99137 (byte-code "ﾀp!" [read] 2) ((error)) message-remove-header news mail message-post-method gnus-post-method message-this-is-mail message-this-is-news message-send-and-exit gnus-verbose-backends gnus-request-expire-articles] 4 (#$ . 3133)]) #@31 Send all the sendable drafts. (defalias 'gnus-draft-send-all-messages #[nil "ﾀ 庵 " [gnus-uu-mark-buffer gnus-draft-send-message] 1 (#$ . 3862) nil]) #@50 Send all sendable articles from the queue group. (defalias 'gnus-group-send-drafts #[nil "ﾀﾁ!環 ﾃﾄﾅﾆﾇﾁ\"J88暸!ﾉ\n \f\f陰\f@\n:\n >ﾍ\n!," [gnus-activate-group "nndraft:queue" nndraft-articles gnus-uncompress-range unsend 3 2 intern-soft gnus-newsrc-hashtb nil article unsendable articles gnus-draft-send] 8 (#$ . 4019) nil]) (defalias 'gnus-draft-setup #[(narticle group) "ﾀ ﾁp!\n ﾃ`ﾄ\"ﾆ !)ﾃ`ﾇ\" ﾈ  ﾊ !ﾊ\f!\f  ﾑﾋﾒ\"尉ﾋﾓ\"尉ﾌﾔ\"易ﾘ 異 移\"aﾜﾝ!Ｖeb萎ﾟ!謂u!c遺y医 * 亥跚\"郁!." [current-window-configuration buffer-name gnus-article-reply get-text-property gnus-intangible to gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-newsgroup-name copy-sequence message-header-setup-hook message-mode-hook gnus-setup-message-group gnus-setup-message-article gnus-setup-message-buffer gnus-setup-message-winconf add-hook gnus-inews-insert-gcc gnus-inews-insert-archive-gcc gnus-configure-posting-styles ((byte-code "ﾀ \n #pﾅﾆ! BL闇ﾈ!伊ﾊ!" [gnus-inews-add-send-actions gnus-setup-message-winconf gnus-setup-message-buffer gnus-setup-message-article gnus-message-buffer make-local-variable gnus-message-group-art gnus-setup-message-group gnus-newsgroup-name gnus-run-hooks gnus-message-setup-hook] 4)) narticle article message-mail erase-buffer gnus-request-restore-buffer group error "Couldn't restore the article" search-forward "\n\n" -1 mail-header-separator 1 message-set-auto-save-file-name gnus-add-buffer gnus-configure-windows forward t set-buffer-modified-p nil] 8]) #@34 Say whether ARTICLE is sendable. (defalias 'gnus-draft-article-sendable-p #[(article) " >?" [article gnus-newsgroup-unsendable] 2 (#$ . 5577)]) (provide (quote gnus-draft))