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