Mercurial > hg > xemacs-beta
comparison lisp/simple.el @ 4293:bea04dade8af
[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 | 38ef5a6da799 |
children | a78d697ccd2c |
comparison
equal
deleted
inserted
replaced
4292:0194a744d2d3 | 4293:bea04dade8af |
---|---|
3431 ;; | 3431 ;; |
3432 ;; =========================================== | 3432 ;; =========================================== |
3433 ;; | 3433 ;; |
3434 ;; and hope for the best. Not code we want to use, IMO. | 3434 ;; and hope for the best. Not code we want to use, IMO. |
3435 | 3435 |
3436 (defvar xemacs-default-composefunc-dont-nag nil | |
3437 "Disable the `xemacs-default-composefunc' nagging; for bug reports.") | |
3438 | |
3436 (defun xemacs-default-composefunc (&rest args) | 3439 (defun xemacs-default-composefunc (&rest args) |
3437 "Warn that the default mail-reading package is heinously underfeatured; | 3440 "Warn that the default mail-reading package is heinously underfeatured; |
3438 compose a mail using it, all the same. " | 3441 compose a mail using it, all the same. " |
3439 (unless (noninteractive) | 3442 (unless (or noninteractive xemacs-default-composefunc-dont-nag) |
3440 (warn " | 3443 (warn " |
3441 | 3444 |
3442 Defaulting to the GNU Emacs-derived `sendmail.el' mail client. This facility, | 3445 Defaulting to the GNU Emacs-derived `sendmail.el' mail client. This facility, |
3443 while part of base XEmacs, is heinously underfeatured, and not going to get | 3446 while part of base XEmacs, is heinously underfeatured, and not going to get |
3444 better in the medium term. We include it so that bug reports work without | 3447 better in the medium term. We include it so that bug reports work without |