From: hmurata <hmurata>
Date: Thu, 16 Oct 2003 14:36:12 +0000 (+0000)
Subject: (wl-summary-rescan): Added optional argument
X-Git-Tag: wl-2_11_20~12
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c00a3ca7411d4b3fd64195ee7e501b2926215a87;p=elisp%2Fwanderlust.git

(wl-summary-rescan): Added optional argument
disable-thread.
(wl-summary-sync): Call wl-summary-rescan with argument
disable-thread.
(wl-summary-input-range): Added new range `rescan-thread'.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index de38684..0c9496a 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,11 @@
+2003-10-16  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* wl-summary.el (wl-summary-rescan): Added optional argument
+	disable-thread.
+	(wl-summary-sync): Call wl-summary-rescan with argument
+	disable-thread.
+	(wl-summary-input-range): Added new range `rescan-thread'.
+
 2003-10-16  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* wl-util.el (wl-get-assoc-list-value): Fixed last change.
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index ff1ec9b..b818b8a 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -924,7 +924,7 @@ Entering Folder mode calls the value of `wl-summary-mode-hook'."
   (interactive)
   (wl-summary-rescan "list-info"))
 
-(defun wl-summary-rescan (&optional sort-by disable-killed)
+(defun wl-summary-rescan (&optional sort-by disable-killed disable-thread)
   "Rescan current folder without updating."
   (interactive)
   (let ((elmo-mime-charset wl-summary-buffer-mime-charset)
@@ -935,9 +935,12 @@ Entering Folder mode calls the value of `wl-summary-mode-hook'."
 	(buffer-read-only nil)
 	(numbers (elmo-folder-list-messages wl-summary-buffer-elmo-folder
 					    (not disable-killed) t)) ; in-msgdb
-	(wl-thread-saved-entity-hashtb-internal wl-thread-entity-hashtb)
-	wl-summary-search-parent-by-subject-regexp
-	wl-summary-divide-thread-when-subject-changed
+	(wl-thread-saved-entity-hashtb-internal (and (not disable-thread)
+						     wl-thread-entity-hashtb))
+	(wl-summary-search-parent-by-subject-regexp
+	 (and disable-thread wl-summary-search-parent-by-subject-regexp))
+	(wl-summary-divide-thread-when-subject-changed
+	 (and disable-thread wl-summary-divide-thread-when-subject-changed))
 	expunged)
     (erase-buffer)
     (message "Re-scanning...")
@@ -1201,7 +1204,8 @@ Entering Folder mode calls the value of `wl-summary-mode-hook'."
 				     nil
 				   wl-use-scoring)))
 	     (wl-summary-rescan nil
-				(string-match "noscore" range))
+				(string-match "noscore" range)
+				(string-match "thread" range))
 	     (and msg (wl-summary-jump-to-msg msg))))
 	  ((string= range "mark")
 	   (let ((msg (wl-summary-message-number)))
@@ -3391,6 +3395,7 @@ Return non-nil if the mark is updated"
 			    "mark"
 			    "rescan"
 			    "rescan-noscore"
+			    "rescan-thread"
 			    "update"
 			    "update-entirely"
 			    "all"