* gnus-msg.el (gnus-bug): Bring the Version and Package pseudo-headers back.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fccd7ff..0f97039 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,7 @@
 
        * gnus-msg.el (gnus-bug): Give the Version and Package headers to
        debbugs with the X-Debbugs-Package and X-Debbugs-Version headers.
+       Bring the pseudo-headers back too.
 
 2011-07-01  Daiki Ueno  <ueno@unixuser.org>
 

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index ec98132..9fdd3bb 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -1466,6 +1466,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)
+    (insert (format "Package: %s\n" gnus-bug-package))
+    (insert (format "Version: %s\n" (gnus-continuum-version)))
     (insert "\n")
     (insert (gnus-version) "\n"
            (emacs-version) "\n")