[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/debbugs 0c2daec 051/311: * debbugs-gnu.el (debbugs-gnu-
From: |
Stefan Monnier |
Subject: |
[elpa] externals/debbugs 0c2daec 051/311: * debbugs-gnu.el (debbugs-gnu-sort-state): Give tagged bugs |
Date: |
Sun, 29 Nov 2020 18:41:38 -0500 (EST) |
branch: externals/debbugs
commit 0c2daecc037010cdd3a169965ff82b1d86349847
Author: Michael Albinus <michael.albinus@gmx.de>
Commit: Michael Albinus <michael.albinus@gmx.de>
* debbugs-gnu.el (debbugs-gnu-sort-state): Give tagged bugs
priority 20. In case there is just the severity list '("tagged"),
do not use that priority.
(debbugs-gnu-sort-title): Fix silly bug.
---
ChangeLog | 7 +++++++
debbugs-gnu.el | 32 +++++++++++++++++++++-----------
2 files changed, 28 insertions(+), 11 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index b9a3c57..0a22b8a 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,12 @@
2011-07-11 Michael Albinus <michael.albinus@gmx.de>
+ * debbugs-gnu.el (debbugs-gnu-sort-state): Give tagged bugs
+ priority 20. In case there is just the severity list '("tagged"),
+ do not use that priority.
+ (debbugs-gnu-sort-title): Fix silly bug.
+
+2011-07-11 Michael Albinus <michael.albinus@gmx.de>
+
* debbugs-gnu.el (top): Require `tabulated-list'. Autoload
`widget-convert'.
(debbugs-gnu-handled, debbugs-gnu-stale): Fix docstring.
diff --git a/debbugs-gnu.el b/debbugs-gnu.el
index 6a09320..dd99d86 100644
--- a/debbugs-gnu.el
+++ b/debbugs-gnu.el
@@ -71,14 +71,19 @@
;; Furthermore, you could apply the global actions
-;; "s": Toggle bug sorting
;; "g": Rescan bugs
-;; "x": Suppress closed bugs
;; "q": Quit the buffer
+;; "s": Toggle bug sorting for age or for state
+;; "x": Toggle suppressing of closed bugs
;; When you visit the related bug messages in Gnus, you could also
;; send control messages by keystroke "C".
+;; In the header line of every bug list page, you can toggle sorting
+;; per column by selecting a column with the mouse. The sorting
+;; happens as expected for the respective column; sorting in the Title
+;; column is depending on whether you are the owner of a bug.
+
;;; Code:
(require 'debbugs)
@@ -370,7 +375,7 @@
Used instead of `tabulated-list-print-entry'."
;; This shall be in `debbugs-gnu-show-reports'. But
;; `tabulated-list-print' erases the buffer, therefore we do it
- ;; here.
+ ;; here. (bug#9047)
(when (and debbugs-gnu-widgets (= (point) (point-min)))
(widget-insert "Page:")
(mapc
@@ -418,6 +423,7 @@ Used instead of `tabulated-list-print-entry'."
;; Insert title.
(indent-to (setq pos (+ pos submitter-length 1)) 1)
(insert (propertize title 'help-echo title))
+ ;; Add properties.
(add-text-properties
beg (point) `(tabulated-list-id ,list-id mouse-face ,widget-mouse-face))
(insert ?\n))))
@@ -501,22 +507,26 @@ The following commands are available:
(st1 (aref (nth 1 s1) 1))
(id2 (cdr (assq 'id (car s2))))
(st2 (aref (nth 1 s2) 1)))
- (< (or (and (memq id1 debbugs-gnu-local-tags) 0)
+ (< (or (and (memq id1 debbugs-gnu-local-tags)
+ (not (equal debbugs-gnu-current-severities '("tagged")))
+ 20)
(cdr (assq (get-text-property 0 'face st1)
debbugs-gnu-state-preference))
10)
- (or (and (memq id2 debbugs-gnu-local-tags) 0)
+ (or (and (memq id2 debbugs-gnu-local-tags)
+ (not (equal debbugs-gnu-current-severities '("tagged")))
+ 20)
(cdr (assq (get-text-property 0 'face st2)
debbugs-gnu-state-preference))
10))))
(defun debbugs-gnu-sort-title (s1 s2)
- (let ((owner1 (cdr (assq 'owner (car s1))))
- (owner2 (cdr (assq 'owner (car s2)))))
- (and (stringp owner1)
- (string-equal owner1 user-mail-address)
- (or (not (stringp owner2))
- (not (string-equal owner1 user-mail-address))))))
+ (let ((owner (if (cdr (assq 'owner (car s1)))
+ (car (mail-header-parse-address
+ (decode-coding-string (cdr (assq 'owner (car s1)))
+ 'utf-8))))))
+ (and (stringp owner)
+ (string-equal owner user-mail-address))))
(defun debbugs-gnu-toggle-sort ()
"Toggle sorting by age and by state."
- [elpa] externals/debbugs 080565c 074/311: * debbugs-gnu.el (debbugs-gnu-search): Add full text search., (continued)
- [elpa] externals/debbugs 080565c 074/311: * debbugs-gnu.el (debbugs-gnu-search): Add full text search., Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 560f17c 080/311: * debbugs.el (debbugs-get-mbox, debbugs-get-bugs): Fix typos in, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 298ea80 081/311: * debbugs.texi: Update documentation., Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs e56e7b3 083/311: Change default value of `debbugs-gnu-default-severities' to '("important" "normal"), Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs b00d778 087/311: Make sure the buffer isn't read-only before altering., Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 5495087 089/311: Allow ignoring matches in From/Subject when narrowing., Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs df2ec72 042/311: (debbugs-summary-mode): Remove address@hidden from the list, too., Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 1c81865 045/311: * debbugs-gnu.el (debbugs-gnu-*): Rename from `debbugs-*'., Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs ba9a8ca 046/311: (debbugs-gnu-send-control-message): Add donenotabug and donewontfix., Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs bbe09ae 047/311: (debbugs-gnu-send-control-message): Add doneunreproducible., Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 0c2daec 051/311: * debbugs-gnu.el (debbugs-gnu-sort-state): Give tagged bugs,
Stefan Monnier <=
- [elpa] externals/debbugs d189263 054/311: * debbugs.el (debbugs-get-bugs): Weaken syntax for packages (and, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 3f67f71 061/311: * debbugs.el (debbugs-get-bugs): Add search keywords :src :maint, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 083a6e4 048/311: Fix last checkin., Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 88f1cbf 050/311: * debbugs-gnu.el (top): Require `tabulated-list'. Autoload, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 9c3eb76 057/311: Sort pending bugs towards the end, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 5f5509b 062/311: * debbugs-gnu.el (debbugs-gnu-get-bugs): It is sufficient to have, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs a889460 064/311: * debbugs-gnu.el (debbugs-gnu-default-suppress-bugs): New customer, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 42d8bd5 065/311: Allow sending bug control messages from random modes., Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 37245ae 067/311: * debbugs.texi (top): Add a title page., Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs b15eaf2 068/311: * debbugs-gnu.el (debbugs-gnu-get-bugs): If, Stefan Monnier, 2020/11/29