[Mew-dist 1635] mew-summary-ls (2)

[SAKAI Kiyotaka]

さっきの mew-summary-ls のパッチは、mew-summary-goto-folder のときに
folders の末尾へ飛んでいかないという問題があったので、破棄して下さい。

それでこの仕様について考えてみましたのですが、mew-summary-get,
mew-summary-ls は mew では background で実行してくれるので、とりあえず 
"i" で mew-summary-get を裏で実行させつつ今読んでいるメールを読み続け
ていたいと思うことが多く、そうなると自動的に buffer の末尾へ飛んでいく
のは嬉しくないと思うのですが、どうでしょうか。

この線でパッチを作ってみました。

# mew-sumamry-ls の方は、先のパッチも当てて scan が発生したときは file 
# の末尾に飛ぶようにするという仕様も考えられると思いますが。
-- 
酒井 清隆 (E-mail: ksakai at example.com)

-------------- next part --------------
===================================================================
RCS file: RCS/mew-summary.el,v
retrieving revision 1.3
diff -u -r1.3 mew-summary.el
--- mew-summary.el	1997/08/25 06:53:07	1.3
+++ mew-summary.el	1997/08/25 08:08:30
@@ -472,7 +472,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)
       )))
 
 (defun mew-summary-folder-create (folder)
-------------- next part --------------
===================================================================
RCS file: RCS/mew-scan.el,v
retrieving revision 1.1
diff -u -r1.1 mew-scan.el
--- mew-scan.el	1997/08/25 05:52:03	1.1
+++ mew-scan.el	1997/08/25 08:11:58
@@ -14,13 +14,13 @@
 
 (require 'mew)
 
-(defun mew-summary-get ()
-  (interactive)
+(defun mew-summary-get (&optional arg)
+  (interactive "P")
   (mew-summary-folder-cache-manage mew-inbox-folder)
   (if (and mew-summary-cache-use (mew-summary-folder-dir-newp))
       (progn
 	;; scan the gap
-	(goto-char (point-max))
+	(if arg (goto-char (point-max)))
 	(mew-summary-scan-body mew-prog-imls
 			       'mew-summary-mode
 			       mew-inbox-folder
@@ -33,19 +33,19 @@
 	      (sit-for 0.1)) ;; to flush
 	  (while mew-summary-buffer-process (sit-for 1)))
 	))
-  (goto-char (point-max))
+  (if arg (goto-char (point-max)))
   (mew-summary-scan-body mew-prog-imget
 			 'mew-summary-mode
 			 mew-inbox-folder
 			 mew-cs-scan)
   )
 
-(defun mew-summary-ls ()
-  (interactive)
+(defun mew-summary-ls (&optional arg)
+  (interactive "P")
   (let* ((folder (buffer-name)))
     (mew-summary-folder-cache-manage folder)
     (mew-mark-clean-up)
-    (goto-char (point-max))
+    (if arg (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)