Re: regular and adaptive scoring with nnimap

[Ted Zlatanov <tzz@lifelogs.com>]

How does this look, for retrieving an article and searching a group by
any parameter?

(defun nnimap-db-get-article-contents (article group &optional server)
  (let ((data))
    (when (numberp article)
      (with-current-buffer (nnimap-get-server-buffer server)
	(let ((saved (imap-current-mailbox)))
	  (with-temp-buffer
	    (nnimap-request-article article group server (buffer-name))
	    (setq data (buffer-string)))
	  (nnimap-possibly-change-group saved server))))
    data))

;; (nnimap-db-get-article-contents 4388 "ding")

(defun nnimap-db-get-uids-for-parameter (group parameter subject &optional server)
  (let ((articles))
    (when (and (stringp subject) (stringp parameter) (stringp group))
      (with-current-buffer (nnimap-get-server-buffer server)
	(let ((saved (imap-current-mailbox)))
	  (nnimap-possibly-change-group group server)
	  (setq articles (imap-search (format "HEADER %s \"%s\"" parameter subject)))
	  (nnimap-possibly-change-group saved server))))
    articles))
	
;; (nnimap-db-get-uids-for-parameter "ding" "Subject" "spam")
;; (nnimap-db-get-uids-for-parameter "ding" "Message-Id" "<ilu4r7k83j5.fsf@latte.josefsson.org>")

I'm assuming two things:

1) (nnimap-possibly-change-group nil) is harmless
2) (nnimap-possibly-change-group nil) returns the current group

Are both true?

I would use imap exclusively, but nnimap-possibly-change-group and the
other functions it offers are too useful :)

Also, do I need to do

(setq gnus-newsgroup-active (gnus-activate-group group))

before each operation in case the nnimap server is not activated?

Thanks
Ted