;ELC   
;;; compiled by rms@mole.gnu.ai.mit.edu on Wed Jul 20 01:44:08 1994
;;; from file /home/fsf/rms/e19/lisp/reporter.el
;;; emacs version 19.25.90.2.
;;; bytecomp version FSF 2.10
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19")))
    (error "`/home/fsf/rms/e19/lisp/reporter.el' was compiled for Emacs 19"))

(defvar reporter-mailer (quote (vm-mail mail)) "\
*Mail package to use to generate bug report buffer.
This can either be a function symbol or a list of function symbols.
If a list, it tries to use each specified mailer in order until an
existing one is found.")
(defvar reporter-prompt-for-summary-p nil "\
Interface variable controlling prompting for problem summary.
When non-nil, `reporter-submit-bug-report' prompts the user for a
brief summary of the problem, and puts this summary on the Subject:
line.

Default behavior is to not prompt (i.e. nil). If you want reporter to
prompt, you should `let' bind this variable to t before calling
`reporter-submit-bug-report'.  Note that this variable is not
buffer-local so you should never just `setq' it.")
(defvar reporter-eval-buffer nil "\
Buffer to retrieve variable's value from.
This is necessary to properly support the printing of buffer-local
variables.  Current buffer will always be the mail buffer being
composed.")
(defconst reporter-version "2.12" "\
Reporter version number.")
(defvar reporter-initial-text nil "\
The automatically created initial text of a bug report.")
(byte-code "ÀÁ!ˆÂÃÄ\"ˆÂÅÆ\"ˆÂÇÈ\"ˆÂÉÊ\"ˆÂËÌ\"ˆÍÎ!‡" [make-variable-buffer-local reporter-initial-text defalias reporter-dump-variable #[(varsym mailbuf) "ÀÁÂ‡" [nil (byte-code "Šqˆ	J)Â	!Ã`ÈÉÊ>ƒ! Ë‚6 <ƒ+ Ì‚6 9ƒ5 Ì‚6 ËÍ!±ˆ<ƒX Î iWƒX Š\fbˆÏÐ!ˆÑÒÓˆ)Ôc,‡" [reporter-eval-buffer varsym symbol-name t here print-escape-newlines sym val "     " " " (t nil) "" "'" prin1-to-string window-width down-list 1 nil (byte-code "ÀÁ!ˆÂcˆÃ ŠÄuˆi)Wƒ$ ÅÇŽÈ )Å‰“ˆ)É ˆ‚  " [forward-sexp 1 "\n" window-width -1 nil stop ((byte-code "ÀyˆÁ`Âˆ`\"ˆÃÄ!ˆb‡" [-1 fill-region nil delete-char 1 stop] 3)) point-marker lisp-indent-line] 3) ((error)) "\n"] 6) ((void-variable (byte-code "ŠqˆÁÂ!ˆÃˆÄ!Æ±)‡" [mailbuf mail-position-on-field "X-Reporter-Void-Vars-Found" nil symbol-name varsym " "] 2)) (error (error)))] 3] reporter-dump-state #[(pkgname varlist pre-hooks post-hooks) "p‰qˆÁÂ Ã±ˆ\fƒ Å\fÃ±ˆÆÇ!ˆƒ' ÉcˆÊËÌˆÆÍ!)‡" [buffer "Emacs  : " emacs-version "\n" pkgname "Package: " run-hooks pre-hooks varlist "\ncurrent state:\n==============\n" fault (byte-code "pÀÁ!Š\nqˆÄ ˆÅ ˆÆcˆÇ ˆÈÉ\n\"ˆËcˆÌ ˆÍ ˆ)Î\n!ˆ*À‡" [get-buffer-create " *tmp-reporter-buffer*" elbuf mailbuf emacs-lisp-mode erase-buffer "(setq\n" lisp-indent-line mapcar #[(varsym-or-cons-cell) "¢† £†\f Á\n\f\"*‡" [varsym-or-cons-cell reporter-dump-variable printer varsym mailbuf] 3] varlist ")\n" beginning-of-defun indent-sexp insert-buffer] 3) ((error (byte-code "ÀÁÂ\"Ä±‡" ["State could not be dumped due to the following error:\n\n" format "%s" fault "\n\nYou should still send this bug report."] 4))) post-hooks] 4] reporter-calculate-separator #[nil "ŠÀÁÂÃÄÅÆ!EÈ#ÉQÊË#ˆÌ”Ì•{)‡" [re-search-forward "^\\(" mapconcat identity "[	 ]*" "-+" regexp-quote mail-header-separator "\\|" "\\)$" nil move 0] 8] reporter-submit-bug-report #[(address pkgname varlist &optional pre-hooks post-hooks salutation) "pÀ‰	…\n ÂÃ!Ä<„ ‚H À‰ƒ; È@!ƒ2 @À‰‚ A‰„ „E ÉÊË\"ˆ*!ˆp\fÑÒ!ˆÓ!ˆÓ\f!ˆebˆÔ Ö×!ˆcˆ	ƒŒ ƒŒ ƒŒ ÖÚ!ˆÛ±ˆÜdÝ#ˆÞyˆ`ƒ¥ àá±ˆâŽã ácˆä%&'$ˆbˆ*èé!ƒÜ ŠdbˆêÀxˆ`{+)ìí!ˆéíî\"ˆï0ñòÀó#‰4ƒñ õ4!‚ò ö7øù07#.‡" [nil reporter-prompt-for-summary-p read-string "(Very) brief summary of problem: " call-interactively reporter-mailer mailer mlist commandp error "variable `%s' does not contain a command for mailing." "reporter-mailer" mailbuf problem after-sep-pos final-resting-place reporter-eval-buffer require sendmail pop-to-buffer reporter-calculate-separator mail-header-separator mail-position-on-field "to" address pkgname "subject" "; " re-search-forward move 1 salutation "\n" "\n\n" ((byte-code "Á‰“‡" [final-resting-place nil] 3)) point-marker reporter-dump-state varlist pre-hooks post-hooks fboundp add-hook " 	\n" reporter-initial-text make-variable-buffer-local mail-send-hook reporter-bug-hook "C-c C-c" sendkey where-is-internal kill-buffer t killkey-whereis key-description "M-x kill-buffer" killkey message "Please type in your report. Hit %s to send, %s to abort."] 9] reporter-bug-hook #[nil "ŠÀ ˆÁÂ dÃ#ˆÄyˆ`)ŠdbˆÆÇxˆ`ZGU…/ `{˜…/ ÉÊ!*‡" [beginning-of-buffer re-search-forward reporter-calculate-separator move 1 after-sep-pos " 	\n" nil reporter-initial-text error "Empty bug report cannot be sent."] 4] provide reporter] 3)