| Paste number 12419: | apa-get-new-news |
| Pasted by: | anaran |
| When: | 6 years, 3 months ago |
| Share: | Tweet this! | http://paste.lisp.org/+9KZ |
| Channel: | #xemacs |
| Paste contents: |
(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)
This paste has no annotations.