CVS update by aidan xemacs/lisp ...

[xemacs-cvs at xemacs.org]

  User: aidan   
  Date: 07/11/28 22:24:01

  Modified:    xemacs/lisp ChangeLog simple.el
Log:
Don't nag about the mail user agent with bug reports, part 1 of 2.

Revision  Changes    Path
1.865     +8 -0      XEmacs/xemacs/lisp/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v
retrieving revision 1.864
retrieving revision 1.865
diff -u -p -r1.864 -r1.865
--- ChangeLog	2007/11/28 21:17:45	1.864
+++ ChangeLog	2007/11/28 21:23:55	1.865
@@ -1,5 +1,13 @@
 2007-11-28  Aidan Kehoe  <kehoea at parhasard.net>
 
+	* simple.el:
+	* simple.el (xemacs-default-composefunc-dont-nag): New.
+	Variable to be bound when using the xemacs-default-composefunc
+	and when nagging should be avoided (notably when submitting bug
+	report).
+
+2007-11-28  Aidan Kehoe  <kehoea at parhasard.net>
+
 	* mule/mule-cmds.el (create-variant-language-environment):
 	Set tutorial-coding-system to correspond to the original coding
 	system when creating the variant language environment. 



1.61      +4 -1      XEmacs/xemacs/lisp/simple.el

Index: simple.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/simple.el,v
retrieving revision 1.60
retrieving revision 1.61
diff -u -p -r1.60 -r1.61
--- simple.el	2007/10/13 14:08:30	1.60
+++ simple.el	2007/11/28 21:23:57	1.61
@@ -3433,10 +3433,13 @@ The properties used on SYMBOL are `compo
 ;;
 ;; and hope for the best. Not code we want to use, IMO.
 
+(defvar xemacs-default-composefunc-dont-nag nil
+  "Disable the `xemacs-default-composefunc' nagging; for bug reports.")
+
 (defun xemacs-default-composefunc (&rest args) 
   "Warn that the default mail-reading package is heinously underfeatured;
 compose a mail using it, all the same.  "
-  (unless (noninteractive)
+  (unless (or noninteractive xemacs-default-composefunc-dont-nag)
     (warn "
 
 Defaulting to the GNU Emacs-derived `sendmail.el' mail client. This facility,