[Emacs-diffs] master ce32fb8: Make c-submit-bug-report file reports at debbugs.gnu.org. (Bug#15784)

[Glenn Morris]

branch: master
commit ce32fb872b3ae1037be1106afa92410f0c349385
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>

    Make c-submit-bug-report file reports at debbugs.gnu.org.  (Bug#15784)
    
    * lisp/progmodes/cc-mode.el (c-mode-help-address):
    Change to address@hidden
    (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.
---
 doc/misc/cc-mode.texi     |   11 ++++++-----
 lisp/progmodes/cc-mode.el |   12 +++++++++++-
 2 files changed, 17 insertions(+), 6 deletions(-)

diff --git a/doc/misc/cc-mode.texi b/doc/misc/cc-mode.texi
index 5ad29cd..c90a7db 100644
--- 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
address@hidden://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 3c1aec4..8365702 100644
--- 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
-  "address@hidden"
+  "address@hidden"
   "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)))))))