From 6002b1186d8ad1620e58f35e5c5acb77317a136c Mon Sep 17 00:00:00 2001 From: hmurata Date: Sat, 24 Sep 2005 09:56:03 +0000 Subject: [PATCH] * wl-summary.el (wl-summary-sort): Fixed the last change. --- wl/ChangeLog | 2 ++ wl/wl-summary.el | 25 +++++++++++++------------ 2 files changed, 15 insertions(+), 12 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 3576fd3..63c2bb1 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,5 +1,7 @@ 2005-09-24 Hiroya Murata + * wl-summary.el (wl-summary-sort): Fixed the last change. + * wl-summary.el (wl-summary-sort-function-from-spec): New function. (wl-summary-sort-messages): Ditto. (wl-summary-rescan): Use it. diff --git a/wl/wl-summary.el b/wl/wl-summary.el index c55f5db..5b3bf6a 100644 --- a/wl/wl-summary.el +++ b/wl/wl-summary.el @@ -1914,18 +1914,19 @@ This function is defined for `window-scroll-functions'" (defun wl-summary-sort (reverse) "Sort summary lines into the selected order; argument means descending order." (interactive "P") - (wl-summary-rescan - (wl-completing-read-multiple - (format "%s by (%s): " - (if reverse "Reverse sort" "Sort") - (symbol-name wl-summary-default-sort-spec)) - (nconc - (mapcar (lambda (spec) (list (symbol-name spec))) - wl-summary-sort-specs) - (mapcar (lambda (spec) (list (concat "!" (symbol-name spec)))) - wl-summary-sort-specs)) - nil t nil nil (symbol-name wl-summary-default-sort-spec)) - reverse)) + (let ((spec (wl-completing-read-multiple + (format "%s by (%s): " + (if reverse "Reverse sort" "Sort") + (symbol-name wl-summary-default-sort-spec)) + (nconc + (mapcar (lambda (spec) (list (symbol-name spec))) + wl-summary-sort-specs) + (mapcar (lambda (spec) (list (concat "!" (symbol-name spec)))) + wl-summary-sort-specs)) + nil t))) + (wl-summary-rescan + (if (equal spec '("")) (symbol-name wl-summary-default-sort-spec) spec) + reverse))) (defun wl-summary-get-available-flags (&optional include-specials) (let ((flags (elmo-uniq-list -- 1.7.10.4