From 06168c124d67a331c9e4b95d807531f697c320dc Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Tue, 8 Dec 2020 14:20:10 +0100 Subject: [PATCH] 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 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) -- 2.39.2