[Gnus 5.2.14] message-make-sender

[morioka@jaist.ac.jp (=?ISO-2022-JP?Q?=1B$B<morioka@jaist.ac.jp)]

[-- Attachment #1: Type: text/plain, Size: 320 bytes --]

  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,


[-- Attachment #2: message.el.diff --]
[-- Type: application/octet-stream, Size: 598 bytes --]

--- 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."

[-- Attachment #3: Type: text/plain, Size: 248 bytes --]

-- 
----------------------------------------------------------------------
Morioka Tomohiko <morioka@jaist.ac.jp>
(`Morioka' is my family name, `Tomohiko' is my personal name.)
---------------- I protest continuation of Chinese nuclear testing.---