From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/26602 Path: main.gmane.org!not-for-mail From: "Rene H. Larsen" Newsgroups: gmane.emacs.gnus.general Subject: Re: message.el: mail-host-address ignored Date: 11 Nov 1999 02:31:59 +0100 Sender: owner-ding@hpc.uh.edu Message-ID: <87n1slizjk.fsf@worldonline.dk> References: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: main.gmane.org 1035163779 20261 80.91.224.250 (21 Oct 2002 01:29:39 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 01:29:39 +0000 (UTC) Return-Path: Original-Received: from lisa.math.uh.edu (lisa.math.uh.edu [129.7.128.49]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id UAA11006 for ; Wed, 10 Nov 1999 20:32:42 -0500 (EST) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by lisa.math.uh.edu (8.9.1/8.9.1) with ESMTP id TAB03523; Wed, 10 Nov 1999 19:32:39 -0600 (CST) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Wed, 10 Nov 1999 19:32:51 -0600 (CST) Original-Received: from sclp3.sclp.com (root@sclp3.sclp.com [204.252.123.139]) by sina.hpc.uh.edu (8.9.3/8.9.3) with ESMTP id TAA25471 for ; Wed, 10 Nov 1999 19:32:40 -0600 (CST) Original-Received: from fe050.worldonline.dk (fe050.worldonline.dk [212.54.64.206]) by sclp3.sclp.com (8.8.5/8.8.5) with SMTP id UAA10997 for ; Wed, 10 Nov 1999 20:32:08 -0500 (EST) Original-Received: (qmail 29039 invoked by uid 0); 11 Nov 1999 01:32:01 -0000 Original-Received: from 41.ppp1-15.image.dk (HELO izzlazz.ournet.dk) (212.54.76.169) by fe050.worldonline.dk with SMTP; 11 Nov 1999 01:32:01 -0000 Original-Received: from renehl.ournet.dk [192.168.0.1] (mail) by izzlazz.ournet.dk with esmtp (Exim 3.03 #1 (Debian)) id 11lj5k-0000RD-00; Thu, 11 Nov 1999 02:32:00 +0100 Original-Received: from renehl by renehl.ournet.dk with local (Exim 3.03 #1 (Debian)) id 11lj5j-00013F-00; Thu, 11 Nov 1999 02:31:59 +0100 Original-To: ding@gnus.org In-Reply-To: Raymond Scholz's message of "10 Nov 1999 19:24:40 +0100" Original-Lines: 27 User-Agent: Gnus/5.070099 (Pterodactyl Gnus v0.99) XEmacs/21.1 (Bryce Canyon) Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:26602 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:26602 --=-=-= Raymond Scholz 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: --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=pgnus-message.el-mail-host-address-fix.patch Content-Description: Fix for message-id generation --- 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) --=-=-= -- 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 --=-=-=--