[Mew-dist 11789] Re: 1.95b11

[Ninomiya Hideyuki]

こんばんは	二宮 @ お四国 です。

Tetsuya Isaki <isaki at example.com> は Mon, 13 Dec 1999 18:57:57 +0900 頃に
    Subject:    [Mew-dist 11777] Re: 1.95b11
    Message-ID: <19991213185755D.isaki at example.com>
        に於いて、以下のようにおっしゃっていました。
※都合により手を加えさせて頂く事があります。御了承下さいマセマセ....
isaki> 井崎です。
isaki> 
isaki> Sat, 11 Dec 1999 09:33:12 +0900 頃の
isaki> [Mew-dist 11752] Re: 1.95b11 の記事において
isaki> Ninomiya Hideyuki <nin at example.com>さんは書きました:
isaki> 
isaki> > "Message-Id: <19991211.010331.74758809.nin at example.com>"
isaki> > こういうのを作ってくれてますが、個人的趣味(かな?)としては、
isaki> > "Message-Id: <xxxxxxxxxxxx.nin at example.com>"
isaki> >                               ~~~~~~
isaki> > こうなって欲しいと思うので、
isaki> >     (addr (format "%s@%s" (user-login-name) mew-mail-domain)) ;; xxx
isaki> >                                             ~~~~~~~~~~~~~~~
isaki> > を、mew-smtp-server に出来たらなっ っと思います。
isaki> > 独立した変数にして、default 値は mew-mail-domain or mew-smtp-server と
isaki> > 同じにするとかっ...
isaki> > どっちが良いんだろ ??
isaki> 
isaki> Message-ID の `@' 以降は FQDN のはず(RFC1036見てます)なので、

いやっ、^^;;
だからなんですけどっ、、

自分のメールアドレスは、nin at example.com だけど、
shikoku.ne.jp ってのは、FQDN(実在するホストネーム)じゃないですよねっ
isp のネットワーク全体(こういうのはなんて言うんだっけ?)を指してる。
そして、そんな名前のホストはこの世に存在しない.....
メールサーバの FQDN としては、smtp.shikoku.ne.jp ってなるので、
そうなるようにしたいのです。
因みに、Message-id 付けずに出した時にサーバが付けてくれるのは、
xxxxxxxxx.qmail at example.com
になります。
それと同じ方が良いように思う.....

# それとも、私は FQDN という事自体誤解してるのだろか?
---
                                         二宮 秀幸@愛媛 鬼北 広見町
PGP-Fingerprint: 6C59 EC08 5B23 6490 44D0  7CD3 DA40 219F 7114 8553
ICQ UIN:57442553                           mailto:nin at example.com
                           http://user.shikoku.ne.jp/nin/index.html
# って事で、ちょっと mew-encode.el いじっちゃいました。↓
-------------- next part --------------
--- mew-encode.el.org	Mon Dec 13 19:15:42 1999
+++ mew-encode.el	Mon Dec 13 19:19:56 1999
@@ -154,10 +154,12 @@
     (mew-header-delete-lines (list mew-dcc:))
     ret))
 
+(defvar mew-message-id-domain mew-mail-domain)
+
 (defun mew-message-id ()
   (let* ((time (format-time-string "%Y%m%d.%H%M%S"))
 	 (random (format "%08d" (mew-random)))
-	 (addr (format "%s@%s" (user-login-name) mew-mail-domain))) ;; xxx
+	 (addr (format "%s@%s" (user-login-name) mew-message-id-domain))) ;; xxx
     (setq mew-draft-msgid (concat "<" time "." random "." addr ">"))
     mew-draft-msgid))