[Mew-dist 04381] Re: feature missing in mew/im ?

[OKUNISHI Fujikazu]

>>> "Thu, 02 Apr 1998 11:05:12 +0900 (JST)" に発信されたメッセージ
>>> <199804020202.LAA05722 at example.com> にて
>>> "師" == NAKAGAWA Takayuki <takayuki at example.com> が仰るには..

師> (2) mew-summary-pack で list する時に update 等を聞かれるのはなん
師> とか なりませんか。事実上 all しか役に立たないと思うのですが（それ
師> とも 何を選んでも同じですか）。

ふ> これは僕も昔からそう思ってたりするんだけどどうでもいいので放ってま
ふ> した。もしなんだったら mew-dist に振ってみてください(^_^;

発狂寸前の逃避ネタということで、衝動的にいじってみました(^_^;

"C-u" つきで実行すると従来通り range を聞きますが、"O" だけだと pack 
したら何も聞かずに全 article の scan までやります（逆のほうが受けがい
いのかな）。

--ふ

--- mew-summary.el.orig	Thu Apr  9 22:33:44 1998
+++ mew-summary.el	Thu Apr  9 22:32:46 1998
@@ -1546,9 +1546,9 @@
 ;;; Packing
 ;;;
 
-(defun mew-summary-pack ()
+(defun mew-summary-pack (arg)
   "Pack messages and list them up again."
-  (interactive)
+  (interactive "P")
   (let ((folder (buffer-name)))
     (if (not (mew-summary-exclusive-p))
 	()
@@ -1566,7 +1566,9 @@
 			       'mew-summary-mode
 			       folder
 			       mew-cs-scan
-			       (mew-input-range folder))
+			       (if (null arg)
+			         (list "all" folder)
+			         (mew-input-range folder)))
 	))
     ))