From: yoichi <yoichi>
Date: Sat, 29 Nov 2003 05:44:01 +0000 (+0000)
Subject: cosmetic fix
X-Git-Tag: wl-2_11_23~36
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6f9708ea00990b3fdaff02a0e51d86e38f8bcc1a;p=elisp%2Fwanderlust.git

cosmetic fix
---

diff --git a/wl/wl-mime.el b/wl/wl-mime.el
index 45e1579..6329a5e 100644
--- a/wl/wl-mime.el
+++ b/wl/wl-mime.el
@@ -61,16 +61,15 @@ has Non-nil value\)"
 	 (list (cons 'wl-original-message-mode
 		     (function wl-draft-yank-to-draft-buffer))))
 	(message-buffer (wl-current-message-buffer)))
-    (unless message-buffer
-      (error "No message."))
-    (if (get-buffer message-buffer)
+    (if message-buffer
 	(save-excursion
-	  (set-buffer (wl-current-message-buffer))
+	  (set-buffer message-buffer)
 	  (save-restriction
 	    (widen)
 	    (if (wl-region-exists-p)
 		(wl-mime-preview-follow-current-region)
-	      (mime-preview-follow-current-entity)))))))
+	      (mime-preview-follow-current-entity))))
+      (error "No message."))))
 
 ;; modified mime-preview-follow-current-entity from mime-view.el
 (defun wl-mime-preview-follow-current-region ()