emacs-28 8865fc0 4/4: Add 'erc-bug' command for reporting ERC bugs

[Amin Bandali]

branch: emacs-28
commit 8865fc02abbf36aaa9801e74d82538336005eded
Author: Amin Bandali <bandali@gnu.org>
Commit: Amin Bandali <bandali@gnu.org>

    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.
---
 etc/ERC-NEWS    | 7 ++++++-
 lisp/erc/erc.el | 9 +++++++++
 2 files changed, 15 insertions(+), 1 deletion(-)

diff --git a/etc/ERC-NEWS b/etc/ERC-NEWS
index 49fc077..5a2f30a 100644
--- 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.
+
 
 * Changes in ERC 5.3
 
diff --git a/lisp/erc/erc.el b/lisp/erc/erc.el
index c87238d..c347638 100644
--- 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."