X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/cb047bb6ac7d9a53b51c2a017286cc9d4dfc17a5..3eabb90988772b072f47fc8fe6d538e93ba20a14:/packages/debbugs/debbugs-gnu.el

diff --git a/packages/debbugs/debbugs-gnu.el b/packages/debbugs/debbugs-gnu.el
index 1621a342d..cc9599183 100644
--- a/packages/debbugs/debbugs-gnu.el
+++ b/packages/debbugs/debbugs-gnu.el
@@ -851,7 +851,7 @@ The following commands are available:
   "Display all the currently selected bug reports."
   (interactive)
   (let ((id (debbugs-gnu-current-id t))
-	(buffer-read-only nil))
+	(inhibit-read-only t))
     (setq debbugs-gnu-current-limit nil)
     (tabulated-list-init-header)
     (tabulated-list-print)
@@ -864,8 +864,9 @@ If STATUS-ONLY (the prefix), ignore matches in the From and
 Subject fields."
   (interactive "sNarrow to: \np")
   (let ((id (debbugs-gnu-current-id t))
-	(buffer-read-only nil)
+	(inhibit-read-only t)
 	status)
+    (setq debbugs-gnu-current-limit nil)
     (goto-char (point-min))
     (while (not (eobp))
       (setq status (debbugs-gnu-current-status))