summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorLars Ingebrigtsen <larsi@gnus.org>2017-02-07 15:50:39 +0100
committerLars Ingebrigtsen <larsi@gnus.org>2017-02-07 15:52:41 +0100
commit4b59f53b673899bccb9f98925237999b03e5261c (patch)
treebe8afe89d695512423b923a2b586a04ad890ace8 /lisp
parentc939075b81b2b06c5ec040d7039fd20433509273 (diff)
downloademacs-4b59f53b673899bccb9f98925237999b03e5261c.tar.gz
emacs-4b59f53b673899bccb9f98925237999b03e5261c.tar.bz2
emacs-4b59f53b673899bccb9f98925237999b03e5261c.zip
Revert "Don't tag Gnus bugs with "gnus""
This reverts commit b6fa58072304c2a24f1fe8a0e06a4739a7f8211b. The debbugs syntax requires a package name
Diffstat (limited to 'lisp')
-rw-r--r--lisp/gnus/gnus-msg.el6
-rw-r--r--lisp/gnus/gnus.el4
2 files changed, 9 insertions, 1 deletions
diff --git a/lisp/gnus/gnus-msg.el b/lisp/gnus/gnus-msg.el
index a193ab41348..85969edc81b 100644
--- a/lisp/gnus/gnus-msg.el
+++ b/lisp/gnus/gnus-msg.el
@@ -1535,7 +1535,11 @@ If YANK is non-nil, include the original article."
(message-pop-to-buffer "*Gnus Bug*"))
(let ((message-this-is-mail t))
(message-setup `((To . ,gnus-maintainer)
- (Subject . ""))))
+ (Subject . "")
+ (X-Debbugs-Package
+ . ,(format "%s" gnus-bug-package))
+ (X-Debbugs-Version
+ . ,(format "%s" (gnus-continuum-version))))))
(when gnus-bug-create-help-buffer
(push `(gnus-bug-kill-buffer) message-send-actions))
(goto-char (point-min))
diff --git a/lisp/gnus/gnus.el b/lisp/gnus/gnus.el
index bbf85fe584a..ef6bd89c36e 100644
--- a/lisp/gnus/gnus.el
+++ b/lisp/gnus/gnus.el
@@ -2654,6 +2654,10 @@ such as a mark that says whether an article is stored in the cache
"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")