From: Lars Magne Ingebrigtsen <larsi@gnus.org>
Date: Mon, 17 Apr 2006 13:00:16 +0000 (+0000)
Subject: 2006-04-17  Reiner Steib  <reinersteib+from-uce@imap.cc>
X-Git-Url: https://cgit.sxemacs.org/?a=commitdiff_plain;h=dc7e23e9c4b21c7c527ff0bfcb3c9de2aa1d6ae8;p=gnus

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 118bb42a8..816f6a849 100644
--- 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 265d1438b..e9ab7d33a 100644
--- 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)