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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index f7c54bd..ed2b877 100644 (file)
--- 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 (file)
--- 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)))))))