301
+ − 1 ;; Customising Gnus for use with the NOFFLE news server
+ − 2 ;;
+ − 3 ;; tick and open article
+ − 4 ;; for reading/marking for download
+ − 5 ;; scroll article text circular
+ − 6 ;; for avoiding automatic opening of next article
+ − 7 ;; mark article as read and go to next line
+ − 8 (defun my-gnus-summary-tick-and-open(n)
+ − 9 "Tick and open article, so that NOFFLE marks it for download"
+ − 10 (interactive "p")
+ − 11 (gnus-summary-scroll-up n)
+ − 12 (gnus-summary-mark-article nil gnus-ticked-mark t)
+ − 13 )
+ − 14 (defun my-gnus-summary-next-page(n)
+ − 15 "Next page of article, but do not open next article automatically"
+ − 16 (interactive "p")
+ − 17 (gnus-summary-next-page 10 t) ;; Call with argument `circular'.
+ − 18 )
+ − 19 (defun my-gnus-summary-mark-read-next-line(n)
+ − 20 "Mark article as read and go to next line"
+ − 21 (interactive "p")
+ − 22 (gnus-summary-mark-article-as-read gnus-read-mark)
+ − 23 (next-line n)
+ − 24 )
+ − 25 (defun my-gnus-summary-mode-hook ()
+ − 26 (define-key gnus-summary-mode-map "\r"
+ − 27 'my-gnus-summary-tick-and-open)
+ − 28 (define-key gnus-summary-mode-map " "
+ − 29 'my-gnus-summary-next-page)
+ − 30 (define-key gnus-summary-mode-map "d"
+ − 31 'my-gnus-summary-mark-read-next-line)
+ − 32 )
+ − 33 (add-hook 'gnus-summary-mode-hook 'my-gnus-summary-mode-hook)
