From 99de1c5c280cd97964439f8bbe0e916b8b0066ba Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Thu, 26 May 2005 23:43:48 +0000 Subject: [PATCH] Revision: miles@gnu.org--gnu-2005/gnus--devo--0--patch-119 Merge from gnus--rel--5.10 Patches applied: * emacs--cvs-trunk--0 (patch 327) - Update from CVS * gnus--rel--5.10 (patch 72) - Merge from emacs--cvs-trunk--0 2005-05-26 Luc Teirlinck * lisp/gnus-agent.el (gnus-agent-make-mode-line-string): Use mode-line-highlight as mouse-face. --- lisp/ChangeLog | 5 +++++ lisp/gnus-agent.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 07feee843..473a608ac 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2005-05-26 Luc Teirlinck + + * gnus-agent.el (gnus-agent-make-mode-line-string): + Use mode-line-highlight as mouse-face. + 2005-05-17 Katsumi Yamaoka * canlock.el (canlock): Change the parent group to news. diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el index c33fac7fc..c02036d9a 100644 --- a/lisp/gnus-agent.el +++ b/lisp/gnus-agent.el @@ -575,7 +575,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.34.1