From xemacs-m  Tue Mar 25 07:42:45 1997
Received: from aut.alcatel.at (atusks01.aut.alcatel.at [146.112.129.10])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id HAA28071
	for <xemacs-beta@xemacs.org>; Tue, 25 Mar 1997 07:42:40 -0600 (CST)
Received: from atusels1.aut.alcatel.at by aut.alcatel.at (8.7.2/AAA_1)
	id OAA00705; Tue, 25 Mar 1997 14:42:23 +0100 (MET)
Received: from atusel63.alcatel.at by atusels1.aut.alcatel.at (5.x/ELEKTRA-1.0)
	id AA05060 for xemacs-beta@xemacs.org;; Tue, 25 Mar 1997 14:42:22 +0100
Received: by atusel63.alcatel.at (SMI-8.6/SMI-SVR4)
	id OAA28822; Tue, 25 Mar 1997 14:42:19 +0100
Date: Tue, 25 Mar 1997 14:42:19 +0100
Message-Id: <199703251342.OAA28822@atusel63.alcatel.at>
From: Martin Pottendorfer <Martin.Pottendorfer@aut.alcatel.at>
To: xemacs-beta@xemacs.org
Cc: xemacs-beta-patches@xemacs.org
Subject: (user-mail-address) broken ? patch included.
X-Mailer: VM 6.21 under 20.1 XEmacs Lucid (beta9)
Mime-Version: 1.0 (generated by tm-edit 7.106)
Content-Type: text/plain; charset=US-ASCII

hi,

i just tried to send mail from vm (shipped in xemacs-20.1-b9, vm
6.21). (user-mail-address) from modes/sendmail.el seems to have a
problem. the appended patch solved the problem (at least for me).

problem: 
after the initial query for the user-mail-address (user-mail-address)
always return `nil', which break (sendmail-send-it).

PS:
i'm very new to xemacs-beta, so if i violate any conventions, please
tell me (via email of course) !

------------ snip --------------
*** sendmail.el Mon Mar 24 17:12:33 1997
--- /tmp/sendmail.el    Tue Mar 25 14:22:27 1997
***************
*** 312,323 ****
        (put 'user-mail-address 'saved-value
             (list user-mail-address))
        (put 'query-user-mail-address 'saved-value '(nil))
!       (custom-save-all)))
!     (if user-mail-address
!       user-mail-address
!       (setq user-mail-address (concat (user-login-name) "@"
!                                     (or mail-host-address
!                                         (system-name)))))))
  
  (defun mail-setup (to subject in-reply-to cc replybuffer actions)
    (or mail-default-reply-to
--- 312,323 ----
        (put 'user-mail-address 'saved-value
             (list user-mail-address))
        (put 'query-user-mail-address 'saved-value '(nil))
!       (custom-save-all))))
!   (if user-mail-address
!       user-mail-address
!     (setq user-mail-address (concat (user-login-name) "@"
!                                   (or mail-host-address
!                                       (system-name))))))
  
  (defun mail-setup (to subject in-reply-to cc replybuffer actions)
    (or mail-default-reply-to

