From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/6590 Path: main.gmane.org!not-for-mail From: morioka@jaist.ac.jp (=?ISO-2022-JP?Q?=1B$B NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 (SEMI mime-edit 0.25) Content-Type: multipart/mixed; boundary="Multipart_Mon_Jun_10_16:04:10_1996-1" Content-Transfer-Encoding: 7bit X-Trace: main.gmane.org 1035147024 4127 80.91.224.250 (20 Oct 2002 20:50:24 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 20:50:24 +0000 (UTC) Return-Path: ding-request@ifi.uio.no Original-Received: from ifi.uio.no (ifi.uio.no [129.240.64.2]) by deanna.miranova.com (8.7.5/8.6.9) with SMTP id AAA13734 for ; Mon, 10 Jun 1996 00:27:10 -0700 Original-Received: from mikan.jaist.ac.jp (mikan.jaist.ac.jp [150.65.8.6]) by ifi.uio.no with ESMTP (8.6.11/ifi2.4) id for ; Mon, 10 Jun 1996 09:04:25 +0200 Original-Received: from is28e1s91.jaist.ac.jp (MORIOKA Tomohiko ) by mikan.jaist.ac.jp (8.7.5); id QAA25579; Mon, 10 Jun 1996 16:04:12 +0900 (JST) Original-Received: by is28e1s91.jaist.ac.jp (4.1/JE-C); Mon, 10 Jun 96 16:04:11 JST Original-To: ding@ifi.uio.no X-Emacs: Mule 2.3 =?ISO-2022-JP?Q?(=1B$BKvE&2V=1B(B)?= based on 19.31 Dcc: morioka X-Mua: tm-mh-e 7.63, tm-view 7.65 In-Reply-To: Lars Magne Ingebrigtsen's message of Mon, 10 Jun 1996 03:46:49 +0000 Original-Lines: 47 X-Mailer: Gnus v5.2.14/Emacs 19.31 Xref: main.gmane.org gmane.emacs.gnus.general:6590 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:6590 --Multipart_Mon_Jun_10_16:04:10_1996-1 Content-Type: text/plain; charset=US-ASCII I think it is better if function `message-make-sender' check (system-name) is FQDM. If (system-name) is not FQDM, message.el makes invalid Sender field. IMHO, variable `mail-host-address' is better for mail address. For example, in my site, we usually don't include machine names in our mail-addresses. Thanks, --Multipart_Mon_Jun_10_16:04:10_1996-1 Content-Type: application/octet-stream; type=patch Content-Disposition: attachment; filename="message.el.diff" Content-Transfer-Encoding: 7bit --- message.el-orig Mon Jun 10 12:46:41 1996 +++ message.el Mon Jun 10 14:58:43 1996 @@ -1954,7 +1954,13 @@ "Return the \"real\" user address. This function tries to ignore all user modifications, and give as trustworthy answer as possible." - (concat (user-login-name) "@" (system-name))) + (let ((domain (system-name))) + (or (string-match "[^.]\\.[^.]" domain) + (if (and (boundp 'mail-host-address) mail-host-address) + (setq domain mail-host-address) + )) + (concat (user-login-name) "@" domain) + )) (defun message-make-address () "Make the address of the user." --Multipart_Mon_Jun_10_16:04:10_1996-1 Content-Type: text/plain; charset=US-ASCII -- ---------------------------------------------------------------------- Morioka Tomohiko (`Morioka' is my family name, `Tomohiko' is my personal name.) ---------------- I protest continuation of Chinese nuclear testing.--- --Multipart_Mon_Jun_10_16:04:10_1996-1--