From: Ted Zlatanov <tzz@lifelogs.com>
Date: Sat, 2 Jul 2011 01:36:50 +0000 (-0500)
Subject: * gnus-msg.el (gnus-bug):  Bring the Version and Package pseudo-headers back.
X-Git-Url: http://cgit.sxemacs.org/?a=commitdiff_plain;h=96abea840b45eec3c3bfb249e5da77227b76fcc5;p=gnus

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fccd7ff6b..0f97039b9 100644
--- 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 ec9813246..9fdd3bba9 100644
--- 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")