(riece-submit-bug-report): Signal an error when riece-debug is nil.

diff --git a/lisp/riece.el b/lisp/riece.el
index 8457cf5..524f2d8 100644 (file)
--- a/lisp/riece.el
+++ b/lisp/riece.el
@@ -545,14 +545,15 @@ Instead, these commands are available:
                     (recent-keys)))
   (require 'reporter)
   (let ((reporter-prompt-for-summary-p t))
                     (recent-keys)))
   (require 'reporter)
   (let ((reporter-prompt-for-summary-p t))

-    (when (y-or-n-p "Do you want to submit a report on Riece? ")
-      (reporter-submit-bug-report
-       "liece@unixuser.org"
-       (riece-version)
-       '(riece-debug)
-       nil
-       nil
-       "This bug report will be sent to the Riece Development Team,
+    (unless riece-debug
+      (error "Please turn on riece-debug and restart Riece."))
+    (reporter-submit-bug-report
+     "liece@unixuser.org"
+     (riece-version)
+     '(riece-debug)
+     nil
+     nil
+     "This bug report will be sent to the Riece Development Team,

 not to your local site managers!!
 
 Please write in Japanese or English, because the Riece maintainers do
 not to your local site managers!!
 
 Please write in Japanese or English, because the Riece maintainers do

@@ -610,7 +611,7 @@ are familiar with the debugger, to get a lisp back-trace.")
        ;; Insert recent minibuffer messages.
        (insert "\nRecent messages (most recent first):\n"
                "-----------------------------------\n"
        ;; Insert recent minibuffer messages.
        (insert "\nRecent messages (most recent first):\n"
                "-----------------------------------\n"

-               recent-messages)))))
+               recent-messages))))

 
 (provide 'riece)
 
 
 (provide 'riece)