[Mew-dist 12103] Re: 1.95b16

[Shuichi KITAGUCHI ( 北口修一 )]

From: Kazu Yamamoto (山本和彦) <kazu at example.com>
Subject: [Mew-dist 12084] Re: 1.95b16
Date: Thu, 20 Jan 2000 13:21:04 +0900

> かず> mew-generate-{mail-address,mail-domain,from}-list を t にすると、それ
> かず> ぞれ mew-{mail-address,mail-domain,from}-list を mew-config-alist から
> かず> 生成します。
> 
> これ、mew-mail-address-list が nil の時に mew-config-alist から生成する
> というのではマズいでしょうか?  たぶん大丈夫だと思うのでそうしてみました。

かず> なぜ *generate* を用意したか、ようやく思い出しました。

かず> Mew を起動している Emacs で mew-config-alist を編集して 
かず> mew-status-update したときに、この方法ではうまくいきませんよね？(Mew 
かず> を起動するときに、それらの変数が nil じゃなくなるから。)

なるほど、確かに。
では、こんな感じにするのはどうでしょうか?

もし自動的に生成したくない場合は、~/.mew(.el) で mew-generate-*-list を
nil にします。

# 自動的に生成したい ＞  自動的に生成したくない  という考えです。


--
Shuichi Kitaguchi <kit at example.com>
-------------- next part --------------
Index: mew-config.el
===================================================================
RCS file: /usr/local/CVS/mew/mew-config.el,v
retrieving revision 1.1.1.4
diff -c -r1.1.1.4 mew-config.el
*** mew-config.el	2000/01/20 13:59:39	1.1.1.4
--- mew-config.el	2000/01/21 13:24:40
***************
*** 120,125 ****
--- 120,130 ----
  (defvar mew-config-cases nil)
  (defvar mew-inbox-folders nil)
  
+ (defun mew-config-init ()
+   (if (not mew-mail-address-list) (setq mew-generate-mail-address-list t))
+   (if (not mew-mail-domain-list) (setq mew-generate-mail-domain-list t))
+   (if (not mew-from-list) (setq mew-generate-from-list t)))
+ 
  (defun mew-config-setup ()
    (if mew-generate-mail-address-list (setq mew-mail-address-list nil))
    (if mew-generate-mail-domain-list (setq mew-mail-domain-list nil))
Index: mew.el
===================================================================
RCS file: /usr/local/CVS/mew/mew.el,v
retrieving revision 1.1.1.23
diff -c -r1.1.1.23 mew.el
*** mew.el	2000/01/20 13:59:43	1.1.1.23
--- mew.el	2000/01/21 13:24:40
***************
*** 146,151 ****
--- 146,152 ----
  	  (or no-dir (mew-temp-dir-init))
  	  (mew-mark-init)
  	  (mew-refile-init)
+ 	  (mew-config-init)
  	  (mew-rotate-log-files mew-smtp-log-file))
        (error
         (set-buffer mew-buffer-hello)