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

[SAKAI Kiyotaka]

>> In article <19970825174056F.ksakai at example.com>, SAKAI Kiyotaka <ksakai at example.com> writes:

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

たびたび済いません。

無条件に point を移動しないというのはそれはそれで使いにくいので、

・prefix argument を付けたときだけ buffer の末尾に飛んで行くのを止める。
・"s" は mew-input-range のときに C-g で cancel をすれば、point の移動
  は行われない。

という仕様でパッチを作り直しました。

1番目と2番目のパッチは両方破棄して、このパッチを当てて下さい。
-- 
酒井 清隆 (E-mail: ksakai at example.com)


===================================================================
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 09:14:28
@@ -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))
+	(or arg (goto-char (point-max)))
 	(mew-summary-scan-body mew-prog-imls
 			       'mew-summary-mode
 			       mew-inbox-folder
@@ -33,30 +33,33 @@
 	      (sit-for 0.1)) ;; to flush
 	  (while mew-summary-buffer-process (sit-for 1)))
 	))
-  (goto-char (point-max))
+  (or 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 (not (mew-folder-member folder mew-clean-up-buffers))
 	(setq mew-clean-up-buffers (cons folder mew-clean-up-buffers)))
     (if (or (interactive-p)
 	    (mew-folder-newsp folder)
 	    (and mew-summary-cache-use
 		 (mew-summary-folder-dir-newp)))
-	(mew-summary-scan-body mew-prog-imls 
-			       'mew-summary-mode
-			       folder
-			       mew-cs-scan
-			       (mew-input-range folder)))
+	(let ((range (mew-input-range folder)))
+	  (or arg (goto-char (point-max)))
+	  (mew-summary-scan-body mew-prog-imls 
+				 'mew-summary-mode
+				 folder
+				 mew-cs-scan
+				 range
+				 ))
+      (or arg (goto-char (point-max))))
     ))
 
 ;;