* debbugs-gnu.el (debbugs-toggle-sort): Sort the tagged bugs at

[gnu-emacs-elpa] / packages / debbugs / debbugs-gnu.el

diff --git a/packages/debbugs/debbugs-gnu.el b/packages/debbugs/debbugs-gnu.el
index 2f3c5883e59be0a67e40c2a93f92d3c4a70d1d14..407b05d411e6ec898f72c381533ad9f80a2372b0 100644 (file)
--- a/packages/debbugs/debbugs-gnu.el
+++ b/packages/debbugs/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))