From 5338e7381603262683c97d7e51037cd4787d1e67 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Fri, 25 Dec 2015 07:10:45 +0100 Subject: [PATCH] * 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 file changed, 18 insertions(+), 16 deletions(-) diff --git a/packages/debbugs/debbugs-gnu.el b/packages/debbugs/debbugs-gnu.el index 9ae0bc8d4..16091ac5a 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))) -- 2.39.2