Re: message.el: mail-host-address ignored

["Rene H. Larsen" <rhl@traceroute.dk>]

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

Raymond Scholz <rscholz@tzi.de> writes:

> | `Message-ID'
> |     This required header will be generated by Message.  A unique
> |     ID will be created based on the date, time, user name and
> |     system name.  Message will use `mail-host-address' as the
> |     fully qualified domain name (FQDN) of the machine if that
> |     variable is defined.  If not, it will use `system-name', which
> |     doesn't report a FQDN on some machines - notably Suns.
> 
> But Message still uses `system-name' for Message-ID generation. My
> tiny knowledge of Lisp tells me, that Message takes `system-name',
> looks for a `.' in it and calls it fully qualified after that. If
> there is no `.' in it, it uses other alternatives (including
> `mail-host-address') to build a unique Message-ID.

This came up on the list about 2 months ago, but nothing was done
about it.  This patch against current CVS will fix the message-id
generation to match the documentation:


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: Fix for message-id generation --]
[-- Type: text/x-patch, Size: 755 bytes --]

--- message.el.orig	Sat Nov  6 04:15:15 1999
+++ message.el	Thu Nov 11 02:25:28 1999
@@ -2939,14 +2939,15 @@
   (let ((system-name (system-name))
 	(user-mail (message-user-mail-address)))
     (cond
-     ((string-match "[^.]\\.[^.]" system-name)
-      ;; `system-name' returned the right result.
-      system-name)
      ;; Try `mail-host-address'.
      ((and (boundp 'mail-host-address)
 	   (stringp mail-host-address)
 	   (string-match "\\." mail-host-address))
       mail-host-address)
+     ;; Else try `system-name'
+     ((string-match "[^.]\\.[^.]" system-name)
+      ;; `system-name' returned the right result.
+      system-name)
      ;; We try `user-mail-address' as a backup.
      ((and user-mail
 	   (string-match "\\." user-mail)

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

-- 
Echelon bait:
AK-47 Janet Reno DES class struggle jihad NSA CIA Treasury
counter-intelligence David John Oates North Korea domestic disruption
Ortega Serbian PLO