diff options
| author | Karoly Lorentey <lorentey@elte.hu> | 2006-12-03 12:36:08 +0000 |
|---|---|---|
| committer | Karoly Lorentey <lorentey@elte.hu> | 2006-12-03 12:36:08 +0000 |
| commit | d0104e754a241cf83811fef30195d41201de533c (patch) | |
| tree | 6a5a31760801bd70649d0f9b132f61c46fac8445 /lisp/gnus/gnus-agent.el | |
| parent | 19739b34866e6a4789d842961470123b50158612 (diff) | |
| parent | ab785936c82ac81edb8b20ac27c0558bc04797e5 (diff) | |
| download | emacs-d0104e754a241cf83811fef30195d41201de533c.tar.gz emacs-d0104e754a241cf83811fef30195d41201de533c.tar.bz2 emacs-d0104e754a241cf83811fef30195d41201de533c.zip | |
Merged from emacs@sv.gnu.org.
Patches applied:
* emacs@sv.gnu.org/emacs--devo--0--patch-486
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-487
Merge from gnus--rel--5.10
* emacs@sv.gnu.org/emacs--devo--0--patch-488
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-489
Merge from gnus--rel--5.10
* emacs@sv.gnu.org/gnus--rel--5.10--patch-156
Merge from emacs--devo--0
* emacs@sv.gnu.org/gnus--rel--5.10--patch-157
Update from CVS
* emacs@sv.gnu.org/gnus--rel--5.10--patch-158
Update from CVS
* emacs@sv.gnu.org/gnus--rel--5.10--patch-159
Update from CVS
* emacs@sv.gnu.org/gnus--rel--5.10--patch-160
Update from CVS
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-587
Diffstat (limited to 'lisp/gnus/gnus-agent.el')
| -rw-r--r-- | lisp/gnus/gnus-agent.el | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/lisp/gnus/gnus-agent.el b/lisp/gnus/gnus-agent.el index f4e9f2e3dc9..733b7533cc1 100644 --- a/lisp/gnus/gnus-agent.el +++ b/lisp/gnus/gnus-agent.el @@ -577,7 +577,17 @@ manipulated as follows: (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) |