2007年12月25日

[mew-dist 28005] sort is broken

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

--
白井秀行 (mailto:shirai@xxxxx)

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)

投稿者 xml-rpc : 2007年12月25日 12:15
役に立ちました?:
過去のフィードバック 平均:(0) 総合:(0) 投票回数:(0)
本記事へのTrackback: http://hoop.euqset.org/blog/mt-tb2006.cgi/67969
トラックバック
コメント
コメントする




画像の中に見える文字を入力してください。