From: yoichi <yoichi>
Date: Sat, 27 Apr 2002 15:09:16 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-mimic-kill-buffer): Don't save draft.
X-Git-Tag: elmo-mark-root~196
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=7eae1e8d1eb89c0e12add752298e56f41a1d8790;p=elisp%2Fwanderlust.git

* wl-draft.el (wl-draft-mimic-kill-buffer): Don't save draft.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 223da73..2040370 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2002-04-27  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+	* wl-draft.el (wl-draft-mimic-kill-buffer): Don't save draft.
+
 2002-04-23  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* wl.el (wl): inhibit-quit while wl-folder.
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 15b0515..108a970 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -1303,11 +1303,12 @@ Derived from `message-save-drafts' in T-gnus."
   (let ((bufname (read-buffer (format "Kill buffer: (default %s) "
 				      (buffer-name))))
 	wl-draft-use-frame)
-    (if (or (not bufname)
+    (when (or (not bufname)
 	    (string-equal bufname "")
 	    (string-equal bufname (buffer-name)))
-	(wl-draft-save-and-exit)
-      (kill-buffer bufname))))
+      (setq bufname (current-buffer))
+      (wl-draft-hide bufname))
+    (kill-buffer bufname)))
 
 (defun wl-draft-save-and-exit ()
   "Save current draft and exit current draft mode."