12419 anaran <string>apa-get-new-news</string> (defun apa-check-news () (interactive) (if (not (gnus-alive-p)) (message "Please start Gnus first") (set-buffer gnus-group-buffer) (unless (gnus-group-best-unread-group) (gnus-group-get-new-news)) (if (gnus-group-best-unread-group) (gnus-group-read-group nil nil nil) (message "No unread Mail or News")))) (global-set-key '[(control ?c) n] 'apa-check-news) 3337968385 #xemacs