From xemacs-m  Mon Apr  7 17:05:34 1997
Received: from greatdane.webnexus.com (greatdane.webnexus.com [165.227.96.3])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id RAA14199
	for <xemacs-beta@xemacs.org>; Mon, 7 Apr 1997 17:05:32 -0500 (CDT)
Received: from apprentice.silicon-sorcery.com (apprentice.silicon-sorcery.com [205.179.145.161])
	by greatdane.webnexus.com (8.8.5/8.8.5/WN-1.2) with ESMTP id PAA01999;
	Mon, 7 Apr 1997 15:05:21 -0700 (PDT)
Received: from mage.silicon-sorcery.com (mage [128.0.0.100]) by apprentice.silicon-sorcery.com (8.7.5/8.7.3) with ESMTP id PAA05397; Mon, 7 Apr 1997 15:02:12 -0700 (PDT)
Received: (from mac@localhost)
	by mage.silicon-sorcery.com (8.8.5/8.8.5) id PAA26601;
	Mon, 7 Apr 1997 15:03:12 -0700 (PDT)
Date: Mon, 7 Apr 1997 15:03:12 -0700 (PDT)
Message-Id: <199704072203.PAA26601@mage.silicon-sorcery.com>
From: <mac@silicon-sorcery.com>
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
To: Steven L Baur <steve@miranova.com>
Cc: xemacs-beta@xemacs.org
Subject: Re: Can we stop emacs from asking "Your mail address?" every time?
In-Reply-To: <m2lo6ufqrv.fsf@altair.xemacs.org>
References: <199704071843.LAA25254@mage.silicon-sorcery.com>
	<199704071857.LAA25273@mage.silicon-sorcery.com>
	<kig4tditzu4.fsf@jagor.srce.hr>
	<m2lo6ufqrv.fsf@altair.xemacs.org>
X-Mailer: VM 6.23 under 20.1 XEmacs Lucid (beta11)
Reply-To: mac@silicon-sorcery.com
X-Face:  h&j3qWe;+!`nKY~1T%IspQ[^}[s#|*2T68-NmG<hqK)^/6IlKy[e$tI,N'{!_v&R_m*f#8O
 au_+w3/b!3pF$H/]J(Q6Z)*:&Jy/.OGPM?7*<kyi}r/3Pf3hd[(J+%lmXp/;0e-EY_s2Dy{M|t


Steven L Baur writes:
 > 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?

	Short answer, yes it works, BUT cvs-update and presumably
other places are still broken.

	Detailed answer:

	I installed the patch, byte compiled it, and started a fresh
xemacs -q -no-site-file, then explicitly loaded the patched
/usr/local/xemacs/xemacs-20.0/lisp/modes/sendmail.elc

	Then I tried sending mail, and of course it started to ask me
who I was, as I had told the obediant thing not to read my .emacs
[GRRR...], which by the way, magically contains:

(custom-set-variables
 '(user-mail-address "mac@mage.silicon-sorcery.com" t)
 '(query-user-mail-address nil))
(custom-set-faces)

as presumably was setup the last time I answered yes to the `Save for
the future' question.

	So, trying again, this time running 'xemacs', and then loading 
the updated sendmail.elc, and sending mail, viola, it doesn't ask me
who I am!!!

		----
	
	BUT this does not fix the other place(s) (I.E., if I run
M-x cvs-update in a fresh xemacs, it still asks me who I am)

	Is the right place to fix it in places like sendmail and cvs,
or can this be fixed in custom somehow?


 > 
 > 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.
 > 

