[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/debbugs 36e5d9a 279/311: Add command to show mailboxes
From: |
Stefan Monnier |
Subject: |
[elpa] externals/debbugs 36e5d9a 279/311: Add command to show mailboxes for all currently shown reports |
Date: |
Sun, 29 Nov 2020 18:42:29 -0500 (EST) |
branch: externals/debbugs
commit 36e5d9ae69cf043990170944d0be8a67ebdf1278
Author: Robert Pluim <rpluim@gmail.com>
Commit: Robert Pluim <rpluim@gmail.com>
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.
---
debbugs-gnu.el | 49 ++++++++++++++++++++++++++++++++++++++++++++++++-
debbugs-ug.texi | 8 ++++++++
2 files changed, 56 insertions(+), 1 deletion(-)
diff --git a/debbugs-gnu.el b/debbugs-gnu.el
index 8941869..c59b279 100644
--- a/debbugs-gnu.el
+++ b/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/debbugs-ug.texi b/debbugs-ug.texi
index 6ac095b..7c49a06 100644
--- a/debbugs-ug.texi
+++ b/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} @*
- [elpa] externals/debbugs 38ae622 307/311: Remove blank header line in debbugs-gnu.el, (continued)
- [elpa] externals/debbugs 38ae622 307/311: Remove blank header line in debbugs-gnu.el, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 43b142a 305/311: Declare variables in debbugs-gnu.el, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs f2be042 309/311: Fix typo in previous debbugs-gnu change, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 528825b 311/311: * .gitignore: New file, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 649b0c8 181/311: Get more info from patches in debbugs-gnu, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs ffe5b92 231/311: Fix previous patch, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 5179be4 222/311: Increase debbugs version to 0.14, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 4a24833 245/311: Fix previous change, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 743f65c 258/311: Allow applying patches selectively, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs ff6784a 273/311: Replace http:// by https:// in debbugs, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 36e5d9a 279/311: Add command to show mailboxes for all currently shown reports,
Stefan Monnier <=
- [elpa] externals/debbugs c3ec95a 282/311: Implement debbugs-gnu-select-current-bugs-with-rmail, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 01c2322 283/311: Release debbugs 0.21, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 1563806 290/311: Release debbugs 0.23, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs dc88f7d 291/311: Autoload debbugs-browse-url., Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs cca9282 297/311: Make the debbugs display more compact so that you can read the titles, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 6bb1538 298/311: Add support for marking bugs as well, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 86a7788 220/311: Add "guix-patches" to debbugs, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 8aa30e4 227/311: Recognize bugs.gnu.org in debbugs, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 17af596 225/311: ; Update author email address in debbugs, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 7be84fa 248/311: ; Commit debbugs-ug.info, minor edits in debbugs-gnu.el, Stefan Monnier, 2020/11/29