summaryrefslogtreecommitdiff
path: root/lisp/gnus/gnus-srvr.el
diff options
context:
space:
mode:
authorVisuwesh <visuweshm@gmail.com>2022-09-23 18:21:55 +0200
committerLars Ingebrigtsen <larsi@gnus.org>2022-09-23 18:21:55 +0200
commit41d39ffc3269db33f35541c94ebf109ffb50681e (patch)
treebb8ef7ddf7f0bc7d5eea15bbfa91784fb9dbef06 /lisp/gnus/gnus-srvr.el
parentcf27fe0238f88e2aee972334be75962f438cfa94 (diff)
downloademacs-41d39ffc3269db33f35541c94ebf109ffb50681e.tar.gz
Make Gnus respect mode-line-buffer-identification-keymap
* lisp/gnus/gnus-group.el (gnus-group-set-mode-line): Use 'propertized-buffer-identification' to buttonise and fontify the buffer name. * lisp/gnus/gnus-sum.el (gnus-set-mode-line): * lisp/gnus/gnus.el (gnus-mode-line-buffer-identification): Adjust calls to above. * lisp/gnus/gnus-srvr.el (gnus-browse-foreign-server): Add missing 'gnus-modeline-buffer-identification' call (bug#57977).
Diffstat (limited to 'lisp/gnus/gnus-srvr.el')
-rw-r--r--lisp/gnus/gnus-srvr.el7
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/gnus/gnus-srvr.el b/lisp/gnus/gnus-srvr.el
index e659a648e10..315381a6dd8 100644
--- a/lisp/gnus/gnus-srvr.el
+++ b/lisp/gnus/gnus-srvr.el
@@ -829,9 +829,10 @@ claim them."
(erase-buffer))
(gnus-browse-mode)
(setq mode-line-buffer-identification
- (list
- (format
- "Gnus: %%b {%s:%s}" (car method) (cadr method))))
+ (gnus-mode-line-buffer-identification
+ (list
+ (format
+ "Gnus: %%b {%s:%s}" (car method) (cadr method)))))
(let ((buffer-read-only nil)
name
(prefix (let ((gnus-select-method orig-select-method))