[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 06168c1 2/2: Use the proper face for the Gnus mode line id
From: |
Lars Ingebrigtsen |
Subject: |
master 06168c1 2/2: Use the proper face for the Gnus mode line id |
Date: |
Tue, 8 Dec 2020 08:20:20 -0500 (EST) |
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)