From xemacs-m  Tue Mar 25 21:46:50 1997
Received: from mail-oak-1.pilot.net (mail-oak-1.pilot.net [198.232.147.16])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id VAA22670
	for <xemacs-beta@xemacs.org>; Tue, 25 Mar 1997 21:46:49 -0600 (CST)
Received: from cogit.com (unknown-79-101.ergosum.com [206.189.79.101]) by mail-oak-1.pilot.net with SMTP id TAA26719; Tue, 25 Mar 1997 19:46:14 -0800 (PST)
Received: from carnifex.cogit.com by cogit.com (SMI-8.6/SMI-SVR4)
	id TAA16699; Tue, 25 Mar 1997 19:45:55 -0800
Received: from carnifex.cogit.com by carnifex.cogit.com (SMI-8.6/client-1.3)
	id TAA06815; Tue, 25 Mar 1997 19:45:51 -0800
Message-Id: <199703260345.TAA06815@carnifex.cogit.com>
To: Martin Pottendorfer <Martin.Pottendorfer@aut.alcatel.at>
Cc: xemacs-beta@xemacs.org
Subject: Re: (user-mail-address) broken ? patch included.
References: <199703251342.OAA28822@atusel63.alcatel.at>
Mime-Version: 1.0 (generated by tm-edit 7.106)
Content-Type: text/plain; charset=US-ASCII
From: Chris Dean <ctdean@cogit.com>
In-Reply-To: Martin Pottendorfer's message of Tue, 25 Mar 1997 14:42:19 +0100
X-Mailer: Gnus v5.4.33/XEmacs 20.1(beta9)
Date: Tue, 25 Mar 1997 19:45:51 -0800
Sender: ctdean@cogit.com


Martin Pottendorfer <Martin.Pottendorfer@aut.alcatel.at> writes:
>         (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))))))
>   

I think that there is also another problem.  custom-save-all is
assumed to be loaded here.  I guess it should be autoloaded, but I'll
let someone else decided that.

xemacs -q
C-x 4 a RET y

Demonstrates the error.

Chris Dean

