[COMMIT] Don't nag about the mail user agent with bug reports, part 1 of 2

[Aidan Kehoe]

APPROVE COMMIT

NOTE: This patch has been committed.

lisp/ChangeLog addition:

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).


XEmacs Trunk source patch:
Diff command:   cvs -q diff -Nu
Files affected: lisp/simple.el
===================================================================
RCS

Index: lisp/simple.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/simple.el,v
retrieving revision 1.60
diff -u -u -r1.60 simple.el
--- lisp/simple.el	2007/10/13 14:08:30	1.60
+++ lisp/simple.el	2007/11/28 21:20:57
@@ -3433,10 +3433,13 @@
 ;;
 ;; 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,

-- 
¿Dónde estará ahora mi sobrino Yoghurtu Nghé, que tuvo que huir
precipitadamente de la aldea por culpa de la escasez de rinocerontes?