[elpa] externals/debbugs d7b7072 060/311: * debbugs-gnu.el (debbugs-gnu-show-reports): Add packages to the status bar.

[Stefan Monnier]

branch: externals/debbugs
commit d7b70726cbe1436c1187fe155bfc8d97cb2bcf68
Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
Commit: Lars Magne Ingebrigtsen <larsi@gnus.org>

    * debbugs-gnu.el (debbugs-gnu-show-reports): Add packages to the status bar.
---
 ChangeLog      | 5 +++++
 debbugs-gnu.el | 3 +++
 2 files changed, 8 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index d3a0d0b..c24fbfa 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2011-07-17  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * debbugs-gnu.el (debbugs-gnu-show-reports): Add packages to the
+       status bar.
+
 2011-07-16  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * debbugs-gnu.el (debbugs-gnu-send-control-message): Add "invalid".
diff --git a/debbugs-gnu.el b/debbugs-gnu.el
index 07cd96a..54922c0 100644
--- a/debbugs-gnu.el
+++ b/debbugs-gnu.el
@@ -321,6 +321,9 @@
        (unless (equal (cdr (assq 'pending status)) "pending")
          (setq words
                (concat words "," (cdr (assq 'pending status)))))
+       (let ((packages (delete "emacs" (cdr (assq 'package status)))))
+         (when packages
+           (setq words (concat words "," (mapconcat 'identity packages ",")))))
        (when (setq merged (cdr (assq 'mergedwith status)))
          (setq words (format "%s,%s"
                              (if (numberp merged)