(ns-focus-frame): Remove declaration.

(gnus-select-frame-set-input-focus): Undo previous change.  Treat ns
like x.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 3c6ca2f102c53870cd258d93aa3ffcb30fa95603..2db00ad59c242fdef72f20704914d015372360b7 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,9 @@
+2008-07-21  Dan Nicolaescu  <dann@ics.uci.edu>
+
+       * gnus-util.el (ns-focus-frame): Remove declaration.
+       (gnus-select-frame-set-input-focus): Undo previous change.  Treat ns
+       like x.
+
 2008-07-21  Thien-Thi Nguyen  <ttn@gnuvola.org>
 
        * rfc2104.el (rfc2104-zero): Delete defconst.

diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el
index f2fe10c2fc829111715de19ee9f95b2bc4e6414d..129e1e641de53fbd922e0033d5b50ad078a7bd78 100644 (file)
--- a/lisp/gnus/gnus-util.el
+++ b/lisp/gnus/gnus-util.el
@@ -1593,7 +1593,6 @@ CHOICE is a list of the choice char and help message at IDX."
 
 (declare-function x-focus-frame "xfns.c" (frame))
 (declare-function w32-focus-frame "../term/w32-win" (frame))
-(declare-function ns-focus-frame "nsfns.m" (frame))
 
 (defun gnus-select-frame-set-input-focus (frame)
   "Select FRAME, raise it, and set input focus, if possible."
@@ -1610,12 +1609,10 @@ CHOICE is a list of the choice char and help message at IDX."
        (t
         (raise-frame frame)
         (select-frame frame)
-        (cond ((memq window-system '(x mac))
+        (cond ((memq window-system '(x ns mac))
                (x-focus-frame frame))
               ((eq window-system 'w32)
-               (w32-focus-frame frame))
-              ((eq window-system 'ns)
-               (ns-focus-frame frame)))
+               (w32-focus-frame frame)))
         (when focus-follows-mouse
           (set-mouse-position frame (1- (frame-width frame)) 0)))))