CVS update by stephent xemacs/lisp ...
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>
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>
+
+ * simple.el (xemacs-default-composefunc): Don't warn when batch.
+
2005-10-04 Stephen J. Turnbull <stephen(a)xemacs.org>
* 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. "