# HG changeset patch
# User stephent
# Date 1128486765 0
# Node ID 0a759f4c4225c61f79f859d8ef839a31c358e9af
# Parent  0fb57d74601d2e61ed68dd13cddba1b042c207b7
[xemacs-hg @ 2005-10-05 04:32:44 by stephent]
Aidan, I'm sick of yer naggin'! :-)
<87achotwly.fsf@tleepslib.sk.tsukuba.ac.jp>

diff -r 0fb57d74601d -r 0a759f4c4225 lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Oct 05 04:11:25 2005 +0000
+++ b/lisp/ChangeLog	Wed Oct 05 04:32:45 2005 +0000
@@ -1,3 +1,7 @@
+2005-10-04  Stephen J. Turnbull  <stephen@xemacs.org>
+
+	* simple.el (xemacs-default-composefunc): Don't warn when batch.
+
 2005-10-04  Stephen J. Turnbull  <stephen@xemacs.org> 
 
 	* build-report.el: Synch to Adrian's packaged version.
diff -r 0fb57d74601d -r 0a759f4c4225 lisp/simple.el
--- a/lisp/simple.el	Wed Oct 05 04:11:25 2005 +0000
+++ b/lisp/simple.el	Wed Oct 05 04:32:45 2005 +0000
@@ -3417,7 +3417,8 @@
 (defun xemacs-default-composefunc (&rest args) 
   "Warn that the default mail-reading package is heinously underfeatured;
 compose a mail using it, all the same.  "
-  (warn "
+  (unless (noninteractive)
+    (warn "
 
 Defaulting to the GNU Emacs-derived `sendmail.el' mail client. This facility,
 while part of base XEmacs, is heinously underfeatured, and not going to get
@@ -3431,11 +3432,10 @@
 list. Gnus and VM are full-featured and have active user communities.
 
 To disable this warning and stick with the old behavior, you can explicitly
-initialize `mail-user-agent' to 'sendmail-user-agent . ") 
+initialize `mail-user-agent' to 'sendmail-user-agent . "))
   (setq mail-user-agent 'sendmail-user-agent)
   (apply (get 'sendmail-user-agent 'composefunc) args))
 
- 
 (defun xemacs-default-sendfunc (&rest args) 
   "Set `mail-user-agent' to `sendmail-user-agent'; call the send function
 associated with that package, passing it the supplied arguments. "