[Mew-dist 04384] mew-summary-pack again^2 (was Re: feature missing in mew/im ?)

[OKUNISHI Fujikazu]

>>> "Fri, 10 Apr 1998 10:39:30 +0900 (JST)" に発信されたメッセージ
>>> <199804100136.KAA15030 at example.com> にて
>>> "師" == NAKAGAWA Takayuki <takayuki at example.com> が仰るには..

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

師> ありがとうございます。早速当てました。ついでに気になっていた 
師> mew-summary-sort にもパッチをあてました。mew-summary-sort 自体引き
師> 数 (interactive "P") を既にとっているので mew-summary-sort-subr を
師> 直接書替えて常に all にしました。

今、mew-scan.el を見てたら引き数が（余計|間違い）であることに気づきま
した。済みません。mew-sort のほうも同じですね。

;; 所詮１分パッチは、それだけのものでしかないです。。

--- mew-summary.el.orig	Thu Apr  9 22:33:44 1998
+++ mew-summary.el	Sun Apr 12 21:22:40 1998
@@ -1546,9 +1546,9 @@
 ;;; Packing
 ;;;
 
-(defun mew-summary-pack ()
+(defun mew-summary-pack (&optional arg)
   "Pack messages and list them up again."
-  (interactive)
+  (interactive "P")
   (let ((folder (buffer-name)))
     (if (not (mew-summary-exclusive-p))
 	()
@@ -1566,7 +1566,8 @@
 			       'mew-summary-mode
 			       folder
 			       mew-cs-scan
-			       (mew-input-range folder))
+			       (if arg
+			         (mew-input-range folder)))
 	))
     ))
 

[ange-ftp.el]

> ;;; -----------------------------------------------------------
> ;;; Hall of fame:
> ;;; -----------------------------------------------------------

> ;;; Thanks to Nakagawa Takayuki for many good ideas, filename-completion, help
> ;;; with file-name expansion, efficiency worries, stylistic concerns and many
> ;;; bugfixes.

;; という技量をお持ちなので、OS/2 サポートは全て引取って貰えるハズと確
;; 信しております(^_^;; >中川師

--ふ＠ゴミ撒き