[Mew-dist 04378] small patch for mew-summary-refile-refile
Shun-ichi GOTO
gotoh at example.com
1998年 4月 8日 (水) 13:37:27 JST
後藤です
+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
Mew-dist メーリングリストの案内