changeset 2977:0a759f4c4225

[xemacs-hg @ 2005-10-05 04:32:44 by stephent] Aidan, I'm sick of yer naggin'! :-) <87achotwly.fsf@tleepslib.sk.tsukuba.ac.jp>
author stephent
date Wed, 05 Oct 2005 04:32:45 +0000
parents 0fb57d74601d
children 6b89d9014a18
files lisp/ChangeLog lisp/simple.el
diffstat 2 files changed, 7 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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.
--- 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. "