;ELC ;;; Compiled by rms@psilocin.gnu.org on Sat May 9 19:28:02 1998 ;;; from file /gd/gnu/emacs/lisp/mail/emacsbug.el ;;; in Emacs version 20.2.93.3 ;;; with bytecomp version 2.41 ;;; with all optimizations. ;;; This file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`emacsbug.el' was compiled for Emacs 19.29 or later")) (byte-code "\301\302!\210\303\304\305\306\307\310&\207" [:group require sendmail custom-declare-group emacsbug nil "Sending Emacs bug reports." maint mail] 8) #@46 *Address of mailing list for GNU Emacs bugs. (custom-declare-variable 'report-emacs-bug-address '"bug-gnu-emacs@gnu.org" '(#$ . -698) :group 'emacsbug :type 'string) #@54 *Address of mailing list for GNU Emacs pretest bugs. (custom-declare-variable 'report-emacs-bug-pretest-address '"emacs-pretest-bug@gnu.org" '(#$ . -870) :group 'emacsbug :type 'string) #@55 The automatically-created initial text of bug report. (defvar report-emacs-bug-orig-text nil (#$ . 1062)) #@77 *If non-nil, suppress the confirmations asked for the sake of novice users. (custom-declare-variable 'report-emacs-bug-no-confirmation 'nil '(#$ . -1174) :group 'emacsbug :type 'boolean) #@76 *If non-nil, suppress the explanations given for the sake of novice users. (custom-declare-variable 'report-emacs-bug-no-explanations 'nil '(#$ . -1367) :group 'emacsbug :type 'boolean) #@83 Report a bug in GNU Emacs. Prompts for bug subject. Leaves you in a mail buffer. (defalias 'report-emacs-bug #[(topic &optional recent-keys) "\306\211r\307\310!q\210\311 )\312\313\314\n\"\203 \202\f \"\210\315 \210\316y\210`d{@\317\306!\210`d|\210@c\210\320@G!\210)A\204h\321c\210`B\322c\210\323B`\324\325$\210)\326c\210`B\327c\210\323B`\324\325$\210)\330c\210\331\302 \332\261\210C\203\202C\333\232\204\202\334C\335\261\210\332c\210\336\337\261\210`\340\341\261\210`D\342\343$\206\235\344 \345#c\210\214D`}\210Db\210\346\347!\210m\204\277\350\345\306\351#\210\332c\210\202\253*\307\310!\211E\203\354\306FGrEq\210Fb\210\352y\210`G)\353c\210\354EGF#\210*)\355\356 \357 \244!\210\360\357 \361\362#\210A\204 \363\220H\364=\203\365\366\367!!\210\365\366\370!!\210\371 \210\365\366\372!!\221\210\373\374!\210\375\374\376\"\210\212db\210\377\306x\210\373\201I!\210e`{I) b*\207" [message-end-point user-point emacs-version report-emacs-bug-pretest-address report-emacs-bug-address topic nil get-buffer "*Messages*" point-max-marker compose-mail string-match "\\..*\\..*\\." rfc822-goto-eoh 1 set-buffer-multibyte backward-char "This bug report will be sent to the Free Software Foundation,\n" " not to your local site managers!!" put-text-property face highlight "\nPlease write in " "English" ", because the Emacs maintainers do not have\ntranslators to read other languages for them.\n\n" "In " "\n" "" "configured using `configure " "'\n" "Please describe exactly what actions triggered the bug\n" "and the precise symptoms of the bug:\n\n" "\n\n\n" "Recent input:\n" mapconcat #[(key) "\250\2049\204<\203\301!\207\302\303\"\207" [key single-key-description prin1-to-string nil] 3] recent-keys " " move-to-column 50 search-forward t -10 "\n\nRecent messages:\n" insert-buffer-substring use-local-map make-sparse-keymap current-local-map define-key " " report-emacs-bug-info "*Bug Help*" sendmail-user-agent princ substitute-command-keys "Type \\[mail-send-and-exit] to send the bug report.\n" "Type \\[kill-buffer] RET to cancel (don't send it).\n" terpri "Type \\[report-emacs-bug-info] to visit in Info the Emacs Manual section\nabout when and how to write a bug report,\nand what information to supply so that the bug can be fixed.\nType SPC to scroll through this section and its subsections." make-local-variable mail-send-hook add-hook report-emacs-bug-hook " \n" signature report-emacs-bug-no-explanations pos system-configuration-options before-keys message-buf end-pos beg-pos mail-user-agent report-emacs-bug-orig-text] 6 (#$ . 1559) (byte-code "\300\301 \302\303!D!\207" [reverse recent-keys read-string "Bug Subject: "] 4)]) #@46 Go to the Info node on reporting Emacs bugs. (defalias 'report-emacs-bug-info #[nil "\300 \210\301 \210\302\303!\210\304\305!\207" [info Info-directory Info-menu "emacs" Info-goto-node "Bugs"] 2 (#$ . 4263) nil]) (defalias 'report-emacs-bug-hook #[nil "\212db\210\304\305x\210`eZGU\203e`{\232\203\306\307!\210\212eb\210\310\305w\210m\204K \2043\311\312!\203K\310\305w\210m\204Kg\313\314!\210\315\316\n\"c\210)\2023) \206S\317\320!?\205zeb\210\321\322!\203j`\305\210 `|\210)\323\324!\210\325\220\326\327\330!!\221\210\306\331!)\207" [report-emacs-bug-orig-text report-emacs-bug-no-confirmation ch pos " \n" nil error "No text entered in bug report" "-" y-or-n-p "Convert non-ASCII letters to hexadecimal? " delete-char 1 format "=%02x" yes-or-no-p "Send this bug report to the Emacs maintainers? " search-forward "To: " kill-local-variable mail-send-hook "*Bug Help*" princ substitute-command-keys "You invoked the command M-x report-emacs-bug,\nbut you decided not to mail the bug report to the Emacs maintainers.\n\nIf you want to mail it to someone else instead,\nplease insert the proper e-mail address after \"To: \",\nand send the mail again using \\[mail-send-and-exit]." "M-x report-emacs-bug was cancelled, please read *Bug Help* buffer"] 4]) (provide 'emacsbug)