|
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)
|
