[Mew-dist 11959] Re: 1.95b16

[Shuichi KITAGUCHI ( 北口修一 )]

From: Kazu Yamamoto (山本和彦) <kazu at example.com>
Subject: [Mew-dist 11947] 1.95b16
Date: Tue, 28 Dec 1999 17:07:29 +0900

北口です。いくつかパッチをば。

ひとつめ:

かず> mew-config-alist には

かず> 	"user", "name", "mail-domain", "cc", "fcc", "dcc", "reply-to",
かず> 	"organization", "nttp-server", "smtp-server", "msgid-domain",
かず> 	"inbox-folder".

かず> が設定できます。ただし、"organization", "nttp-server", "smtp-server" 
かず> は現在効果がありません。

かず> "from" は廃止しました。以下のルールにより生成されます。
...

  From: Shuichi KITAGUCHI (北口修一) <kit at example.com>
                          ~~~~~~~~~~
がやりたくなったので、"comment" を追加してみました。

ふたつめ:

かず> 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 から生成する
というのではマズいでしょうか?  たぶん大丈夫だと思うのでそうしてみました。

みっつめ:

かず> Draft モード：
かず> 	C-cC-o:: その Draft モードの case を指定
かず>		-> モードラインは (Draft case) となる

...なりませんでした(^^;
それと、"Config value :" とだけ訊かれるのがわかりにくかったので、
"Output Config value :" などとしてみました(こんなのばっか...)。
ただ、From: などは C-cC-o で変更しても有効にならないようですが、
そこまでは(まだ)手を出していません。


--
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.3
diff -c -r1.1.1.3 mew-config.el
*** mew-config.el	1999/12/28 13:08:04	1.1.1.3
--- mew-config.el	1999/12/30 16:40:59
***************
*** 121,129 ****
  (defvar mew-inbox-folders nil)
  
  (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))
!   (if mew-generate-from-list (setq mew-from-list nil))
    (setq mew-inbox-folders nil)
    (setq mew-config-cases (mapcar (function car) mew-config-alist))
    (or (member mew-config-default mew-config-cases)
--- 121,132 ----
  (defvar mew-inbox-folders nil)
  
  (defun mew-config-setup ()
!   (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))
    (setq mew-inbox-folders nil)
    (setq mew-config-cases (mapcar (function car) mew-config-alist))
    (or (member mew-config-default mew-config-cases)
***************
*** 164,169 ****
--- 167,175 ----
    (or (mew-cfent-value case "name")
        (user-full-name)))
  
+ (defun mew-comment (&optional case)
+   (mew-cfent-value case "comment"))
+ 
  (defun mew-mail-domain (&optional case)
    (or (mew-cfent-value case "mail-domain")
        (car mew-mail-domain-list)
***************
*** 178,185 ****
  
  (defun mew-from (&optional case)
    (let ((name (mew-name case))
! 	(mail-address (mew-mail-address case)))
!     (or (and name mail-address (format "%s <%s>" name mail-address))
  	(car mew-from-list)
  	mew-from
  	user-mail-address)))
--- 184,195 ----
  
  (defun mew-from (&optional case)
    (let ((name (mew-name case))
! 	(mail-address (mew-mail-address case))
! 	(comment (mew-comment case)))
!     (or (and name mail-address
! 	     (if comment
! 		 (format "%s (%s) <%s>" name comment mail-address)
! 	       (format "%s <%s>" name mail-address)))
  	(car mew-from-list)
  	mew-from
  	user-mail-address)))
***************
*** 236,247 ****
  (defun mew-config-set-input ()
    "Set the config value for input."
    (interactive)
!   (setq mew-config-input (mew-input-config mew-config-input)))
  
  (defun mew-config-set-output ()
    "Set the config value for output."
    (interactive)
!   (setq mew-config-output (mew-input-config mew-config-output)))
  
  (defun mew-summary-set-config (&optional output)
    (interactive "P")
--- 246,257 ----
  (defun mew-config-set-input ()
    "Set the config value for input."
    (interactive)
!   (setq mew-config-input (mew-input-config mew-config-input "Input")))
  
  (defun mew-config-set-output ()
    "Set the config value for output."
    (interactive)
!   (setq mew-config-output (mew-input-config mew-config-output "Output")))
  
  (defun mew-summary-set-config (&optional output)
    (interactive "P")
***************
*** 251,257 ****
       (mew-config-set-input))
     (mew-summary-mode-line (current-buffer))))
  
! (fset 'mew-draft-set-config (symbol-function 'mew-config-set-output))
  
  (provide 'mew-config)
  
--- 261,271 ----
       (mew-config-set-input))
     (mew-summary-mode-line (current-buffer))))
  
! (defun mew-draft-set-config (&optional output)
!   (interactive "P")
!   (setq mew-draft-buffer-config
! 	(mew-input-config mew-draft-buffer-config "Draft"))
!   (mew-draft-mode-name))
  
  (provide 'mew-config)
  
Index: mew-minibuf.el
===================================================================
RCS file: /usr/local/CVS/mew/mew-minibuf.el,v
retrieving revision 1.1.1.5
diff -c -r1.1.1.5 mew-minibuf.el
*** mew-minibuf.el	1999/12/28 13:08:06	1.1.1.5
--- mew-minibuf.el	1999/12/30 16:40:59
***************
*** 332,342 ****
  ;;; Config
  ;;;
  
! (defun mew-input-config (default)
    (if (null default) (setq default mew-config-default))
    (let ((config))
      (setq config (completing-read
! 		  (format "Config value (%s): " default)
  		  (mapcar (function (lambda (x) (cons x x))) mew-config-cases)
  		  nil t nil))
      (if (string= config "") default config)))
--- 332,342 ----
  ;;; Config
  ;;;
  
! (defun mew-input-config (default msg)
    (if (null default) (setq default mew-config-default))
    (let ((config))
      (setq config (completing-read
! 		  (format "%s Config value (%s): " msg default)
  		  (mapcar (function (lambda (x) (cons x x))) mew-config-cases)
  		  nil t nil))
      (if (string= config "") default config)))