# HG changeset patch
# User aidan
# Date 1196285037 0
# Node ID bea04dade8af960a5e6551667a8d1e4b443cf4b4
# Parent  0194a744d2d37d70f57516e81d732924163271d0
[xemacs-hg @ 2007-11-28 21:23:55 by aidan]
Don't nag about the mail user agent with bug reports, part 1 of 2.

diff -r 0194a744d2d3 -r bea04dade8af lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Nov 28 21:17:55 2007 +0000
+++ b/lisp/ChangeLog	Wed Nov 28 21:23:57 2007 +0000
@@ -1,3 +1,11 @@
+2007-11-28  Aidan Kehoe  <kehoea@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@parhasard.net>
 
 	* mule/mule-cmds.el (create-variant-language-environment):
diff -r 0194a744d2d3 -r bea04dade8af lisp/simple.el
--- a/lisp/simple.el	Wed Nov 28 21:17:55 2007 +0000
+++ b/lisp/simple.el	Wed Nov 28 21:23:57 2007 +0000
@@ -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,