[elpa] externals/debbugs 3cf7c83 129/311: Make an empty `/' command display all the bugs

[Stefan Monnier]

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

    Make an empty `/' command display all the bugs
---
 debbugs-gnu.el | 30 ++++++++++++++++--------------
 1 file changed, 16 insertions(+), 14 deletions(-)

diff --git a/debbugs-gnu.el b/debbugs-gnu.el
index 4381be9..e478cf6 100644
--- a/debbugs-gnu.el
+++ b/debbugs-gnu.el
@@ -934,20 +934,22 @@ Subject fields."
        (inhibit-read-only t)
        status)
     (setq debbugs-gnu-current-limit nil)
-    (goto-char (point-min))
-    (while (not (eobp))
-      (setq status (debbugs-gnu-current-status))
-      (if (and (not (member string (assq 'keywords status)))
-              (not (member string (assq 'severity status)))
-              (or status-only
-                  (not (string-match string (cdr (assq 'originator status)))))
-              (or status-only
-                  (not (string-match string (cdr (assq 'subject status))))))
-         (delete-region (point) (progn (forward-line 1) (point)))
-       (push (cdr (assq 'id status)) debbugs-gnu-current-limit)
-       (forward-line 1)))
-    (when id
-      (debbugs-gnu-goto id))))
+    (if (equal string "")
+       (debbugs-gnu-toggle-suppress)
+      (goto-char (point-min))
+      (while (not (eobp))
+       (setq status (debbugs-gnu-current-status))
+       (if (and (not (member string (assq 'keywords status)))
+                (not (member string (assq 'severity status)))
+                (or status-only
+                    (not (string-match string (cdr (assq 'originator 
status)))))
+                (or status-only
+                    (not (string-match string (cdr (assq 'subject status))))))
+           (delete-region (point) (progn (forward-line 1) (point)))
+         (push (cdr (assq 'id status)) debbugs-gnu-current-limit)
+         (forward-line 1)))
+      (when id
+       (debbugs-gnu-goto id)))))
 
 (defun debbugs-gnu-goto (id)
   "Go to the line displaying bug ID."