[elpa] externals/debbugs 23786a1 146/311: * debbugs-gnu.el (debbugs-gnu-select-report): Don't bug out on the

[Stefan Monnier]

branch: externals/debbugs
commit 23786a1cb28cf60c9c8a8dc6a979fb5f5aed310e
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    * debbugs-gnu.el (debbugs-gnu-select-report): Don't bug out on the
    last line in the buffer.
---
 debbugs-gnu.el | 34 ++++++++++++++++++----------------
 1 file changed, 18 insertions(+), 16 deletions(-)

diff --git a/debbugs-gnu.el b/debbugs-gnu.el
index 9ae0bc8..16091ac 100644
--- a/debbugs-gnu.el
+++ b/debbugs-gnu.el
@@ -1120,22 +1120,24 @@ MERGED is the list of bugs merged with this one."
   (let* ((status (debbugs-gnu-current-status))
         (id (cdr (assq 'id status)))
         (merged (cdr (assq 'mergedwith status))))
-    (if (eq debbugs-gnu-mail-backend 'rmail)
-       (debbugs-read-emacs-bug-with-rmail id status (if (listp merged)
-                                                        merged
-                                                      (list merged)))
-      ;; Use Gnus.
-      (gnus-read-ephemeral-emacs-bug-group
-       (cons id (if (listp merged)
-                   merged
-                 (list merged)))
-       (cons (current-buffer)
-            (current-window-configuration)))
-      (with-current-buffer (window-buffer (selected-window))
-       (set (make-local-variable 'debbugs-gnu-bug-number) id)
-       (set (make-local-variable 'debbugs-gnu-subject)
-            (format "Re: bug#%d: %s" id (cdr (assq 'subject status))))
-       (debbugs-gnu-summary-mode 1)))))
+    (if (not id)
+       (message "No bug report on the current line")
+      (if (eq debbugs-gnu-mail-backend 'rmail)
+         (debbugs-read-emacs-bug-with-rmail id status (if (listp merged)
+                                                          merged
+                                                        (list merged)))
+       ;; Use Gnus.
+       (gnus-read-ephemeral-emacs-bug-group
+        (cons id (if (listp merged)
+                     merged
+                   (list merged)))
+        (cons (current-buffer)
+              (current-window-configuration)))
+       (with-current-buffer (window-buffer (selected-window))
+         (set (make-local-variable 'debbugs-gnu-bug-number) id)
+         (set (make-local-variable 'debbugs-gnu-subject)
+              (format "Re: bug#%d: %s" id (cdr (assq 'subject status))))
+         (debbugs-gnu-summary-mode 1))))))
 
 (defvar debbugs-gnu-summary-mode-map
   (let ((map (make-sparse-keymap)))