Function: mh-fully-kill-draft

mh-fully-kill-draft is an autoloaded, interactive and byte-compiled function defined in mh-comp.el.gz.

Signature

(mh-fully-kill-draft)

Documentation

Quit editing and delete draft message.

If for some reason you are not happy with the draft, you can use this command to kill the draft buffer and delete the draft message. Use the command C-x k (kill-buffer) if you don't want to delete the draft message.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-comp.el.gz
;;;###autoload
(defun mh-fully-kill-draft ()
  "Quit editing and delete draft message.

If for some reason you are not happy with the draft, you can use
this command to kill the draft buffer and delete the draft
message. Use the command \\[kill-buffer] if you don't want to
delete the draft message."
  (interactive)
  (if (y-or-n-p "Kill draft message? ")
      (let ((config mh-previous-window-config))
        (if (file-exists-p buffer-file-name)
            (delete-file buffer-file-name))
        (set-buffer-modified-p nil)
        (kill-buffer (buffer-name))
        (message "")
        (if config
            (set-window-configuration config)))
    (error "Message not killed")))