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

[SAKAI Kiyotaka]

>> In article <19970825193215Z.furutaka at example.com>, Kazuyoshi Furutaka <furutaka at example.com> writes:

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

> わたしもそのように感じました。
> ＃出来れば、range が尋ねられない場合も...

そのような動作を行うためのパッチです。
-- 
酒井 清隆 (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:41:38
@@ -473,7 +473,7 @@
 	(mew-summary-folder-create folder))
       (if (and mew-summary-trace-directory (not (mew-folder-newsp folder)))
 	  (cd dir))
-      (mew-summary-ls)
+      (mew-summary-ls t t)
       )))
 
 (defun mew-summary-folder-create (folder)
===================================================================
RCS file: RCS/mew-scan.el,v
retrieving revision 1.2
diff -u -r1.2 mew-scan.el
--- mew-scan.el	1997/08/25 10:40:46	1.2
+++ mew-scan.el	1997/08/25 10:42:15
@@ -40,11 +40,12 @@
 			 mew-cs-scan)
   )
 
-(defun mew-summary-ls (&optional arg)
+(defun mew-summary-ls (&optional arg jump)
   (interactive "P")
   (let* ((folder (buffer-name)))
     (mew-summary-folder-cache-manage folder)
     (mew-mark-clean-up)
+    (if jump (goto-char (point-max)))
     (if (not (mew-folder-member folder mew-clean-up-buffers))
 	(setq mew-clean-up-buffers (cons folder mew-clean-up-buffers)))
     (if (or (interactive-p)