[elpa] externals/debbugs a024431 036/311: * debbugs-gnu.el (debbugs-toggle-sort): Sort the tagged bugs at

[Stefan Monnier]

branch: externals/debbugs
commit a0244316f9473fe689acd89be87d3a6b81857a7d
Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
Commit: Lars Magne Ingebrigtsen <larsi@gnus.org>

    * debbugs-gnu.el (debbugs-toggle-sort): Sort the tagged bugs at
    the end.
---
 ChangeLog      |  5 +++++
 debbugs-gnu.el | 14 +++++++++-----
 2 files changed, 14 insertions(+), 5 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index d9da724..e28b61c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2011-07-06  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * debbugs-gnu.el (debbugs-toggle-sort): Sort the tagged bugs at
+       the end.
+
 2011-07-05  Michael Albinus  <michael.albinus@gmx.de>
 
        * debbugs-gnu.el (debbugs-owner): Removed.  We use `debbugs-tagged'
diff --git a/debbugs-gnu.el b/debbugs-gnu.el
index 2f3c588..407b05d 100644
--- a/debbugs-gnu.el
+++ b/debbugs-gnu.el
@@ -382,11 +382,15 @@ The following commands are available:
       (sort-subr
        nil (lambda () (forward-line 1)) 'end-of-line
        (lambda ()
-        (if (eq debbugs-sort-state 'number)
-            (debbugs-current-id)
-          (or (cdr (assq (get-text-property (+ (point) 7) 'face)
-                         debbugs-state-preference))
-              10)))))
+        (let ((id (debbugs-current-id)))
+          (if (eq debbugs-sort-state 'number)
+              id
+            ;; Sort the tagged ones at the end.
+            (or (and (memq id debbugs-local-tags)
+                     20)
+                (cdr (assq (get-text-property (+ (point) 7) 'face)
+                           debbugs-state-preference))
+                10))))))
     (if (not current-bug)
        (goto-char start-point)
       (goto-char (point-min))