From: yoichi <yoichi>
Date: Mon, 25 Nov 2002 13:07:36 +0000 (+0000)
Subject: * wl-vars.el (wl-summary-search-parent-by-subject-regexp): It can
X-Git-Tag: wl-2_11_1~25
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=fdc1c55705f62badb9d251b786c8207b61c113ed;p=elisp%2Fwanderlust.git

* wl-vars.el (wl-summary-search-parent-by-subject-regexp): It can
take nil so as not to search parent by subject.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index fe5ebad..7cacd94 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2002-11-25  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+	* wl-vars.el (wl-summary-search-parent-by-subject-regexp): It can
+	take nil so as not to search parent by subject.
+
 2002-11-20  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
 	* wl-folder.el (wl-folder-get-prev-folder): Ignore nemacs.
diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index 6500446..d1f1b3c 100644
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -325,8 +325,10 @@ It is highly recommended to set this value to t."
 
 (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
+subject matches this regexp, search parent message by subject matching.
+If nil, never search search parent by subject."
+  :type '(choice string
+		 (const :tag "Don't search parent" nil))
   :group 'wl-summary)
 
 ;; Important folders