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  <teirllm@auburn.edu>

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 07feee8..473a608 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-05-26  Luc Teirlinck  <teirllm@auburn.edu>
+
+       * gnus-agent.el (gnus-agent-make-mode-line-string):
+       Use mode-line-highlight as mouse-face.
+
 2005-05-17  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * canlock.el (canlock): Change the parent group to news.

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index c33fac7..c02036d 100644 (file)
--- 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)