Re: Exiting groups moves the cursor to next line

[Kevin Ryde <user42@zip.com.au>]

I've been using the exit command below for semi-smart advance.  If
reviewing an old group it doesn't advance, but in normal reading it
does.

"Old" means anything unsubscribed (I keep bits of occasional interest
in unsubscribed level), or anything with no unread articles (which is
not necessarily old, but is certainly a case of going back to
revisit).

I guess it's personal preference, but maybe there'd be a clean way to
have a notion of "reading in sequence" versus revisiting, and only
advance for the former.


(defun my-gnus-summary-exit (&optional temporary)
  "Like `gnus-summary-exit', but sometimes preserve point in *Group*."
  (interactive "P")
  (if (save-excursion
        (with-current-buffer "*Group*"
          (beginning-of-line)
          (looking-at "^ U\\|^. *0:")))
      (my-gnus-summary-exit-nonext temporary)
    (gnus-summary-exit temporary)))

(defun my-gnus-summary-exit-nonext (&optional temporary)
  "Like `gnus-summary-exit', but don't move in *Group*."
  (interactive "P")
  (let ((group gnus-newsgroup-name))
    (gnus-summary-exit temporary)
    (gnus-summary-jump-to-group group)))