master 06168c1 2/2: Use the proper face for the Gnus mode line id

[Lars Ingebrigtsen]

branch: master
commit 06168c124d67a331c9e4b95d807531f697c320dc
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    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.
---
 lisp/gnus/gnus-group.el | 3 ++-
 lisp/gnus/gnus-sum.el   | 4 +++-
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el
index a0f27c19..24534a1 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 8c826e8..9432eef 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)