[Mew-dist 03464] mew-summary-goto-folder

[Akihiro Motoki]

元木です。

g (mew-summary-goto-folder) でフォルダを移動したときに、
「はじめてのフォルダに行くときだけ」カーソルが一番最後に行きますが、
それ以外のときでも一番最後に行ってほしいと思うことがあります。

具体的には、メーリングリストは直接フォルダにほりこんでいるので、
ＭＬの新着メールをチェックするときは、そのフォルダに移動したときに
カーソルが一番下に行ってくれないと、どれが新着メールが分かりません。

そこで提案なのですが、C-u g を行ったときには、
必ずカーソルが一番最後に行くようにしてはどうでしょうか。
C-u をつけない場合は、現在の仕様のままです。

以下に実現するパッチをつけます。

--- mew-summary.el.orig	Fri Dec 26 13:32:29 1997
+++ mew-summary.el	Thu Jan 22 03:20:39 1998
@@ -500,9 +500,9 @@
 ;;; Folder
 ;;;
 
-(defun mew-summary-goto-folder ()
+(defun mew-summary-goto-folder (&optional arg)
   "Go to the folder which you input."
-  (interactive)
+  (interactive "P")
   (let* ((folder (mew-input-folder mew-inbox-folder))
 	 (dir (mew-expand-folder folder))
 	 new-folder)
@@ -521,7 +521,7 @@
 	       (not (mew-folder-newsp folder))
 	       (not (mew-folder-imapp folder)))
 	  (cd dir))
-      (mew-summary-ls t new-folder)
+      (mew-summary-ls t (or arg new-folder))
       )))
 
 (defun mew-summary-folder-create (folder)

-- 
━━━━━━━………‥・・ ・ ・・　．
  元木 顕弘 / Akihiro Motoki      　　・
　E-mail: motoki at example.com  　・
  http://www.hal.t.u-tokyo.ac.jp/~motoki/ ‘  ・・ ‥…━━☆