Re: can Gnus simply use the Emacs bug tracker?

[Ted Zlatanov <tzz@lifelogs.com>]

[-- Attachment #1: Type: text/plain, Size: 880 bytes --]

On Thu, 17 Mar 2011 17:52:30 +0100 Lars Magne Ingebrigtsen <larsi@gnus.org> wrote: 

LMI> Ted Zlatanov <tzz@lifelogs.com> writes:
>> So M-x gnus-bug will: 1) send to submit@debbugs, and 2) set the Package
>> to either "gnus" in a Gnus checkout, or "emacs,gnus" in a trunk
>> checkout.  No mail server reconfiguration will be necessary.

LMI> Sounds good to me.

New look:

 To: submit@debbugs.gnu.org (The Gnus Bugfixing Girls + Boys)
 Subject: 
 From: Ted Zlatanov <tzz@lifelogs.com>
 --text follows this line--
 Package: gnus
 No Gnus v0.14
...

where the package comes from the new defconst in gnus.el:

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

which can be overridden in Emacs trunk or derived in some other way (I
think it's better to handle it as a VCS merge issue than to try to write
code to guess).  Simple patch follows.

Ted


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: gnus-debbugs.patch --]
[-- Type: text/x-diff, Size: 1127 bytes --]

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 093eec3..053a9e4 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -1450,6 +1450,7 @@ 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)
+    (insert (format "Package: %s\n" gnus-bug-package))
     (insert (gnus-version) "\n"
 	    (emacs-version) "\n")
     (when (and (boundp 'nntp-server-type)
diff --git a/lisp/gnus.el b/lisp/gnus.el
index 6c48a11..29080fe 100644
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -2632,9 +2632,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
-  "bugs@gnus.org (The Gnus Bugfixing Girls + Boys)"
+  "submit@debbugs.gnu.org (The Gnus Bugfixing Girls + Boys)"
   "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")