(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