[elpa] master 5fe6944: Make an empty `/' command display all the bugs

[Lars Ingebrigtsen]

branch: master
commit 5fe6944713fb27884788d475502221500689784f
Author: Lars Magne Ingebrigtsen <address@hidden>
Date:   Tue Dec 9 00:12:58 2014 +0100

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

diff --git a/packages/debbugs/debbugs-gnu.el b/packages/debbugs/debbugs-gnu.el
index 4381be9..e478cf6 100644
--- a/packages/debbugs/debbugs-gnu.el
+++ b/packages/debbugs/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."