[Mew-Win32 03203] Re: pop-connect 2

[Hideyuki SHIRAI ( 白井秀行 )]

白井です。

From: Fumio_T (土田文夫) <dual at example.com> さん曰く
Subject: [Mew-Win32 03202] pop-connect 2
Message-ID: <20010518.045149.133025287.dual at example.com>
Date: Fri, 18 May 2001 04:51:49 +0900 (JST)

fumio> それは、 mew-config-alist についてです。

fumio> 現在僕の .emacs の mew-config-alist を使用した設定は
fumio> 以下のようになっております。

fumio> (setq mew-config-alist
 <<snip>>
fumio> ;	 ("pop-auth" . 'pass)
                 ~~~~~~~~~~~~~~~~~~~~
ここの部分は

         ("pop-auth" . pass)

ですね。

# 詳しくは emacs-lisp を勉強しよう :-)

fumio> (setq mew-pop-auth 'pass)
fumio> (setq mew-mail-domain "par.odn.ne.jp")
fumio> (setq mew-user "dual")
fumio> (setq mew-pop-user "cdf23420")
fumio> (setq mew-name "Fumio_T (土田文夫)")
fumio> (setq mew-pop-server "par.odn.ne.jp")
fumio> (setq mew-smtp-server "smtp08.odn.ne.jp")

fumio> 上記のように設定すると、メイルの送信の際には FROM: の自分のメイル
fumio> アドレスの欄には
fumio> fumio at example.com
fumio> と言う妙なアドレスが入ってしまうのです。

From: を作る順番は mew-config.el の mew-from() という関数を見る
と(大体)わかるのですが、

(defun mew-from (&optional case)
  (or (if mew-config-alist
	  (let ((name (mew-name case))
		(addr (mew-mail-address case)))
	    (if (string-match "[^ \t]" name)
		(format "%s <%s>" name addr)
	      addr)))
      (if (not mew-generate-from-list)
	  (car mew-from-list))
      mew-from
      (mew-mail-address)))

の最後の (mew-mail-address) の

(defun mew-mail-address (&optional case)
  (or mew-mail-address
      (concat (mew-user case) "@" (mew-mail-domain case))))
      ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

の部分から呼んでいるものをずっとたどると、

(user-login-name) と (system-name) がそれぞれ、

fumio> fumio at example.com

となっているからです。
解決策はたくさんあるのですが、上記の mew-from 関数から想像しましょ
う。^^;;;

-- 
白井秀行 (mailto:shirai at example.com)