[patch][x-post] message.el

[Colin Rafferty <craffert@ml.com>]

[-- Attachment #1.1: Type: text/plain, Size: 499 bytes --]

Hello-

I am only working with Gnus 5.5, so I don't know if this is fixed in
Quassia, but given the discussion on xemacs-beta, it doesn't seem to be.

In `message-make-fqdn', we get the result of `message-user-mail-address'.
This can be nil, but we don't check that in `message-make-fqdn'.

Here is the patch (and ChangeLog) against 5.5.  I don't know the right
way to handle this in XEmacs 19.16, 20.3 (pre-release), or the Gnus
development cycle.  I assume that Steve and Lars can work that out.


[-- Attachment #1.2: message-patch --]
[-- Type: application/octet-stream, Size: 856 bytes --]

1997-10-16  Colin Rafferty  <craffert@ml.com>

	* message.el (message-make-fqdn): Made certain that user-mail is
		  not nil.

*** message.el~	Mon Oct  6 01:00:39 1997
--- message.el	Thu Oct 16 13:11:29 1997
***************
*** 2652,2658 ****
  	   (string-match "\\." mail-host-address))
        mail-host-address)
       ;; We try `user-mail-address' as a backup.
!      ((and (string-match "\\." user-mail)
  	   (string-match "@\\(.*\\)\\'" user-mail))
        (match-string 1 user-mail))
       ;; Default to this bogus thing.
--- 2652,2659 ----
  	   (string-match "\\." mail-host-address))
        mail-host-address)
       ;; We try `user-mail-address' as a backup.
!      ((and user-mail
! 	   (string-match "\\." user-mail)
  	   (string-match "@\\(.*\\)\\'" user-mail))
        (match-string 1 user-mail))
       ;; Default to this bogus thing.

[-- Attachment #2: Type: application/pgp-signature, Size: 345 bytes --]