From: hmurata <hmurata>
Date: Sat, 24 Sep 2005 09:56:03 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-sort): Fixed the last change.
X-Git-Tag: wl-2_15_3~51
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6002b1186d8ad1620e58f35e5c5acb77317a136c;p=elisp%2Fwanderlust.git

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

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  <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
--- 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