[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 5338e73: * debbugs-gnu.el (debbugs-gnu-select-report): Don
From: |
Lars Ingebrigtsen |
Subject: |
[elpa] master 5338e73: * debbugs-gnu.el (debbugs-gnu-select-report): Don't bug out on the |
Date: |
Fri, 25 Dec 2015 06:10:54 +0000 |
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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] master 5338e73: * debbugs-gnu.el (debbugs-gnu-select-report): Don't bug out on the,
Lars Ingebrigtsen <=