[mew-dist 23995] Message of mew-input-sort-key

[Takashi P.KATOH]

以前 region でソートしようとしたとき、C-u を押したつもりだっ
たのに実は押されてなくて全体がソートされるというかなり悲しい
目にあったので、key を聞くときに region かどうか分かるような
表示にするパッチ (for Mew version 3.3) を作ってみました。

C-u S => "Sort region by (subject)?:"
S     => "Sort by (subject)?:"

のようになります。

-- 
かとぺ / 加藤 貴司
-------------- next part --------------
diff -ur mew-3.3,orig/mew-minibuf.el mew-3.3/mew-minibuf.el
--- mew-3.3,orig/mew-minibuf.el	Fri Aug 29 16:40:59 2003
+++ mew-3.3/mew-minibuf.el	Fri Aug 29 16:40:22 2003
@@ -683,12 +683,15 @@
           nil)
       t)))
 
-(defun mew-input-sort-key (key)
+(defun mew-input-sort-key (key region)
   (mew-input-clear)
   (let* ((mew-input-complete-function 'mew-complete-sort-key)
 	 (mew-input-exit-minibuffer-function 'mew-input-sort-key-check)
 	 (field:mode (read-from-minibuffer
-		      (format "Sort by (%s)?: " key)
+		      (concat
+		       "Sort "
+		       (if region "region " nil)
+		       (format "by (%s)?: " key))
 		      ""
 		      mew-input-map
 		      nil 
diff -ur mew-3.3,orig/mew-sort.el mew-3.3/mew-sort.el
--- mew-3.3,orig/mew-sort.el	Thu Jan 16 20:03:32 2003
+++ mew-3.3/mew-sort.el	Fri Aug 29 16:40:16 2003
@@ -200,7 +200,7 @@
     ;;
     (let* ((sort-key (or (cdr (assoc folder mew-sort-default-key-alist))
 			 mew-sort-default-key))
-	   (key-type (mew-input-sort-key sort-key)))
+	   (key-type (mew-input-sort-key sort-key arg)))
       (setq type (cdr key-type))
       (setq key (concat (capitalize (car key-type)) ":")))
     ;;