X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/094c2205fbd6168b6b60fe5e3ddc1254151daec2..147793a050f0555da00b7b47547e2ed53b420769:/packages/debbugs/debbugs-gnu.el

diff --git a/packages/debbugs/debbugs-gnu.el b/packages/debbugs/debbugs-gnu.el
index 2f3c5883e..407b05d41 100644
--- 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))