Re: miscellaneous Gnus questions

[Colin Rafferty <craffert@spspme.ml.com>]

"Joe" == Joe Wells <jbw@cs.bu.edu> writes:
"Lars" == You Know Who <ynw@you.know.where> writes:

Lars> There is no command to re-scan a particular server.
Lars> `(gnus-request-scan SERVER)' will do that for you.  Perhaps there
Lars> should be a command as well?

Joe> I think there should be a keybinding for this.  Checking for new mail is
Joe> quick, while checking for new news is slow.  Since the "g" command
Joe> combines these two, this unnecessarily slows down checking for new mail.

The only problem with calling `gnus-request-scan' directly is that it
does not update the *Group* buffer.  I use nnml.  Below is my solution.
If someone wants to make this a little more general (mh, etc.), be my
guest.  I have already sent in my papers.

(defun gnus-group-get-new-nnml ()
  "Get new mail only."
  (interactive)
  (let ((gnus-group-new-mail-list nil)
	(nnml-prepare-save-mail-hook
	 (cons '(lambda ()
		  (setq gnus-group-new-mail-list
			(union gnus-group-new-mail-list
			       (mapcar 'car group-art))))
	       nnml-prepare-save-mail-hook)))
    (nnml-request-scan)
    (let ((gnus-group-marked (mapcar '(lambda (group)
					(concat "nnml:" group))
				     gnus-group-new-mail-list)))
      (gnus-group-get-new-news-this-group))
    (when gnus-goto-next-group-when-activating
      (gnus-group-next-unread-group 1 t))
    (gnus-summary-position-point)
    (gnus-group-list-groups)
    gnus-group-new-mail-list))

-- 
Colin