view debian/gnus.el @ 390:2ad4c1c97734 noffle

[svn] * src/client.c: Return correct status from Client_postArt() and add function comment detailing what return code should be, because it's not obvious that the return code should report success when the posting failed for reasons other than connection problems. This should fix problem with failing posting stopping fetches. Thanks to Dan Jacobson for spotting this. * src/client.c: Fix problemette with filter discards not updating remote group article count and so the overview being refetched until and article appears that doesn't fall foul of the filter and thus does update the remove group 'next article' marker. Thanks to Dan Jacobson for spotting this. * src/content.c: Don't be fooled into thinking a filename starting ".." is just "..". * src/outgoing.c: Don't assume "." and ".." are the first files returned from readdir(). Thanks to Andreas Happe for spotting this. * src/noffle.c: Update online help to include 'm' group posting status. * src/server.c: Move incorrect updating of server.grp in doGrp() which was causing doGrp() to not retrieve remote article details when in online mode. Thanks to Miernik and Andreas Happe for reporting the problem.
author bears
date Thu, 22 May 2003 10:04:38 +0100
parents 3b5b7f3fd71f
children
line wrap: on
line source

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