Commits

Anonymous committed 2a73f08

2001-08-07 Steve Youngs <youngs@xemacs.org>

* xemacsbug.el (report-xemacs-bug-send-init): New.
(report-xemacs-bug): Use it.

Comments (0)

Files changed (3)

+2001-08-07  Steve Youngs  <youngs@xemacs.org>
+
+	* xemacsbug.el (report-xemacs-bug-send-init): New.
+	(report-xemacs-bug): Use it.
+
 2001-08-06  Steve Youngs  <youngs@xemacs.org>
 
 	* emacsbug.el: Removed.
 # the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 # Boston, MA 02111-1307, USA.
 
-VERSION = 1.18
+VERSION = 1.19
 AUTHOR_VERSION =
 MAINTAINER = XEmacs Development Team <xemacs-beta@xemacs.org>
 PACKAGE = net-utils
   :group 'xemacsbug
   :type 'boolean)
 
+(defcustom report-xemacs-bug-send-init nil
+  "*If non-nil, include the user's init.el file in the bug report."
+  :group 'xemacsbug
+  :type 'boolean)
+
 ;;;###autoload
 (defun report-xemacs-bug (topic &optional recent-keys)
   "Report a bug in XEmacs.
       (print-recent-messages 20)
       (insert "\n"))
     ;; Insert the contents of the user's init file if it exists.
-    (if (file-readable-p user-init-file)
-	(save-excursion
-	  (goto-char (point-max))
-	  (beginning-of-line)
-	  (insert "\n\nUser Init File:\n--------------\n\n")
-	  (insert-file-contents user-init-file)))
+    (if report-xemacs-bug-send-init
+      (if (file-readable-p user-init-file)
+	  (save-excursion
+	    (goto-char (point-max))
+	    (beginning-of-line)
+	    (insert "\n\nUser Init File:\n--------------\n\n")
+	    (insert-file-contents user-init-file))))
     ;; This is so the user has to type something
     ;; in order to send easily.
     (use-local-map (let ((map (make-sparse-keymap)))