From: yamaoka <yamaoka>
Date: Tue, 17 Nov 1998 22:00:47 +0000 (+0000)
Subject: * (message-dont-send): Use `message-save-drafts' instead of `save-buffer'.
X-Git-Tag: pgnus-ichikawa-199811302358~38
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e9250f99293df613d4e1525e673b756235fdd8b0;p=elisp%2Fgnus.git-

* (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
--- 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)))