[mew-dist 19107] C-M-i in Draft mode

[KOIE Hidetaka ( 鯉江英隆 )]

いまごろAddrbookであそんでいます。
To:でC-M-iをたたくと正式名称が付加されますが
なぜnicknameをcommentとして入れないんでしたっけ。
当時の議論がどうなってたのか忘れてしまいました。

とりあえずこんな風になったらいいとおもっています。
━━━━━━━━━━━━━━ここから━━━━━━━━━━━━━━
(defun mew-expand-address ()
  "Address expansion function for To:, Cc:, etc.
'user at example.com' will be expands 'name (comment) <user at example.com>' if
the name and comment exist."
  (interactive)
  (let ((word (mew-delete-backward-char)) fullname nickname)
    (if (null word)
	(message "No address here")
      (setq nickname (mew-addrbook-nickname-get word))
      (setq fullname (mew-addrbook-name-get word))
      (mew-complete-insert
       (cond
        ((and fullname nickname)
         (format "%s (%s) <%s>" fullname nickname word))
        ((not (or fullname nickname))
         (format "%s" word))
        (fullname
         (format "%s <%s>" fullname word))
        (nickname
         (format "%s <%s>" nickname word)))))))
━━━━━━━━━━━━━━ここまで━━━━━━━━━━━━━━

--
KOIE Hidetaka 鯉江英隆 <hide at example.com>