[mew-dist 28005] sort is broken

[Hideyuki SHIRAI ( 白井秀行 )]

sort が壊れているようなのでパッチ。

-- 
白井秀行 (mailto:shirai at example.com)

Index: mew-sort.el
===================================================================
RCS file: /cvsmew/mew/mew-sort.el,v
retrieving revision 1.93
diff -u -r1.93 mew-sort.el
--- mew-sort.el	23 Dec 2007 12:46:55 -0000	1.93
+++ mew-sort.el	25 Dec 2007 03:14:45 -0000
@@ -184,7 +184,7 @@
 	 (type (cdr key-type))
 	 (funcs (assoc type mew-sort-switch))
 	 (key (concat (capitalize (car key-type)) ":")))
-    (cons key (cdr funcs))))
+    `(,type ,key ,@(cdr funcs))))
 
 (defun mew-summary-sort-body (folder arg)
   (let ((win (selected-window))
@@ -201,7 +201,7 @@
     ;;
     ;; Asking a sort key after range
     ;;
-    (mew-set '(key func1 func2) (mew-sort-ask-key folder))
+    (mew-set '(type key func1 func2) (mew-sort-ask-key folder))
     ;;
     (if arg
 	(message "Sorting %s: %s..." folder range)