[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 3dc62c2: Add command to show mailboxes for all currently s
From: |
Robert Pluim |
Subject: |
[elpa] master 3dc62c2: Add command to show mailboxes for all currently shown reports |
Date: |
Fri, 22 Nov 2019 09:11:07 -0500 (EST) |
branch: master
commit 3dc62c20c14972512407b1e8cf288f8343117a03
Author: Robert Pluim <address@hidden>
Commit: Robert Pluim <address@hidden>
Add command to show mailboxes for all currently shown reports
* debbugs-gnu.el (debbugs-gnu-mode-map): Add binding for
debbugs-gnu-select-current-bugs.
(debbugs-gnu-select-bugs-limit-max): New defconst. Max for
debbugs-gnu-select-bugs-limit.
(debbugs-gnu-select-bugs-limit): New defcustom. Limits how many bugs
debbugs-gnu-select-current-bugs will retrieve.
(debbugs-gnu-select-current-bugs): New function. Shows mailboxes
for all currently shown bugs.
(debbugs-gnu-select-current-bugs-with-gnus): Implementation of mailbox
retrieval using Gnus.
* debbugs-ug.texi (Tabulated Lists): Add description of
debbugs-gnu-select-current-bugs.
---
packages/debbugs/debbugs-gnu.el | 49 +++++++++++++++++++++++++++++++++++++++-
packages/debbugs/debbugs-ug.texi | 8 +++++++
2 files changed, 56 insertions(+), 1 deletion(-)
diff --git a/packages/debbugs/debbugs-gnu.el b/packages/debbugs/debbugs-gnu.el
index 8941869..c59b279 100644
--- a/packages/debbugs/debbugs-gnu.el
+++ b/packages/debbugs/debbugs-gnu.el
@@ -983,6 +983,7 @@ Used instead of `tabulated-list-print-entry'."
(set-keymap-parent map tabulated-list-mode-map)
(define-key map "\r" 'debbugs-gnu-select-report)
(define-key map [mouse-2] 'debbugs-gnu-select-report)
+ (define-key map "A" 'debbugs-gnu-select-current-bugs)
(define-key map "g" 'debbugs-gnu-rescan)
(define-key map "R" 'debbugs-gnu-show-all-blocking-reports)
(define-key map "C" 'debbugs-gnu-send-control-message)
@@ -1002,10 +1003,14 @@ Used instead of `tabulated-list-print-entry'."
(define-key menu-map [debbugs-gnu-select-report]
'(menu-item "Show Reports" debbugs-gnu-select-report
:help "Show all reports belonging to this bug"))
+ (define-key-after menu-map [debbugs-gnu-select-current]
+ '(menu-item "Show Reports For All" debbugs-gnu-select-current-bugs
+ :help "Show reports for all currently shown bugs")
+ 'debbugs-gnu-select-report)
(define-key-after menu-map [debbugs-gnu-rescan]
'(menu-item "Refresh Bugs" debbugs-gnu-rescan
:help "Refresh bug list")
- 'debbugs-gnu-select-report)
+ 'debbugs-gnu-select-current)
(define-key-after menu-map [debbugs-gnu-show-all-blocking-reports]
'(menu-item "Show Release Blocking Bugs"
debbugs-gnu-show-all-blocking-reports
@@ -1411,6 +1416,48 @@ MERGED is the list of bugs merged with this one."
(define-key rmail-mode-map "E" 'debbugs-gnu-make-control-message)
(rmail-show-message 1)))
+(defconst debbugs-gnu-select-bugs-limit-max 50
+ "Absolute maximum for `debbugs-gnu-select-bugs-limit'.")
+(defcustom debbugs-gnu-select-bugs-limit 10
+ "Maximum number of bugs to retrieve for multi-bug mailbox group.
+This applies for `debbugs-gnu-select-current-bugs'.
+Maximum allowed value is 50 to avoid overloading the server."
+ :type '(integer
+ :validate
+ (lambda (widget)
+ (unless (<= 1
+ (widget-value widget)
+ debbugs-gnu-select-bugs-limit-max)
+ (widget-put widget :error
+ (format "Invalid value: range is 1..%d"
debbugs-gnu-select-bugs-limit-max)))))
+ :version "27.1")
+
+(defun debbugs-gnu-select-current-bugs ()
+ "Retrieve the mailboxes for all currently shown bugs.
+Limited by `debbugs-gnu-select-bugs-limit'."
+ (interactive)
+ (unless (eq debbugs-gnu-mail-backend 'gnus)
+ (error "This function only works with Gnus."))
+ (debbugs-gnu-select-current-bugs-with-gnus))
+
+(defun debbugs-gnu-select-current-bugs-with-gnus ()
+ "Create a Gnus group of the messages from the currently shown bugs."
+ (save-excursion
+ (let ((mbox-url
+ (replace-regexp-in-string
+ ";mboxstat=yes" ""
+ (alist-get 'emacs gnus-bug-group-download-format-alist)
+ nil t))
+ ids)
+ (goto-char (point-min))
+ (dotimes (i debbugs-gnu-select-bugs-limit)
+ (push (debbugs-gnu-current-id t) ids)
+ (push (cdr (assq 'mergedwith (debbugs-gnu-current-status))) ids)
+ (forward-line 1))
+ (setq ids (delete nil (nreverse ids)))
+ (gnus-read-ephemeral-bug-group ids mbox-url)
+ (debbugs-gnu-summary-mode 1))))
+
(defcustom debbugs-gnu-lars-workflow nil
"If non-nil, set some Gnus vars as preferred by Lars."
:type 'boolean
diff --git a/packages/debbugs/debbugs-ug.texi b/packages/debbugs/debbugs-ug.texi
index 6ac095b..7c49a06 100644
--- a/packages/debbugs/debbugs-ug.texi
+++ b/packages/debbugs/debbugs-ug.texi
@@ -385,6 +385,14 @@ The bug report buffers have enabled the minor
Show the email messages that discuss the bug.
@* @item
+@kindex @kbd{A}
+@kbd{A} @tab
+@code{debbugs-gnu-select-current-bugs} @*
+Show the email messages for all currently displayed messages
+(including merged reports). Limited by user option
+@code{debbugs-gnu-select-bugs-limit}.
+
+@item
@kindex @kbd{d}
@kbd{d} @tab
@code{debbugs-gnu-display-status} @*
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] master 3dc62c2: Add command to show mailboxes for all currently shown reports,
Robert Pluim <=