From xemacs-m  Mon Apr  7 16:35:47 1997
Received: from altair.xemacs.org (steve@xemacs.miranova.com [206.190.83.19])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id QAA12299
	for <xemacs-beta@xemacs.org>; Mon, 7 Apr 1997 16:35:46 -0500 (CDT)
Received: (from steve@localhost)
	by altair.xemacs.org (8.8.5/8.8.5) id OAA17670;
	Mon, 7 Apr 1997 14:48:36 -0700
Mail-Copies-To: never
To: xemacs-beta@xemacs.org
Subject: Re: Can we stop emacs from asking "Your mail address?" every time?
References: <199704071843.LAA25254@mage.silicon-sorcery.com> <199704071857.LAA25273@mage.silicon-sorcery.com> <kig4tditzu4.fsf@jagor.srce.hr>
X-Url: http://www.miranova.com/%7Esteve/
X-Face: #!T9!#9s-3o8)*uHlX{Ug[xW7E7Wr!*L46-OxqMu\xz23v|R9q}lH?cRS{rCNe^'[`^sr5"
 f8*@r4ipO6Jl!:Ccq<xoV[Qz2u8<8-+Vwf2gzJ44lf_/y9OaQ`@#Q65{U4/TC)i2`~/M&QI$X>p:9I
 OSS'2{-)-4wBnVeg0S\O4Al@)uC[pD|+
X-Attribution: sb
From: Steven L Baur <steve@miranova.com>
In-Reply-To: Hrvoje Niksic's message of 07 Apr 1997 21:09:07 +0200
Mime-Version: 1.0 (generated by tm-edit 7.106)
Content-Type: text/plain; charset=US-ASCII
Date: 07 Apr 1997 14:48:36 -0700
Message-ID: <m2lo6ufqrv.fsf@altair.xemacs.org>
Lines: 44
X-Mailer: Gnus v5.4.42/XEmacs 20.1(beta12)

Hrvoje Niksic <hniksic@srce.hr> writes:

> <mac@silicon-sorcery.com> writes:
>> HOWEVER, I always answer yes to save it for future sessions, BUT it
>> still asks me again each new XEmacs session.

> Per, it seems that `user-mail-address' (function) is misbehaving.

I made one other change when enabling this function, startup.el no
longer sets a default `user-mail-address' (variable) unless XEmacs is
running -batch (to avoid lossage when the bytecompiler queries that
variable).  This isn't causing the `problem' Michael is experiencing,
but it should provide a solution.

The variable `query-user-mail-address' is initialized off the existence
of mail-host-address (We always trust the System Administrator).  A
previous value of `user-mail-address' is not checked as this didn't
make any sense.  Perhaps it should be now that the only way it gets
set is by explicit user request.

Does this look O.K. and work?

Index: lisp/modes/sendmail.el
===================================================================
RCS file: /usr/local/xemacs/xemacs-20.0/lisp/modes/sendmail.el,v
retrieving revision 1.4
diff -u -r1.4 sendmail.el
--- sendmail.el	1997/03/28 02:28:47	1.4
+++ sendmail.el	1997/04/07 21:46:12
@@ -290,7 +290,9 @@
 ;; Emacs and XEmacs less stupid about default mail addresses.
 
 ;; We trust the administrator if he has set `mail-host-address'.
-(defcustom query-user-mail-address (not mail-host-address)
+;; We trust the user if he has already customized `user-mail-address'.
+(defcustom query-user-mail-address (and (not mail-host-address)
+					(not user-mail-address))
   "If non-nil, prompt the user for his mail address."
   :group 'message
   :type 'boolean)

-- 
steve@miranova.com baur
Unsolicited commercial e-mail will be billed at $250/message.

