2000-06-23 Akira Ohashi <hato@yui.gr.jp>

        * wl-summary.el (wl-summary-search-by-subject):
        Check message-id field for `Is founded entity myself?'.

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index a2b4787..5fdaac5 100644 (file)
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -2986,7 +2986,9 @@ If optional argument is non-nil, checking is omitted."
            (setq founds (wl-summary-get-alike))))))
     (if (and founds
             ;; Is founded entity myself or children?
-            (not (eq entity (car founds)))
+            (not (string=
+                  (elmo-msgdb-overview-entity-get-id entity)
+                  (elmo-msgdb-overview-entity-get-id (car founds))))
             (not (wl-thread-descendant-p
                   (elmo-msgdb-overview-entity-get-number entity)
                   (elmo-msgdb-overview-entity-get-number (car founds)))))