merging Emacs.app (NeXTstep port)

1 files changed, 3 insertions, 1 deletions

diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el
index 8d86c36dbe9..66a7e342614 100644
--- a/lisp/gnus/gnus-util.el
+++ b/lisp/gnus/gnus-util.el
@@ -1612,7 +1612,9 @@ CHOICE is a list of the choice char and help message at IDX."
          (cond ((memq window-system '(x mac))
                 (x-focus-frame frame))
                ((eq window-system 'w32)
-                (w32-focus-frame frame)))
+                (w32-focus-frame frame))
+               ((eq window-system 'ns)
+                (ns-focus-frame frame)))
          (when focus-follows-mouse
            (set-mouse-position frame (1- (frame-width frame)) 0)))))