Add 'erc-bug' command for reporting ERC bugs

* etc/ERC-NEWS: Announce the new command, and mention it at the top of
the file along with 'report-emacs-bug'.
* lisp/erc/erc.el (erc-bug): New command for reporting ERC bugs.  It
prompts for a subject, and passes it on to 'report-emacs-bug' along
with the current ERC version, with the ERC mailing list in Cc.

diff --git a/etc/ERC-NEWS b/etc/ERC-NEWS
index 49fc07726d52ada72b788e448ff7182772c9eedd..5a2f30ad8c19967e033bae05995f33f0b8cbc93b 100644 (file)
--- a/etc/ERC-NEWS
+++ b/etc/ERC-NEWS
@@ -5,7 +5,7 @@ See the end of the file for license conditions.
 
 Please send ERC bug reports to 'bug-gnu-emacs@gnu.org',
 and Cc the 'emacs-erc@gnu.org' mailing list as well.
-If possible, use 'M-x report-emacs-bug'.
+If possible, use 'M-x erc-bug' or 'M-x report-emacs-bug'.
 
 This file is about changes in ERC, the powerful, modular, and
 extensible IRC (Internet Relay Chat) client distributed with
@@ -157,6 +157,11 @@ a different server than the one the current user is connected to.
 Using the given nick itself instead of the server it is connected to
 is not standardized, but is widely supported across IRC networks.
 
+*** Add 'erc-bug' command for reporting ERC bugs.
+The new 'erc-bug' command prompts for a subject, and passes it on to
+'report-emacs-bug' along with the current ERC version, and adds the
+ERC mailing list in Cc.
+
 \f
 * Changes in ERC 5.3
 

diff --git a/lisp/erc/erc.el b/lisp/erc/erc.el
index c87238d0b778a2ed00cbe298a05a56dc7975c9aa..c34763846598221cbfaa95e9db1d9de3adab34bc 100644 (file)
--- a/lisp/erc/erc.el
+++ b/lisp/erc/erc.el
@@ -6620,6 +6620,15 @@ If BUFFER is nil, update the mode line in all ERC buffers."
 
 ;; Miscellaneous
 
+(defun erc-bug (subject)
+  "Send a bug report to the Emacs bug tracker and ERC mailing list."
+  (interactive "sBug Subject: ")
+  (report-emacs-bug
+   (format "ERC %s: %s" erc-version subject))
+  (save-excursion
+    (goto-char (point-min))
+    (insert "X-Debbugs-CC: emacs-erc@gnu.org\n")))
+
 (defun erc-port-to-string (p)
   "Convert port P to a string.
 P may be an integer or a service name."