Mercurial > noffle
comparison debian/gnus.el @ 301:3b5b7f3fd71f noffle
[svn] initial debian/ upload
| author | godisch |
|---|---|
| date | Fri, 14 Feb 2003 13:54:32 +0000 |
| parents | |
| children |
comparison
equal
deleted
inserted
replaced
| 300:994e9ab2c24f | 301:3b5b7f3fd71f |
|---|---|
| 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) |