From e70390f6ee1f666c4fe6f70b45c4c9998a6a6b4c Mon Sep 17 00:00:00 2001 From: bg66 Date: Fri, 23 Jun 2000 02:59:56 +0000 Subject: [PATCH] 2000-06-23 Akira Ohashi * wl-summary.el (wl-summary-search-by-subject): Check message-id field for `Is founded entity myself?'. --- wl/wl-summary.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/wl/wl-summary.el b/wl/wl-summary.el index a2b4787..5fdaac5 100644 --- 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))))) -- 1.7.10.4