User: stephent Date: 05/10/05 06:32:47 Modified: xemacs/lisp ChangeLog simple.el Log: Aidan, I'm sick of yer naggin'! :-) <87achotwly.fsf(a)tleepslib.sk.tsukuba.ac.jp&gt; Revision Changes Path 1.679 +4 -0 XEmacs/xemacs/lisp/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v retrieving revision 1.678 retrieving revision 1.679 diff -u -p -r1.678 -r1.679 --- ChangeLog 2005/10/05 04:11:24 1.678 +++ ChangeLog 2005/10/05 04:32:44 1.679 ＠＠ -1,3 +1,7 ＠＠ +2005-10-04 Stephen J. Turnbull <stephen(a)xemacs.org&gt; + + * simple.el (xemacs-default-composefunc): Don't warn when batch. + 2005-10-04 Stephen J. Turnbull <stephen(a)xemacs.org&gt; * build-report.el: Synch to Adrian's packaged version. 1.52 +3 -3 XEmacs/xemacs/lisp/simple.el Index: simple.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/simple.el,v retrieving revision 1.51 retrieving revision 1.52 diff -u -p -r1.51 -r1.52 --- simple.el 2005/05/10 17:35:58 1.51 +++ simple.el 2005/10/05 04:32:45 1.52 ＠＠ -3417,7 +3417,8 ＠＠ The properties used on SYMBOL are `compo (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 ＠＠ To choose a package from those installed 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. "