From: 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 + + * 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 * 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"