Mercurial > emacs

changeset 18795:3446ea06d63f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(report-emacs-bug-run-tersely): New variable (report-emacs-bug): Insert warnings for novice usres in *mail* buffer. Set enable-multibyte-characters to nil. (report-emacs-bug-hook): Check non-English letters. Confirm about sending a report to FSF.
author Kenichi Handa <handa@m17n.org>
date Tue, 15 Jul 1997 08:23:58 +0000
parents 631776603b13
children ab40b57484c1
files lisp/mail/emacsbug.el
diffstat 1 files changed, 58 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/emacsbug.el	Tue Jul 15 08:23:58 1997 +0000
+++ b/lisp/mail/emacsbug.el	Tue Jul 15 08:23:58 1997 +0000
@@ -47,6 +47,10 @@
   "The automatically-created initial text of bug report.")
 
 ;;;###autoload
+(defvar report-emacs-bug-run-tersely nil
+  "*If non-nil, suppress confirmations for novice users.")
+
+;;;###autoload
 (defun report-emacs-bug (topic &optional recent-keys)
   "Report a bug in GNU Emacs.
 Prompts for bug subject.  Leaves you in a mail buffer."
@@ -68,6 +72,17 @@
 	;; if the user was asked to confirm and said no.
 	(goto-char (point-min))
 	(re-search-forward (concat "^" (regexp-quote mail-header-separator) "\n"))
+	;; Insert warnings for novice users.
+	(insert "This mail is sent to Free Software Foundation, ")
+	(let ((pos (point)))
+	  (insert "NOT TO YOUR SITE MANAGERS!!")
+	  (put-text-property pos (point) 'face 'highlight))
+	(insert "\nPlease write in ")
+	(let ((pos (point)))
+	  (insert "ENGLISH ONLY")
+	  (put-text-property pos (point) 'face 'highlight))
+	(insert ", recipients are not yet fully multilingualized.\n\n")
+
 	(insert "In " (emacs-version) "\n")
 	(if (and system-configuration-options
 		 (not (equal system-configuration-options "")))
@@ -123,6 +138,8 @@
 	;; Make it less likely people will send empty messages.
 	(make-local-variable 'mail-send-hook)
 	(add-hook 'mail-send-hook 'report-emacs-bug-hook)
+	;; Discourage users to write non-English text.
+	(setq enable-multibyte-characters nil)
 	(save-excursion
 	  (goto-char (point-max))
 	  (skip-chars-backward " \t\n")
@@ -147,7 +164,47 @@
 		(length report-emacs-bug-orig-text))
 	     (equal (buffer-substring (point-min) (point))
 		    report-emacs-bug-orig-text))
-	(error "No text entered in bug report"))))
+	(error "No text entered in bug report"))
+
+    ;; Check the buffer contents and reject non-English letters.
+    (let ((charsets (delq 'ascii
+			  (find-charset-region (point-min) (point-max)))))
+      (if charsets
+	  (if (or report-emacs-bug-run-tersely
+		  (y-or-n-p "Convert Non-English letters to hexadecimal? "))
+	      (save-excursion
+		(goto-char (point-min))
+		(let ((enable-multibyte-characters nil)
+		      (pattern (format "[%c-%c]" 128 255))
+		      ch)
+		  (while (re-search-forward pattern nil t)
+		    (setq ch (preceding-char))
+		    (delete-char -1)
+		    (insert (format "=%02x" ch)))))
+	    (error "Please delete non-English chars by yourself"))))
+
+    ;; The last warning for novice users.
+    (if (or report-emacs-bug-run-tersely
+	    (yes-or-no-p
+	     "Do you surely send this mail to Free Software Foundation? "))
+	;; Just send the current mail.
+	nil
+      (goto-char (point-min))
+      (if (search-forward "To: ")
+	  (let ((pos (point)))
+	    (end-of-line)
+	    (delete-region pos (point))))
+      (kill-local-variable 'mail-send-hook)
+      (with-output-to-temp-buffer "*Bug Help*"
+	(princ (substitute-command-keys "\
+You invoked the command report-emacs-bug (\\[report-emacs-bug]),
+but refused to send an e-mail report to Free Software Foundation.
+
+If you want to send the mail to someone else,
+please insert the actual e-mail address after \"To: \",
+and send the mail again by \\[mail-send-and-exit].")))
+      (error "Report-emacs-bug was cancelled, please read *Bug Help* buffer"))
+    ))
 
 (provide 'emacsbug)