From: yoichi <yoichi>
Date: Mon, 21 Oct 2002 04:24:31 +0000 (+0000)
Subject: * wl-mime.el (wl-draft-yank-current-message-entity): Fix logic.
X-Git-Tag: wl-2_11_1~90
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e3ae42f2b1b4dd8239ed19c4b366607e0f60931b;p=elisp%2Fwanderlust.git

* wl-mime.el (wl-draft-yank-current-message-entity): Fix logic.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index f7c54bd..ed2b877 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2002-10-21  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+	* wl-mime.el (wl-draft-yank-current-message-entity): Fix logic.
+
 2002-10-18  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* wl-mime.el (wl-message-delete-current-part): Use `delete-region'
diff --git a/wl/wl-mime.el b/wl/wl-mime.el
index fb8f58e..91df931 100644
--- a/wl/wl-mime.el
+++ b/wl/wl-mime.el
@@ -70,7 +70,8 @@ has Non-nil value\)"
 	    (widen)
 	      (if (or (and wl-on-xemacs
 			   zmacs-regions zmacs-region-active-p)
-		      (and transient-mark-mode mark-active))
+		      (and (not wl-on-xemacs)
+			   transient-mark-mode mark-active))
 		  (wl-mime-preview-follow-current-region)
 		(mime-preview-follow-current-entity)))))))