annotate debian/gnus.el @ 370:900495138de9 noffle

[svn] removed patch for woody backports
author godisch
date Tue, 01 Apr 2003 14:51:47 +0100
parents 3b5b7f3fd71f
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
301
3b5b7f3fd71f [svn] initial debian/ upload
godisch
parents:
diff changeset
1 ;; Customising Gnus for use with the NOFFLE news server
3b5b7f3fd71f [svn] initial debian/ upload
godisch
parents:
diff changeset
2 ;;
3b5b7f3fd71f [svn] initial debian/ upload
godisch
parents:
diff changeset
3 ;; tick and open article
3b5b7f3fd71f [svn] initial debian/ upload
godisch
parents:
diff changeset
4 ;; for reading/marking for download
3b5b7f3fd71f [svn] initial debian/ upload
godisch
parents:
diff changeset
5 ;; scroll article text circular
3b5b7f3fd71f [svn] initial debian/ upload
godisch
parents:
diff changeset
6 ;; for avoiding automatic opening of next article
3b5b7f3fd71f [svn] initial debian/ upload
godisch
parents:
diff changeset
7 ;; mark article as read and go to next line
3b5b7f3fd71f [svn] initial debian/ upload
godisch
parents:
diff changeset
8 (defun my-gnus-summary-tick-and-open(n)
3b5b7f3fd71f [svn] initial debian/ upload
godisch
parents:
diff changeset
9 "Tick and open article, so that NOFFLE marks it for download"
3b5b7f3fd71f [svn] initial debian/ upload
godisch
parents:
diff changeset
10 (interactive "p")
3b5b7f3fd71f [svn] initial debian/ upload
godisch
parents:
diff changeset
11 (gnus-summary-scroll-up n)
3b5b7f3fd71f [svn] initial debian/ upload
godisch
parents:
diff changeset
12 (gnus-summary-mark-article nil gnus-ticked-mark t)
3b5b7f3fd71f [svn] initial debian/ upload
godisch
parents:
diff changeset
13 )
3b5b7f3fd71f [svn] initial debian/ upload
godisch
parents:
diff changeset
14 (defun my-gnus-summary-next-page(n)
3b5b7f3fd71f [svn] initial debian/ upload
godisch
parents:
diff changeset
15 "Next page of article, but do not open next article automatically"
3b5b7f3fd71f [svn] initial debian/ upload
godisch
parents:
diff changeset
16 (interactive "p")
3b5b7f3fd71f [svn] initial debian/ upload
godisch
parents:
diff changeset
17 (gnus-summary-next-page 10 t) ;; Call with argument `circular'.
3b5b7f3fd71f [svn] initial debian/ upload
godisch
parents:
diff changeset
18 )
3b5b7f3fd71f [svn] initial debian/ upload
godisch
parents:
diff changeset
19 (defun my-gnus-summary-mark-read-next-line(n)
3b5b7f3fd71f [svn] initial debian/ upload
godisch
parents:
diff changeset
20 "Mark article as read and go to next line"
3b5b7f3fd71f [svn] initial debian/ upload
godisch
parents:
diff changeset
21 (interactive "p")
3b5b7f3fd71f [svn] initial debian/ upload
godisch
parents:
diff changeset
22 (gnus-summary-mark-article-as-read gnus-read-mark)
3b5b7f3fd71f [svn] initial debian/ upload
godisch
parents:
diff changeset
23 (next-line n)
3b5b7f3fd71f [svn] initial debian/ upload
godisch
parents:
diff changeset
24 )
3b5b7f3fd71f [svn] initial debian/ upload
godisch
parents:
diff changeset
25 (defun my-gnus-summary-mode-hook ()
3b5b7f3fd71f [svn] initial debian/ upload
godisch
parents:
diff changeset
26 (define-key gnus-summary-mode-map "\r"
3b5b7f3fd71f [svn] initial debian/ upload
godisch
parents:
diff changeset
27 'my-gnus-summary-tick-and-open)
3b5b7f3fd71f [svn] initial debian/ upload
godisch
parents:
diff changeset
28 (define-key gnus-summary-mode-map " "
3b5b7f3fd71f [svn] initial debian/ upload
godisch
parents:
diff changeset
29 'my-gnus-summary-next-page)
3b5b7f3fd71f [svn] initial debian/ upload
godisch
parents:
diff changeset
30 (define-key gnus-summary-mode-map "d"
3b5b7f3fd71f [svn] initial debian/ upload
godisch
parents:
diff changeset
31 'my-gnus-summary-mark-read-next-line)
3b5b7f3fd71f [svn] initial debian/ upload
godisch
parents:
diff changeset
32 )
3b5b7f3fd71f [svn] initial debian/ upload
godisch
parents:
diff changeset
33 (add-hook 'gnus-summary-mode-hook 'my-gnus-summary-mode-hook)