2006-04-17 Reiner Steib <reinersteib+from-uce@imap.cc>

	* gnus-util.el (gnus-select-frame-set-input-focus): Check for
	Emacs 22 when setting focus.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 118bb42..816f6a8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-04-17  Reiner Steib  <reinersteib+from-uce@imap.cc>
+
+       * gnus-util.el (gnus-select-frame-set-input-focus): Check for
+       Emacs 22 when setting focus.
+
 2006-04-17  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * gnus-art.el (gnus-article-treat-types): Do treatment of

diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index 265d143..e9ab7d3 100644 (file)
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -1428,6 +1428,8 @@ CHOICE is a list of the choice char and help message at IDX."
        ;; (defalias 'gnus-select-frame-set-input-focus
        ;;   'select-frame-set-input-focus)
        ;; (select-frame-set-input-focus frame))
+       ((>= emacs-major-version 22)
+        (select-frame-set-input-focus frame))
        (t
         (raise-frame frame)
         (select-frame frame)