[Mew-dist 17736] Re: replyで宛先に名前を残す方法

[Shun-ichi GOTO]

忘れ物

>>>>> at Sat, 9 Jun 2001 03:37:29 +0900
>>>>> 後 == Shun-ichi GOTO <gotoh at example.com> said,

後> mew-draft-expand-all というコマンドです。
後> これはTo:およびCc:のアドレスを取得して、addrbook の情報を元に
後> expandしたもので置き換える、というものです。

後> (defun mew-draft-expand-all ()

上記関数のために、こいつも必要でした。

(defun mew-addrstr-expand (addr &optional func)
  (let ((func (or func (mew-addrbook-func mew-addrbook-for-address-expansion)))
	name)
    (if (and func (setq name (funcall func addr)))
	(format "%s <%s>" name addr)
      addr)))

--- Regards,
 Shun-ichi Goto  <gotoh at example.com>
   R&D Group, TAIYO Corp., Tokyo, JAPAN