Mercurial > emacs

diff lisp/gnus/gnus-agent.el @ 73528:732eee78a670

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from gnus--rel--5.10 Patches applied: * gnus--rel--5.10 (patch 156-159) - Merge from emacs--devo--0 - Update from CVS 2006-10-29 Katsumi Yamaoka <yamaoka@jpl.org> * lisp/gnus/gnus-sum.el (gnus-set-mode-line): Quote % in group name. 2006-10-28 Reiner Steib <Reiner.Steib@gmx.de> * lisp/gnus/gnus-agent.el (gnus-agent-make-mode-line-string): Make it compatible with Emacs 21 and XEmacs. 2006-10-26 Reiner Steib <Reiner.Steib@gmx.de> * lisp/gnus/mm-view.el: Add interactive arg to html2text autoload. 2006-10-25 Katsumi Yamaoka <yamaoka@jpl.org> * lisp/gnus/gnus-sum.el (gnus-summary-move-article): Use no-encode for `B B'. Revision: emacs@sv.gnu.org/emacs--devo--0--patch-487
author Miles Bader <miles@gnu.org>
date Sun, 29 Oct 2006 07:36:46 +0000
parents 70b055c73c8c
children 5a2066ffc645 7eeafaaa9eab
line wrap: on
line diff
--- a/lisp/gnus/gnus-agent.el	Sat Oct 28 23:22:07 2006 +0000
+++ b/lisp/gnus/gnus-agent.el	Sun Oct 29 07:36:46 2006 +0000
@@ -577,7 +577,17 @@
 	   (fboundp 'make-mode-line-mouse-map))
       (propertize string 'local-map
 		  (make-mode-line-mouse-map mouse-button mouse-func)
-		  'mouse-face 'mode-line-highlight)
+		  'mouse-face
+		  (cond ((and (featurep 'xemacs)
+			      ;; XEmacs' `facep' only checks for a face
+			      ;; object, not for a face name, so it's useless
+			      ;; to check with `facep'.
+			      (find-face 'modeline))
+			 'modeline)
+			((facep 'mode-line-highlight) ;; Emacs 22
+			 'mode-line-highlight)
+			((facep 'mode-line) ;; Emacs 21
+			 'mode-line)) )
     string))
 
 (defun gnus-agent-toggle-plugged (set-to)