Function: gnus-draft-edit-message

gnus-draft-edit-message is an interactive and byte-compiled function defined in gnus-draft.el.gz.

Signature

(gnus-draft-edit-message)

Documentation

Enter a mail/post buffer to edit and send the draft.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-draft.el.gz
(defun gnus-draft-edit-message ()
  "Enter a mail/post buffer to edit and send the draft."
  (interactive nil gnus-summary-mode)
  (let ((article (gnus-summary-article-number))
	(group gnus-newsgroup-name))
    (gnus-draft-check-draft-articles (list article))
    (gnus-summary-mark-as-read article gnus-canceled-mark)
    (gnus-draft-setup article group t)
    (set-buffer-modified-p t)
    (save-excursion
      (save-restriction
	(message-narrow-to-headers)
	(message-remove-header "date")))
    (let ((message-draft-headers (remq 'Date message-draft-headers)))
      (save-buffer))
    (let ((gnus-verbose-backends nil))
      (gnus-request-expire-articles (list article) group t))
    (push
     (let ((buf gnus-summary-buffer))
       (lambda ()
         (when (gnus-buffer-live-p buf)
	   (with-current-buffer buf
	     (gnus-cache-possibly-remove-article article nil nil nil t)))))
     message-send-actions)))