[elpa] master 053f0fd: Also suppress all locally tagged bug reports

[Lars Ingebrigtsen]

branch: master
commit 053f0fdbb784a25439a023c6a7a692a34c74377c
Author: Lars Magne Ingebrigtsen <address@hidden>
Date:   Sat Dec 6 19:04:12 2014 +0100

    Also suppress all locally tagged bug reports
---
 packages/debbugs/debbugs-gnu.el |   15 ++++++++-------
 1 files changed, 8 insertions(+), 7 deletions(-)

diff --git a/packages/debbugs/debbugs-gnu.el b/packages/debbugs/debbugs-gnu.el
index 95e60ac..24d8e4b 100644
--- a/packages/debbugs/debbugs-gnu.el
+++ b/packages/debbugs/debbugs-gnu.el
@@ -728,13 +728,14 @@ Used instead of `tabulated-list-print-entry'."
               (memq (cdr (assq 'id list-id)) debbugs-gnu-current-limit))
           ;; Filter suppressed bugs.
           (or (not (widget-get debbugs-gnu-current-widget :suppress))
-              (not (catch :suppress
-                     (dolist (check debbugs-gnu-default-suppress-bugs)
-                       (when
-                           (string-match
-                            (cdr check)
-                            (or (cdr (assq (car check) list-id)) ""))
-                         (throw :suppress t))))))
+              (and (not (memq (cdr (assq 'id list-id)) debbugs-gnu-local-tags))
+                   (not (catch :suppress
+                          (dolist (check debbugs-gnu-default-suppress-bugs)
+                            (when
+                                (string-match
+                                 (cdr check)
+                                 (or (cdr (assq (car check) list-id)) ""))
+                              (throw :suppress t)))))))
           ;; Filter search list.
           (not (catch :suppress
                  (dolist (check