[Mew-dist 04378] small patch for mew-summary-refile-refile

[Shun-ichi GOTO]

後藤です

+inboxからまとめてrefileするときに m o (mew-summary-mark-refile) を
多用するのですが、このとき、refile後、常にカーソルはバッファの末尾に
移動してしまいます。
自分の使い方としては、コマンドを発行したときのその位置に戻って
ほしいので、そういう変更をしてみました。


--- mew-refile.el.orig	Tue Apr 07 05:07:54 1998
+++ mew-refile.el	Wed Apr 08 04:15:56 1998
@@ -705,6 +705,7 @@
 	  (mew-refile-last-folder nil)
 	  (line 1))
       (message "Mark refiling ...")
+      (save-excursion
       (save-window-excursion
 	(goto-char (point-min))
 	(while (not (eobp))
@@ -715,7 +716,7 @@
 	      (message "Mark refiling ... %s%%"
 		       (/ (* 100 line) lines)))
 	  (setq line (1+ line)))
-	(message "Mark refiling ... done")))))
+	(message "Mark refiling ... done"))))))
 
 ;(defun mew-summary-mark-refile ()
 ;  (interactive)



元の仕様がお好みの方の御意見もお聞かせください。

--- Regards,
 Shun-ichi Goto  <gotoh at example.com>
   R&D Group, TAIYO Corp., Tokyo, JAPAN