From: teranisi <teranisi>
Date: Wed, 10 May 2000 01:45:13 +0000 (+0000)
Subject: Revival of 'search parent by subject' feature.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=67c430e00d95e8615740c7226178cc090593a019;p=elisp%2Fwanderlust.git

Revival of 'search parent by subject' feature.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 16f569f..702699f 100644
--- 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).
+
+
+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
--- 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
--- 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."