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 a0f27c1937b195a590d9ec1d637cff38ade53281..24534a1b66d889ba4656a83e83dd7d623670a6b9 100644 (file)
--- 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 8c826e88c73dba1e744478a0b5159d9ba95f0bf2..9432eefcb4d53a21c2522b249a8abb69daaa173e 100644 (file)
--- 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)