[Mew-dist 1623] mew-summary-ls

SAKAI Kiyotaka ksakai at example.com
1997年 8月 25日 (月) 14:57:42 JST


summary mode で s (mew-summary-ls) を実行したときは、point-max に 飛ん
でから range を聞かれますが、これだと間違って s に触れたときに C-g で
cancel しても point-max に飛んでしまって嬉しくないので、以下のパッチの
ように変更したらどうでしょうか。
-- 
酒井 清隆 (E-mail: ksakai at example.com)

-------------- 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 05:53:35
@@ -45,18 +45,20 @@
   (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)))
+	  (goto-char (point-max))
+	  (mew-summary-scan-body mew-prog-imls 
+				 'mew-summary-mode
+				 folder
+				 mew-cs-scan
+				 range
+				 )))
     ))
 
 ;;


Mew-dist メーリングリストの案内