[Mew-dist 17617] Re: mew-from

[Tatsuya Kinoshita]

In message "[Mew-dist 17616] Re: mew-from"
Kazu Yamamoto (山本和彦) <kazu at example.com> wrote:

> > パッチの意図は「mew-config-alistがnilでも、変数mew-nameが効くように
> > する」というものです。
> 
> 効くって意味がようやく分りました。このパッチで合意できますか？

そのパッチだと、互換のための変数mew-fromを使うには、変数mew-nameを
ユーザーがnilに変更する必要がある、ということになります。そうさせる
くらいなら、mew-{name,user,mail-domain}に移行させる方がよさそうに思
えます。

別案として、mew-config-alistがnilのときだけ、変数mew-fromを有効にする、
という実装を考えてみました。(関数mew-from部分のパッチを添付します)

1.95bで新設された変数mew-config-alistを使うなら、変数mew-fromは使え
ず、新たな変数mew-{name,user,mail-domain}を使う必要がある、という意
味です。

P.S.

mew-fromについては、infoの修正も必要になりそうです。

-- 
木下達也
-------------- next part --------------

 This patch is written by Tatsuya Kinoshita.  Copyright is disclaimed.

*** mew-config.el.orig	Tue May 29 18:58:27 2001
--- mew-config.el	Wed May 30 20:05:07 2001
***************
*** 99,114 ****
  
  ;; mew-from is really strange to maintain backword compatibility.
  (defun mew-from (&optional case)
!   (or (if mew-config-alist
! 	  (let ((name (mew-name case))
! 		(addr (mew-mail-address case)))
! 	    (if (and name (string-match "[^ \t]" name))
! 		(format "%s <%s>" name addr)
! 	      addr)))
!       (unless mew-generate-from-list
! 	(car mew-from-list))
!       mew-from
!       (mew-mail-address)))
  
  (defun mew-cc (&optional case)
    (let ((cc (mew-cfent-value case "cc" mew-cc)))
--- 99,113 ----
  
  ;; mew-from is really strange to maintain backword compatibility.
  (defun mew-from (&optional case)
!   (or (unless mew-config-alist
! 	(if mew-generate-from-list
! 	    mew-from
! 	  (car mew-from-list)))
!       (let ((name (mew-name case))
! 	    (addr (mew-mail-address case)))
! 	(if (and name (string-match "[^ \t]" name))
! 	    (format "%s <%s>" name addr)
! 	  addr))))
  
  (defun mew-cc (&optional case)
    (let ((cc (mew-cfent-value case "cc" mew-cc)))