From: Luc Teirlinck <teirllm@auburn.edu>
Date: Thu, 26 May 2005 20:52:42 +0000 (+0000)
Subject: (gnus-agent-make-mode-line-string):
X-Git-Tag: emacs-pretest-22.0.90~9511
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=27a0c0bc1b0b0dade4f80d40e216841ad2f907e7;p=emacs.git

(gnus-agent-make-mode-line-string):
Use mode-line-highlight as mouse-face.
---

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)