[elpa] master 5338e73: * debbugs-gnu.el (debbugs-gnu-select-report): Don't bug out on the

[Lars Ingebrigtsen]

branch: master
commit 5338e7381603262683c97d7e51037cd4787d1e67
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

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

diff --git a/packages/debbugs/debbugs-gnu.el b/packages/debbugs/debbugs-gnu.el
index 9ae0bc8..16091ac 100644
--- a/packages/debbugs/debbugs-gnu.el
+++ b/packages/debbugs/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)))