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

SAKAI Kiyotaka ksakai at example.com
1997年 8月 25日 (月) 19:06:46 JST


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

> (a) 1631、1635 に相当するパッチを 1.89+ に対して作って下さい。> 酒井さん

作成しました。
-- 
酒井 清隆 (E-mail: ksakai at example.com)


===================================================================
RCS file: RCS/mew.el,v
retrieving revision 1.1
diff -u -r1.1 mew.el
--- mew.el	1997/08/25 09:59:35	1.1
+++ mew.el	1997/08/25 09:59:54
@@ -110,6 +110,9 @@
  "*Action to delete MIME draft directory after sending a multipart letter.
 Proper value is 'ask', 'delete', and 'retain'.")
 
+(defvar mew-summary-trace-directory t
+  "*If non-nil, trace directory when mew-summary-goto-folder.")
+
 (defvar mew-summary-recenter-p t)
 (defvar mew-break-pages t)
 (defvar mew-page-delimiter "^\^L")
@@ -571,6 +574,9 @@
     (if (get-buffer mew-inbox-folder)
 	(switch-to-buffer mew-inbox-folder)
       (mew-summary-folder-create mew-inbox-folder))
+    (if (and mew-summary-trace-directory
+	     (not (mew-folder-newsp mew-inbox-folder)))
+	(cd (mew-expand-folder mew-inbox-folder)))
     (mew-summary-get)
     )
   )
===================================================================
RCS file: RCS/mew-summary.el,v
retrieving revision 1.1
diff -u -r1.1 mew-summary.el
--- mew-summary.el	1997/08/25 09:59:40	1.1
+++ mew-summary.el	1997/08/25 09:59:48
@@ -471,7 +471,8 @@
       (if (get-buffer folder)
 	  (switch-to-buffer folder)
 	(mew-summary-folder-create folder))
-      (if (not (mew-folder-newsp folder)) (cd dir))
+      (if (and mew-summary-trace-directory (not (mew-folder-newsp folder)))
+	  (cd dir))
       (mew-summary-ls)
       )))
 
===================================================================
RCS file: RCS/mew-scan.el,v
retrieving revision 1.1
diff -u -r1.1 mew-scan.el
--- mew-scan.el	1997/08/25 09:59:43	1.1
+++ mew-scan.el	1997/08/25 09:59:51
@@ -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,15 +33,15 @@
 	      (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)
@@ -53,12 +53,13 @@
 		 (not (mew-folder-newsp folder))
 		 (mew-summary-folder-dir-newp)))
 	(let ((range (mew-input-range folder)))
-	  (goto-char (point-max))
+	  (or arg (goto-char (point-max)))
 	  (mew-summary-scan-body mew-prog-imls 
 				 'mew-summary-mode
 				 folder
 				 mew-cs-scan
-				 range)))
+				 range))
+      (or arg (goto-char (point-max))))
     ))
 
 ;;



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