* (message-dont-send): Use `message-save-drafts' instead of `save-buffer'.

diff --git a/lisp/message.el b/lisp/message.el
index 777315b..7fd27bc 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -2133,8 +2133,7 @@ The text will also be indented the normal way."
 (defun message-dont-send ()
   "Don't send the message you have been editing."
   (interactive)
-  (set-buffer-modified-p t)
-  (save-buffer)
+  (message-save-drafts)
   (let ((actions message-postpone-actions))
     (message-bury (current-buffer))
     (message-do-actions actions)))