Mercurial > emacs
comparison lisp/mail/emacsbug.el @ 18826:cb22b83e1bf8
Improve text of messages.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Thu, 17 Jul 1997 05:45:38 +0000 |
parents | 3446ea06d63f |
children | ac7814d08294 |
comparison
equal
deleted
inserted
replaced
18825:36119d2da68a | 18826:cb22b83e1bf8 |
---|---|
71 ;; The rest of this does not execute | 71 ;; The rest of this does not execute |
72 ;; if the user was asked to confirm and said no. | 72 ;; if the user was asked to confirm and said no. |
73 (goto-char (point-min)) | 73 (goto-char (point-min)) |
74 (re-search-forward (concat "^" (regexp-quote mail-header-separator) "\n")) | 74 (re-search-forward (concat "^" (regexp-quote mail-header-separator) "\n")) |
75 ;; Insert warnings for novice users. | 75 ;; Insert warnings for novice users. |
76 (insert "This mail is sent to Free Software Foundation, ") | 76 (insert "This bug report will be sent to the Free Software Foundation,\n") |
77 (let ((pos (point))) | 77 (let ((pos (point))) |
78 (insert "NOT TO YOUR SITE MANAGERS!!") | 78 (insert " not to your local site managers!!") |
79 (put-text-property pos (point) 'face 'highlight)) | 79 (put-text-property pos (point) 'face 'highlight)) |
80 (insert "\nPlease write in ") | 80 (insert "\nPlease write in ") |
81 (let ((pos (point))) | 81 (let ((pos (point))) |
82 (insert "ENGLISH ONLY") | 82 (insert "English") |
83 (put-text-property pos (point) 'face 'highlight)) | 83 (put-text-property pos (point) 'face 'highlight)) |
84 (insert ", recipients are not yet fully multilingualized.\n\n") | 84 (insert ", because the Emacs maintainers do not have |
85 translators to read other languages for them.\n\n") | |
85 | 86 |
86 (insert "In " (emacs-version) "\n") | 87 (insert "In " (emacs-version) "\n") |
87 (if (and system-configuration-options | 88 (if (and system-configuration-options |
88 (not (equal system-configuration-options ""))) | 89 (not (equal system-configuration-options ""))) |
89 (insert "configured using `configure " | 90 (insert "configured using `configure " |
169 ;; Check the buffer contents and reject non-English letters. | 170 ;; Check the buffer contents and reject non-English letters. |
170 (let ((charsets (delq 'ascii | 171 (let ((charsets (delq 'ascii |
171 (find-charset-region (point-min) (point-max))))) | 172 (find-charset-region (point-min) (point-max))))) |
172 (if charsets | 173 (if charsets |
173 (if (or report-emacs-bug-run-tersely | 174 (if (or report-emacs-bug-run-tersely |
174 (y-or-n-p "Convert Non-English letters to hexadecimal? ")) | 175 (y-or-n-p "Convert non-ASCII letters to hexadecimal? ")) |
175 (save-excursion | 176 (save-excursion |
176 (goto-char (point-min)) | 177 (goto-char (point-min)) |
177 (let ((enable-multibyte-characters nil) | 178 (let ((enable-multibyte-characters nil) |
178 (pattern (format "[%c-%c]" 128 255)) | 179 (pattern (format "[%c-%c]" 128 255)) |
179 ch) | 180 ch) |
180 (while (re-search-forward pattern nil t) | 181 (while (re-search-forward pattern nil t) |
181 (setq ch (preceding-char)) | 182 (setq ch (preceding-char)) |
182 (delete-char -1) | 183 (delete-char -1) |
183 (insert (format "=%02x" ch))))) | 184 (insert (format "=%02x" ch))))) |
184 (error "Please delete non-English chars by yourself")))) | 185 (error "Please convert non-ASCII characters to something else")))) |
185 | 186 |
186 ;; The last warning for novice users. | 187 ;; The last warning for novice users. |
187 (if (or report-emacs-bug-run-tersely | 188 (if (or report-emacs-bug-run-tersely |
188 (yes-or-no-p | 189 (yes-or-no-p |
189 "Do you surely send this mail to Free Software Foundation? ")) | 190 "Send this bug report to the Emacs maintainers? ")) |
190 ;; Just send the current mail. | 191 ;; Just send the current mail. |
191 nil | 192 nil |
192 (goto-char (point-min)) | 193 (goto-char (point-min)) |
193 (if (search-forward "To: ") | 194 (if (search-forward "To: ") |
194 (let ((pos (point))) | 195 (let ((pos (point))) |
195 (end-of-line) | 196 (end-of-line) |
196 (delete-region pos (point)))) | 197 (delete-region pos (point)))) |
197 (kill-local-variable 'mail-send-hook) | 198 (kill-local-variable 'mail-send-hook) |
198 (with-output-to-temp-buffer "*Bug Help*" | 199 (with-output-to-temp-buffer "*Bug Help*" |
199 (princ (substitute-command-keys "\ | 200 (princ (substitute-command-keys "\ |
200 You invoked the command report-emacs-bug (\\[report-emacs-bug]), | 201 You invoked the command M-x report-emacs-bug, |
201 but refused to send an e-mail report to Free Software Foundation. | 202 but you decided not to mail the bug report to the Emacs maintainers. |
202 | 203 |
203 If you want to send the mail to someone else, | 204 If you want to mail it to someone else instead, |
204 please insert the actual e-mail address after \"To: \", | 205 please insert the proper e-mail address after \"To: \", |
205 and send the mail again by \\[mail-send-and-exit]."))) | 206 and send the mail again using \\[mail-send-and-exit]."))) |
206 (error "Report-emacs-bug was cancelled, please read *Bug Help* buffer")) | 207 (error "M-x report-emacs-bug was cancelled, please read *Bug Help* buffer")) |
207 )) | 208 )) |
208 | 209 |
209 (provide 'emacsbug) | 210 (provide 'emacsbug) |
210 | 211 |
211 ;;; emacsbug.el ends here | 212 ;;; emacsbug.el ends here |