* wl-summary.el (wl-summary-sort): Fixed the last change.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 3576fd3..63c2bb1 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,7 @@
 2005-09-24  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
+       * 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 (file)
--- 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