APPROVE COMMIT 21.5 Don't issue paternalistic warnings in -batch mode. Index: lisp/ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v retrieving revision 1.678 diff -u -U0 -r1.678 ChangeLog --- lisp/ChangeLog 5 Oct 2005 04:11:24 -0000 1.678 +++ lisp/ChangeLog 5 Oct 2005 04:24:25 -0000 ＠＠ -0,0 +1,4 ＠＠ +2005-10-04 Stephen J. Turnbull <stephen(a)xemacs.org&gt; + + * simple.el (xemacs-default-composefunc): Don't warn when batch. + Index: lisp/simple.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/simple.el,v retrieving revision 1.51 diff -u -r1.51 simple.el --- lisp/simple.el 10 May 2005 17:35:58 -0000 1.51 +++ lisp/simple.el 5 Oct 2005 04:24:39 -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. " -- Graduate School of Systems and Information Engineering University of Tsukuba http://turnbull.sk.tsukuba.ac.jp/ Tennodai 1-1-1 Tsukuba 305-8573 JAPAN Economics of Information Communication and Computation Systems Experimental Economics, Microeconomic Theory, Game Theory