From: yoichi <yoichi>
Date: Sat, 27 Apr 2002 16:26:01 +0000 (+0000)
Subject: Update
X-Git-Tag: elmo-mark-root~194
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9301477fa5ce3b322aebcd970894d38b0f43d6ef;p=elisp%2Fwanderlust.git

Update
---

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