Set `gnus-bug' to report to the Emacs bug list.

* gnus.el (gnus-bug-package): Use "gnus."
(gnus-maintainer): Direct bug reports to submit@debbugs.gnu.org.

* gnus-msg.el (gnus-bug): Add Package and Version pseudo-headers to bug
reports.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 171806a..12e5633 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2011-06-28  Teodor Zlatanov  <tzz@lifelogs.com>
+
+       * gnus-msg.el (gnus-bug): Add Package and Version pseudo-headers to bug
+       reports.
+
+       * gnus.el (gnus-bug-package): Use "gnus."
+       (gnus-maintainer): Direct bug reports to submit@debbugs.gnu.org.
+

 2011-06-26  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * dgnushack.el: Make the timer warning go away on XEmacs.
 2011-06-26  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * dgnushack.el: Make the timer warning go away on XEmacs.

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index e256446..8e382e0 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -1461,6 +1461,8 @@ If YANK is non-nil, include the original article."
     (goto-char (point-min))
     (re-search-forward (concat "^" (regexp-quote mail-header-separator) "$"))
     (forward-line 1)
     (goto-char (point-min))
     (re-search-forward (concat "^" (regexp-quote mail-header-separator) "$"))
     (forward-line 1)

+    (insert (format "Package: %s\n" gnus-bug-package))
+    (insert (format "Version: %s\n" (gnus-continuum-version)))

     (insert (gnus-version) "\n"
            (emacs-version) "\n")
     (when (and (boundp 'nntp-server-type)
     (insert (gnus-version) "\n"
            (emacs-version) "\n")
     (when (and (boundp 'nntp-server-type)

diff --git a/lisp/gnus.el b/lisp/gnus.el
index ba40930..4aabd37 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -2654,9 +2654,13 @@ such as a mark that says whether an article is stored in the cache
 (defvar gnus-have-read-active-file nil)
 
 (defconst gnus-maintainer
 (defvar gnus-have-read-active-file nil)
 
 (defconst gnus-maintainer

-  "bugs@gnus.org (The Gnus Bugfixing Girls + Boys)"
+  "submit@debbugs.gnu.org (The Gnus Bugfixing Girls + Boys)"

   "The mail address of the Gnus maintainers.")
 
   "The mail address of the Gnus maintainers.")
 

+(defconst gnus-bug-package
+  "gnus"
+  "The package to use in the bug submission.")
+

 (defvar gnus-info-nodes
   '((gnus-group-mode "(gnus)Group Buffer")
     (gnus-summary-mode "(gnus)Summary Buffer")
 (defvar gnus-info-nodes
   '((gnus-group-mode "(gnus)Group Buffer")
     (gnus-summary-mode "(gnus)Summary Buffer")