[Mew-dist 1631] directory tracing (Re: Some about Mew)

[SAKAI Kiyotaka]

>> In article <199707021447.XAA26613 at example.com>, taca at example.com (Takahiro Kambe) writes:

>> * フォルダに移動したときは、カレントディレクトリもそこに移してほ
>> しいかな、などと思ったりもする。

> mh-eと同じになったはずなのですが、パッチを当てて使ってみると移動し
> ないことに慣れ切った自分に気がつきました。このあたりは変数で設定を
> 制御できると良いと思うのですが、必要ないでしょうか?

M-x mew のときに directory の trace が行われなかったのを修正するのと、
上に書かれているように変数で制御できるようにするためのパッチです。

変数名は、mew-summary-trace-directory となっています。
-- 
酒井 清隆 (E-mail: ksakai at example.com)

-------------- next part --------------
===================================================================
RCS file: RCS/mew.el,v
retrieving revision 1.1
diff -u -r1.1 mew.el
--- mew.el	1997/08/25 06:36:33	1.1
+++ mew.el	1997/08/25 06:44:28
@@ -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")
@@ -570,6 +573,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)
     )
   )
-------------- next part --------------
===================================================================
RCS file: RCS/mew-summary.el,v
retrieving revision 1.2
diff -u -r1.2 mew-summary.el
--- mew-summary.el	1997/08/25 06:25:00	1.2
+++ mew-summary.el	1997/08/25 06:43:58
@@ -470,7 +470,7 @@
       (if (get-buffer folder)
 	  (switch-to-buffer folder)
 	(mew-summary-folder-create folder))
-      (or (mew-folder-newsp folder)
+      (if (and mew-summary-trace-directory (not (mew-folder-newsp folder)))
 	  (cd dir))
       (mew-summary-ls)
       )))