From 9301477fa5ce3b322aebcd970894d38b0f43d6ef Mon Sep 17 00:00:00 2001 From: yoichi Date: Sat, 27 Apr 2002 16:26:01 +0000 Subject: [PATCH] Update --- wl/wl-draft.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/wl/wl-draft.el b/wl/wl-draft.el index a10a0ce..f6f280f 100644 --- a/wl/wl-draft.el +++ b/wl/wl-draft.el @@ -1307,12 +1307,12 @@ Derived from `message-save-drafts' in T-gnus." (string-equal bufname "") (string-equal bufname (buffer-name))) (let ((bufname (current-buffer))) - (when (or (not (buffer-modified-p)) - (yes-or-no-p - (format "Buffer %s modified; kill anyway? " bufname))) - (set-buffer-modified-p nil) - (wl-draft-hide bufname) - (kill-buffer bufname))) + (when (or (not (buffer-modified-p)) + (yes-or-no-p + (format "Buffer %s modified; kill anyway? " bufname))) + (set-buffer-modified-p nil) + (wl-draft-hide bufname) + (kill-buffer bufname))) (kill-buffer bufname)))) (defun wl-draft-save-and-exit () -- 1.7.10.4