From 7eae1e8d1eb89c0e12add752298e56f41a1d8790 Mon Sep 17 00:00:00 2001 From: yoichi Date: Sat, 27 Apr 2002 15:09:16 +0000 Subject: [PATCH] * wl-draft.el (wl-draft-mimic-kill-buffer): Don't save draft. --- wl/ChangeLog | 4 ++++ wl/wl-draft.el | 7 ++++--- 2 files changed, 8 insertions(+), 3 deletions(-) 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 + + * wl-draft.el (wl-draft-mimic-kill-buffer): Don't save draft. + 2002-04-23 Yuuichi Teranishi * 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." -- 1.7.10.4