Revival of 'search parent by subject' feature.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 16f569f..702699f 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,14 @@
 2000-05-10  Yuuichi Teranishi  <teranisi@gohome.org>
 
+       * wl-vars.el (wl-summary-search-parent-by-subject-regexp):
+       New variable (revival).
+       * wl-summary.el (wl-summary-insert-thread-entity): Search parent
+       by subject matching if there's no in-reply-to nor references field
+       (revival).
+
+\f
+2000-05-10  Yuuichi Teranishi  <teranisi@gohome.org>
+
        * wl-thread.el (wl-thread-close-all): Fixed typo in display-progress
        message.
 

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 2b91f1f..f0e4ef9 100644 (file)
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -4,7 +4,7 @@
 
 ;; Author: Yuuichi Teranishi <teranisi@gohome.org>
 ;; Keywords: mail, net news
-;; Time-stamp: <2000-05-09 19:15:19 teranisi>
+;; Time-stamp: <2000-05-10 10:42:05 teranisi>
 
 ;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
 
@@ -2882,22 +2882,22 @@ If optional argument is non-nil, checking is omitted."
         ;;overview2 cur-entity
         msg) 
     ;; Search parent by subject.
-;     (when (and (null parent-number)
-;             (string-match wl-summary-search-parent-by-subject-regexp
-;                           (elmo-msgdb-overview-entity-get-subject
-;                            entity)))
-;       (setq overview2 overview)
-;       (while overview2
-;      (setq cur-entity (car overview2))
-;      (when (wl-summary-subject-equal
-;             (or (elmo-msgdb-overview-entity-get-subject cur-entity)
-;                 "")
-;             (or (elmo-msgdb-overview-entity-get-subject entity)
-;                 ""))
-;        (setq parent-number (elmo-msgdb-overview-entity-get-number
-;                             cur-entity))
-;        (setq overview2 nil))
-;      (setq overview2 (cdr overview2))))
+    (when (and (null parent-number)
+              (string-match wl-summary-search-parent-by-subject-regexp
+                            (elmo-msgdb-overview-entity-get-subject
+                             entity)))
+      (setq overview2 overview)
+      (while overview2
+       (setq cur-entity (car overview2))
+       (when (wl-summary-subject-equal
+              (or (elmo-msgdb-overview-entity-get-subject cur-entity)
+                  "")
+              (or (elmo-msgdb-overview-entity-get-subject entity)
+                  ""))
+         (setq parent-number (elmo-msgdb-overview-entity-get-number
+                              cur-entity))
+         (setq overview2 nil))
+       (setq overview2 (cdr overview2))))
     (if (and parent-number
             wl-summary-divide-thread-when-subject-changed
             (not (wl-summary-subject-equal 

diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index d7e8708..ab4ec06 100644 (file)
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -4,7 +4,7 @@
 
 ;; Author: Yuuichi Teranishi <teranisi@gohome.org>
 ;; Keywords: mail, net news
-;; Time-stamp: <00/05/10 10:20:17 teranisi>
+;; Time-stamp: <2000-05-10 10:42:13 teranisi>
 
 ;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
 
@@ -175,11 +175,11 @@ If you don't have multiple e-mail addresses, you don't have to set this."
   :type 'function
   :group 'wl-summary)
 
-;(defcustom wl-summary-search-parent-by-subject-regexp "^[ \t]*\\(\\[[^:]+[,: ][0-9]+\\]\\)?[ \t]*re"
-;   "*If message does not have in-reply-to field nor references field and
-; subject matches this regexp, search parent message by subject matching."
-;   :type 'string
-;   :group 'wl-summary)
+(defcustom wl-summary-search-parent-by-subject-regexp "^[ \t]*\\(\\[[^:]+[,: ][0-9]+\\]\\)?[ \t]*re"
+  "*If message does not have in-reply-to field nor references field and
+ subject matches this regexp, search parent message by subject matching."
+  :type 'string
+  :group 'wl-summary)
 
 (defcustom wl-summary-update-confirm-threshold 500
   "*Confirm updating summary if message number is larger than this value."