Gnus -- minor build / warning fixes [OK For Upstream]

[gnus] / lisp / gnus-notifications.el

diff --git a/lisp/gnus-notifications.el b/lisp/gnus-notifications.el
index 22dba35..54a75b6 100644 (file)
--- a/lisp/gnus-notifications.el
+++ b/lisp/gnus-notifications.el
@@ -1,6 +1,6 @@
 ;; gnus-notifications.el -- Send notification on new message in Gnus
 
-;; Copyright (C) 2012-2015 Free Software Foundation, Inc.
+;; Copyright (C) 2012-2016 Free Software Foundation, Inc.
 
 ;; Author: Julien Danjou <julien@danjou.info>
 ;; Keywords: news
@@ -81,7 +81,7 @@ not get notifications."
             (article (nth 2 group-article)))
         (cond ((string= key "read")
                (gnus-fetch-group group (list article))
-               (when (and window-system (fboundp 'x-focus-frame)) (x-focus-frame (selected-frame))))
+               (gnus-select-frame-set-input-focus (selected-frame)))
               ((string= key "mark-read")
                (gnus-update-read-articles
                 group