From 27a0c0bc1b0b0dade4f80d40e216841ad2f907e7 Mon Sep 17 00:00:00 2001 From: Luc Teirlinck Date: Thu, 26 May 2005 20:52:42 +0000 Subject: [PATCH] (gnus-agent-make-mode-line-string): Use mode-line-highlight as mouse-face. --- lisp/gnus/gnus-agent.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/gnus/gnus-agent.el b/lisp/gnus/gnus-agent.el index 4236c7958fb..ff09f3bcb19 100644 --- a/lisp/gnus/gnus-agent.el +++ b/lisp/gnus/gnus-agent.el @@ -561,7 +561,8 @@ manipulated as follows: (if (and (fboundp 'propertize) (fboundp 'make-mode-line-mouse-map)) (propertize string 'local-map - (make-mode-line-mouse-map mouse-button mouse-func)) + (make-mode-line-mouse-map mouse-button mouse-func) + 'mouse-face 'mode-line-highlight) string)) (defun gnus-agent-toggle-plugged (set-to) -- 2.39.5