[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 メーリングリストの案内