Mercurial > hg > xemacs-beta

changeset 4293:bea04dade8af

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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.
author aidan
date Wed, 28 Nov 2007 21:23:57 +0000
parents 0194a744d2d3
children 01a2c678e91f
files lisp/ChangeLog lisp/simple.el
diffstat 2 files changed, 12 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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):
--- 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,