Re: finding the article buffer when splitting

[Alex Schroeder <alex@emacswiki.org>]

jhbrown@ai.mit.edu (Jeremy H. Brown) writes:

> Having thought about this more, I think what we really want is not a
> variable gnus-the-article-buffer, but a function
> (gnus-current-article-buffer) which returns a buffer containing the
> current article.  We want a function because if you're using the
> imap backend, normal splitting functions don't download the whole
> article, just the headers; this function can download the article
> body if necessary, and otherwise just immediately return the buffer
> with the body in it.

Hm, my spam-stat.el still has some problems.  I use the following
macro, and now found message that was considered spam when splitting,
and not-spam when respooling.  To me, that suggests that something in
this article buffer business is still malfunctioning.

Alex.


(defmacro with-article-buffer (&rest body)
    "Make the article buffer current while executing BODY.
This is useful when splitting mail with `nnmail-split-fancy'.
The article buffer is stored either in `gnus-original-article-buffer'
or `nnmail-article-buffer'."
    `(save-excursion
       (cond ((and (boundp 'gnus-original-article-buffer)
		   (gnus-buffer-live-p gnus-original-article-buffer))
	      (set-buffer gnus-original-article-buffer)
	      ,@body)
	     ((and (boundp 'nnmail-article-buffer)
		   (gnus-buffer-live-p nnmail-article-buffer))
	      (set-buffer nnmail-article-buffer)
	      ,@body)
	     (t
	      (error "There is no article buffer available.")))))