Make c-submit-bug-report file reports at debbugs.gnu.org. (Bug#15784)

* lisp/progmodes/cc-mode.el (c-mode-help-address):
Change to submit@debbugs.
(c-mode-bug-package): New constant.
(mail-position-on-field): Declare.
(c-submit-bug-report): Insert X-Debbugs-Package header.

* doc/misc/cc-mode.texi (Mailing Lists and Bug Reports):
Mention debbugs.gnu.org.

diff --git a/doc/misc/cc-mode.texi b/doc/misc/cc-mode.texi
index 5ad29cd79ad4501a7962272cadd07cadb7784aa4..c90a7db5cec5a35491bb89f6b34cbb2fb80d30d3 100644 (file)
--- a/doc/misc/cc-mode.texi
+++ b/doc/misc/cc-mode.texi
@@ -7173,11 +7173,12 @@ configuration.  In that case, we'd appreciate it if you isolate the
 Emacs Lisp code that triggers the bug and include it in your report.
 
 @cindex bug report mailing list
-Bug reports should be sent to @email{bug-cc-mode@@gnu.org}.  You can
-also send other questions and suggestions (kudos?@: @t{;-)} to that
-address.  It's a mailing list which you can join or browse an archive
-of; see the web site at @uref{http://cc-mode.sourceforge.net/} for
-further details.
+Reporting a bug using @code{c-submit-bug-report} files it in
+the GNU Bug Tracker at @url{http://debbugs.gnu.org}, then sends it on
+to @email{bug-cc-mode@@gnu.org}.  You can also send reports, other
+questions, and suggestions (kudos?@: @t{;-)} to that address.  It's a
+mailing list which you can join or browse an archive of; see the web site at
+@uref{http://cc-mode.sourceforge.net/} for further details.
 
 @cindex announcement mailing list
 If you want to get announcements of new @ccmode{} releases, send the

diff --git a/lisp/progmodes/cc-mode.el b/lisp/progmodes/cc-mode.el
index 3c1aec472cdbe786737c992115df49c521f4ddd5..83657023bed9553586a21459591e6a0789f6de73 100644 (file)
--- a/lisp/progmodes/cc-mode.el
+++ b/lisp/progmodes/cc-mode.el
@@ -1823,7 +1823,7 @@ Key bindings:
 ;; bug reporting
 
 (defconst c-mode-help-address
-  "bug-cc-mode@gnu.org"
+  "submit@debbugs.gnu.org"
   "Address(es) for CC Mode bug reports.")
 
 (defun c-version ()
@@ -1840,6 +1840,13 @@ Key bindings:
 (defvar reporter-prompt-for-summary-p)
 (defvar reporter-dont-compact-list)
 
+;; This could be "emacs,cc-mode" in the version included in Emacs.
+(defconst c-mode-bug-package "cc-mode"
+  "The package to use in the bug submission.")
+
+;; reporter-submit-bug-report requires sendmail.
+(declare-function mail-position-on-field "sendmail" (field &optional soft))
+
 (defun c-submit-bug-report ()
   "Submit via mail a bug report on CC Mode."
   (interactive)
@@ -1903,6 +1910,9 @@ Key bindings:
        vars)
       (lambda ()
        (run-hooks 'c-prepare-bug-report-hook)
+       (save-excursion
+         (or (mail-position-on-field "X-Debbugs-Package")
+             (insert c-mode-bug-package)))
        (insert (format "Buffer Style: %s\nc-emacs-features: %s\n"
                        style c-features)))))))