* debbugs-gnu.el (debbugs-gnu-show-reports): Add packages to the status bar.

diff --git a/packages/debbugs/ChangeLog b/packages/debbugs/ChangeLog
index d3a0d0bc5f8dd47892ce76a4c880513fc4b877c8..c24fbfa8566f2085ff0d386f54fb5f1d729650de 100644 (file)
--- a/packages/debbugs/ChangeLog
+++ b/packages/debbugs/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/packages/debbugs/debbugs-gnu.el b/packages/debbugs/debbugs-gnu.el
index 07cd96af0e8ceeeff9ffaaabca4a8fa2dc35ca51..54922c035d9f75a1719aadd17fcc4e8a4c2658f1 100644 (file)
--- a/packages/debbugs/debbugs-gnu.el
+++ b/packages/debbugs/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)