[Mew-dist 1650] Re: mew-summary-ls (2)

[SAKAI Kiyotaka]

>> In article <19970825192307L.kazu at example.com>, Kazu Yamamoto (山本和彦) <Kazu at example.com> writes:

> 試しましたが、1 つだけ嫌な点があります。"g" で *新しく* folder のバッファー
> ができ、かつ、range を聞く場合は、一番下で聞いてほしいです。

済いません、今送ったパッチでは *新しく* というのを見落していました。

既に開いている folder は、新しいメールが入ってこない限り point の移動
は行わない方がいいということですね。

だとすると mew-summary.el に対するパッチの方はこっちを使って下さい。
-- 
酒井 清隆 (E-mail: ksakai at example.com)


===================================================================
RCS file: RCS/mew-summary.el,v
retrieving revision 1.2
diff -u -r1.2 mew-summary.el
--- mew-summary.el	1997/08/25 10:39:55	1.2
+++ mew-summary.el	1997/08/25 10:50:20
@@ -465,15 +465,17 @@
 (defun mew-summary-goto-folder ()
   (interactive)
   (let* ((folder (mew-input-folder mew-inbox-folder))
-	 (dir (mew-expand-folder folder)))
+	 (dir (mew-expand-folder folder))
+	 new-folder)
     (if (not (or (mew-folder-newsp folder) (file-directory-p dir)))
         (message "No such folder %s" folder)
       (if (get-buffer folder)
 	  (switch-to-buffer folder)
-	(mew-summary-folder-create folder))
+	(mew-summary-folder-create folder)
+	(setq new-folder t))
       (if (and mew-summary-trace-directory (not (mew-folder-newsp folder)))
 	  (cd dir))
-      (mew-summary-ls)
+      (mew-summary-ls t new-folder)
       )))
 
 (defun mew-summary-folder-create (folder)