[Mew-dist 03539] Re: IMAP Configration

SAKAI Kiyotaka ksakai at example.com
1998年 1月 29日 (木) 10:32:26 JST


>> In article <19980113220049D.wkenji at example.com>, 若宮賢二 <wkenji at example.com> writes:

>   .im/Config に InboxFolder=%inbox と書いておけば、たしかに Mew の初期
>   フォルダが %inbox になります。が、Mew は C-u M-x mew で起動しないと
>   必ず imget を動かそうとするので要注意です。私は InboxFolder は 
>   +inbox のままにしてあり、IMAP フォルダを覗くときは Mew の起動後に g 
>   で %hoge を指定するようにしています。

やっぱり、M-x mew のときに get するかどうかはオプションで指定できるよ
うにしません?

local で使う分にも imget のオーバーヘッドは大きいので、自分でも get は
明示的に実行したくなってきました。

とりあえず変数名は mew-auto-get という名前になっていますが、もっといい
名前があれば変更して下さい。
-- 
酒井 清隆 (E-mail: ksakai at example.com)

-------------- next part --------------
Index: mew-summary.el
===================================================================
RCS file: /home/cvsroot/mew-1.93b10/mew-summary.el,v
retrieving revision 1.2
diff -u -r1.2 mew-summary.el
--- mew-summary.el	1998/01/29 01:17:34	1.2
+++ mew-summary.el	1998/01/29 01:17:51
@@ -500,10 +500,10 @@
 ;;; Folder
 ;;;
 
-(defun mew-summary-goto-folder (&optional arg)
+(defun mew-summary-goto-folder (&optional arg folder)
   "Go to the folder which you input."
-  (interactive "P")
-  (let* ((folder (mew-input-folder mew-inbox-folder))
+  (interactive "Ps")
+  (let* ((folder (or folder (mew-input-folder mew-inbox-folder)))
 	 (dir (mew-expand-folder folder))
 	 new-folder)
     (if (and (mew-folder-imapp folder) (not (file-directory-p dir)))
Index: mew-vars.el
===================================================================
RCS file: /home/cvsroot/mew-1.93b10/mew-vars.el,v
retrieving revision 1.1.1.1
diff -u -r1.1.1.1 mew-vars.el
--- mew-vars.el	1998/01/29 00:27:02	1.1.1.1
+++ mew-vars.el	1998/01/29 01:10:33
@@ -327,6 +327,9 @@
 ;; Summary mode
 ;;
 
+(defvar mew-auto-get t
+  "*If non-nit, do mew-summary-get when invoked.")
+
 (defvar mew-analysis t
   "*MIME syntax analysis and cache when non-nil.
    Skip syntax analysis when nil.")
Index: mew.el
===================================================================
RCS file: /home/cvsroot/mew-1.93b10/mew.el,v
retrieving revision 1.1.1.1
diff -u -r1.1.1.1 mew.el
--- mew.el	1998/01/29 00:27:02	1.1.1.1
+++ mew.el	1998/01/29 01:25:30
@@ -230,7 +230,10 @@
   (if (null mew-mail-path) (mew-init))
   (if arg
       (mew-summary-goto-folder) ;; C-u
-    (mew-summary-get)
+    (if mew-auto-get
+	(mew-summary-get)
+      (message (format "Go to %s folder" mew-inbox-folder))
+      (mew-summary-goto-folder nil mew-inbox-folder))
     )
   )
 


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