(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 (file)
--- 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 (file)
--- 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"