From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 8 Dec 2020 13:20:10 +0000 (+0100)
Subject: Use the proper face for the Gnus mode line id
X-Git-Tag: emacs-28.0.90~4853
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=06168c124d67a331c9e4b95d807531f697c320dc;p=emacs.git

Use the proper face for the Gnus mode line id

* lisp/gnus/gnus-sum.el (gnus-set-mode-line):
* lisp/gnus/gnus-group.el (gnus-group-set-mode-line): Use the
mode-line-buffer-id face on the buffer id.
---

diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el
index a0f27c1937b..24534a1b66d 100644
--- a/lisp/gnus/gnus-group.el
+++ b/lisp/gnus/gnus-group.el
@@ -1745,7 +1745,8 @@ already.  If INFO-UNCHANGED is non-nil, dribble buffer is not updated."
 	(prog1
 	    (setq mode-line-buffer-identification
 		  (gnus-mode-line-buffer-identification
-		   (list mode-string)))
+		   (list (propertize mode-string
+				     'face 'mode-line-buffer-id))))
 	  (set-buffer-modified-p modified))))))
 
 (defun gnus-group-group-name ()
diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index 8c826e88c73..9432eefcb4d 100644
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -6254,7 +6254,9 @@ If WHERE is `summary', the summary mode line format will be used."
 		   mode-string (- max-len 3) nil nil t)))))
       ;; Update the mode line.
       (setq mode-line-buffer-identification
-	    (gnus-mode-line-buffer-identification (list mode-string)))
+	    (gnus-mode-line-buffer-identification
+	     (list (propertize mode-string
+			       'face 'mode-line-buffer-id))))
       (set-buffer-modified-p t))))
 
 (defun gnus-create-xref-hashtb (from-newsgroup headers unreads)