;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:47:21 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/mail/emacsbug.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (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 "\300\301!\210\302\303\304\305\306\307\306\310&\207" [require sendmail custom-declare-group emacsbug nil "Sending Emacs bug reports." :group maint mail] 8) #@46 *Address of mailing list for GNU Emacs bugs. (custom-declare-variable 'report-emacs-bug-address '"bug-gnu-emacs@gnu.org" '(#$ . -791) :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" '(#$ . -963) :group 'emacsbug :type 'string) #@55 The automatically-created initial text of bug report. (defvar report-emacs-bug-orig-text nil (#$ . 1155)) #@77 *If non-nil, suppress the confirmations asked for the sake of novice users. (custom-declare-variable 'report-emacs-bug-no-confirmation 'nil '(#$ . -1267) :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 '(#$ . -1460) :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\307\"\310\211r\311\312!q\210\313 )\314 \203\f\202 @\"\210\315 \210\316y\210`d{A`d|\210Ac\210\317AG!\210)B\204\202\320c\210`C\321c\210\322C`\323\324$\210)\325c\210`C\326c\210\322C`\323\324$\210)\327c\210\330\331 \203q\f\202r \"c\210 \203\332c\210\202\202\333c\210\334\300 \335\261\210D\203\234D\336\232\204\234\337D\340\261\210\341c\210\342\343\344\"\210\330\345E\"c\210\330\346F\"c\210\335c\210\347\350\261\210`\351\352\261\210`G\353\354-\206\315\355 \356#c\210\214G`}\210Gb\210\357\360!\210m\204\357\361\356\310\362#\210\335c\210\202\333*\363\312!\211H\203\310 IJrHq\210Ib\210\364y\210`J)\365c\210\366HJI#\210*)\367\370 \371 \244!\210\372\371 \373\374#\210B\204^\375\220K\376=\203D\377\201M\201N!!\210\377\201M\201O!!\210\201P \210\377\201M\201Q!!\221\210\201R\201S!\210\201T\201S\201U\"\210\212db\210\201V\310x\210\201R\201L!\210e`{L)\nb+\207" [emacs-version message-end-point user-point pretest-p report-emacs-bug-pretest-address report-emacs-bug-address string-match "\\..*\\..*\\." nil get-buffer-create "*Messages*" point-max-marker compose-mail rfc822-goto-eoh 1 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" format "Your bug report will be posted to the %s mailing list" ".\n\n" ",\nand to the gnu.emacs.bug news group.\n\n" "In " "\n" "" "configured using `configure " "'\n" "Important settings:\n" mapcar #[(var) "\301\302\303!#c\207" [var format " value of $%s: %s\n" getenv] 5] ("LC_ALL" "LC_COLLATE" "LC_CTYPE" "LC_MESSAGES" "LC_MONETARY" "LC_NUMERIC" "LC_TIME" "LANG") " locale-coding-system: %s\n" " default-enable-multibyte-characters: %s\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 get-buffer -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 topic signature report-emacs-bug-no-explanations pos system-configuration-options locale-coding-system default-enable-multibyte-characters before-keys message-buf end-pos beg-pos mail-user-agent report-emacs-bug-orig-text 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"] 6 (#$ . 1652) (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 (#$ . 4958) 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)