[elpa] externals/debbugs 2e43897 127/311: Also suppress all locally tagged bug reports

[Stefan Monnier]

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

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

diff --git a/debbugs-gnu.el b/debbugs-gnu.el
index 95e60ac..24d8e4b 100644
--- a/debbugs-gnu.el
+++ b/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