Lines Matching +defs:message +defs:mode
1 ;;; gnus-draft.el --- draft message support for Gnus
32 (require 'message)
38 ;;; Draft minor mode
40 (defvar gnus-draft-mode nil
41 "Minor mode for providing a draft summary buffers.")
43 (defvar gnus-draft-mode-map nil)
45 (unless gnus-draft-mode-map
46 (setq gnus-draft-mode-map (make-sparse-keymap))
48 (gnus-define-keys gnus-draft-mode-map
50 "e" gnus-draft-edit-message ;; Use `B w' for `gnus-summary-edit-article'
51 "De" gnus-draft-edit-message
52 "Ds" gnus-draft-send-message
58 gnus-draft-menu gnus-draft-mode-map ""
61 ["Edit" gnus-draft-edit-message t]
62 ["Send selected message(s)" gnus-draft-send-message t]
66 (defun gnus-draft-mode (&optional arg)
67 "Minor mode for providing a draft summary buffers.
69 \\{gnus-draft-mode-map}"
71 (when (eq major-mode 'gnus-summary-mode)
72 (when (set (make-local-variable 'gnus-draft-mode)
73 (if (null arg) (not gnus-draft-mode)
78 (gnus-add-minor-mode 'gnus-draft-mode " Draft" gnus-draft-mode-map)
79 (gnus-run-hooks 'gnus-draft-mode-hook))))
95 (defun gnus-draft-edit-message ()
106 (message-narrow-to-headers)
107 (message-remove-header "date")))
117 message-send-actions)))
119 (defun gnus-draft-send-message (&optional n)
129 (let ((message-sending-message
130 (format "Sending message %d of %d..."
136 "Send message ARTICLE."
139 (message-syntax-checks (if interactive message-syntax-checks
141 (message-hidden-headers nil)
142 (message-inhibit-body-encoding (or is-queue
143 message-inhibit-body-encoding))
144 (message-send-hook (and (not is-queue)
145 message-send-hook))
146 (message-setup-hook (and (not is-queue)
147 message-setup-hook))
148 (message-signature (and (not is-queue)
149 message-signature))
156 ;; this message is to be sent.
158 (message-narrow-to-headers)
164 (message-remove-header gnus-agent-target-move-group-header))
171 (message-remove-header gnus-agent-meta-information-header)))
172 ;; Let Agent restore any GCC lines and have message.el perform them.
180 (let ((message-this-is-news (eq type 'news))
181 (message-this-is-mail (eq type 'mail))
183 (message-post-method method))
186 (message-send-and-exit)))
189 (message-send-and-exit))))
202 (gnus-draft-send-message)))
222 (let ((message-sending-message
223 (format "Sending message %d of %d..."
244 ;;;!!!This is because `gnus-setup-message' uses uninterned symbols.
251 (gnus-setup-message 'forward
253 (message-mail)
267 (message-fetch-field gnus-draft-meta-information-header)))
270 (message-set-auto-save-file-name))))
277 (setq gnus-message-group-art (cons gnus-newsgroup-name (cadr ga)))
278 (setq message-post-method
283 (message-add-action