diff debian/gnus.el @ 301:3b5b7f3fd71f noffle

[svn] initial debian/ upload
author godisch
date Fri, 14 Feb 2003 13:54:32 +0000
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/debian/gnus.el	Fri Feb 14 13:54:32 2003 +0000
@@ -0,0 +1,33 @@
+;; Customising Gnus for use with the NOFFLE news server
+;; 
+;;  tick and open article
+;;          for reading/marking for download
+;;   scroll article text circular
+;;          for avoiding automatic opening of next article
+;;       mark article as read and go to next line
+(defun my-gnus-summary-tick-and-open(n)
+  "Tick and open article, so that NOFFLE marks it for download" 
+  (interactive "p")
+  (gnus-summary-scroll-up n)
+  (gnus-summary-mark-article nil gnus-ticked-mark t)
+  )
+(defun my-gnus-summary-next-page(n)
+  "Next page of article, but do not open next article automatically"
+  (interactive "p")
+  (gnus-summary-next-page 10 t) ;; Call with argument `circular'.
+  )
+(defun my-gnus-summary-mark-read-next-line(n)
+  "Mark article as read and go to next line"
+  (interactive "p")
+  (gnus-summary-mark-article-as-read gnus-read-mark)
+  (next-line n)
+  )
+(defun my-gnus-summary-mode-hook ()
+  (define-key gnus-summary-mode-map "\r"
+    'my-gnus-summary-tick-and-open)
+  (define-key gnus-summary-mode-map " "
+    'my-gnus-summary-next-page)
+  (define-key gnus-summary-mode-map "d"
+    'my-gnus-summary-mark-read-next-line)
+  )
+(add-hook 'gnus-summary-mode-hook 'my-gnus-summary-mode-hook)