[Mew-dist 2142] mew-summary-auto-refile patch(?)

[Daisuke Sato]

佐藤@東邦大と申します。

infoで「あまりにも恐しい」と書かれているものの、私はauto-refileをよく使
わせていただいております。

メールを読んでいる最中に別のバッファに切り替えていて、そこであやまって
auto-refileをやると、まるで関係ないバッファをrefileしようとします。
(実害はないはずだけど)

まちがってやる方が悪いといわれればそれまでですが、なんとなく気持ち悪いの
で、バッファのモードを見てsummaryでなければ実行しないようにくるんでみま
した。

本当は手近なsummaryバッファへ飛んでrefileすればいいのでしょうが、そこま
ではできません。
(パッチ中の英語は本当に正しいのかわかりません)

===
のーみそ、くすぐっちゃうよ

ばーい 佐藤 大輔/densuke at example.com
                 (CQD00116 at example.com)
Application/MS-* のマルチパートが付いたメールは読みません。


-------------- next part --------------
--- mew-refile.el.orig	Fri Sep 19 10:44:44 1997
+++ mew-refile.el	Fri Sep 19 10:44:46 1997
@@ -579,7 +579,8 @@
 
 (defun mew-summary-auto-refile ()
   (interactive)
-  (let ((mew-analysis nil) 
+  (if (equal major-mode 'mew-summary-mode)
+      (progn (let ((mew-analysis nil) 
 	(lines (count-lines (point-min) (point-max)))
 	(line 1))
     (message "Auto refiling ...")
@@ -592,6 +593,8 @@
 		 (/ (* 100 line) lines))
 	(setq line (1+ line)))
       (message "Auto refileing ... done"))))
+    (progn (message "only summary buffer can use mew-summary-auto-refile!")
+	   )))
 
 ;;
 ;; "mx" extension