[Mew-dist 17534] Re: auto-detect CT by X-Mailer (test).

[Kazu Yamamoto ( 山本和彦 )]

From: Tatsuya Kinoshita <tats at example.com>
Subject: [Mew-dist 17522] Re: auto-detect CT by X-Mailer (test).

> caseを使わない場合に、互換のための変数mew-mail-address, mew-fromを
> 頼らずに済むよう、変数mew-user, mew-name, mew-mail-domainを定義して
> しまう方が、すっきりしそうな気もします。

この程度にしかなりませんが、やる価値はありますか？

--かず

*** mew-config.el	Fri May 25 13:11:37 2001
--- mew-config.el.new	Fri May 25 16:17:34 2001
***************
*** 86,104 ****
  ;;;
  
  (defun mew-user (&optional case)
!   (mew-cfent-value case "user" (user-login-name)))
  
  (defun mew-name (&optional case)
!   (mew-cfent-value case "name" (user-full-name)))
  
  (defun mew-mail-domain (&optional case)
!   (mew-cfent-value case "mail-domain" (or (car mew-mail-domain-list)
  					  mail-host-address
  					  (system-name))))
  
  (defun mew-mail-address (&optional case)
!   (or mew-mail-address
!       (concat (mew-user case) "@" (mew-mail-domain case))))
  
  ;; mew-from is really strange to maintain backword compatibility.
  (defun mew-from (&optional case)
--- 86,104 ----
  ;;;
  
  (defun mew-user (&optional case)
!   (mew-cfent-value case "user" (or mew-user (user-login-name))))
  
  (defun mew-name (&optional case)
!   (mew-cfent-value case "name" (or mew-name (user-full-name))))
  
  (defun mew-mail-domain (&optional case)
!   (mew-cfent-value case "mail-domain" (or mew-mail-domain
! 					  (car mew-mail-domain-list)
  					  mail-host-address
  					  (system-name))))
  
  (defun mew-mail-address (&optional case)
!   (concat (mew-user case) "@" (mew-mail-domain case)))
  
  ;; mew-from is really strange to maintain backword compatibility.
  (defun mew-from (&optional case)