Re: Possible SpamAssassin node info documentation error.

[Ted Zlatanov <tzz@lifelogs.com>]

On Wed, 15 Oct 2003, rlb@defaultvalue.org wrote:

> In the current info pages (for 5.10.2), in the "SpamAssassin,
> Vipul's Razor, DCC, etc" node, it suggests:
> 
>      (defun kevin-spamassassin ()
>        (save-excursion
>          (let ((buf (or (get-buffer " *nnmail incoming*")
>                         (get-buffer " *nnml move*"))))
>            (if (not buf)
>                (progn (message "Oops, cannot find message buffer")
>                nil)
>              (set-buffer buf)
>              (if (eq 1 (call-process-region (point-min) (point-max)
>                                             "spamc" nil nil nil
>                                             "-c"))
>                  "spam")))))
> 
> but my experience is that this doesn't actually work because the
> buffer (at least during a "B q") is narrowed to the headers.  For
> this to work as advertized, you need to add a (widen) after setting
> the buffer, perhaps like this (also happen to be using spamassassin
> in this example rather than spamc):
> 
>      (defun kevin-spamassassin ()
>        (save-excursion
>          (let ((buf (or (get-buffer " *nnmail incoming*")
>                         (get-buffer " *nnml move*")
>                         ;; probably just respooling or tracing...
>                         (set-buffer gnus-original-article-buffer))))
>            (if (not buf)
>                (progn (message "Oops, cannot find message buffer")
>                nil)
>              (set-buffer buf)
>              (widen)
>              (if (zerop (call-process-region (point-min) (point-max)
>                                              "spamassassin" nil nil
>                                              nil "-e"))
>                  nil
>                "spam")))))
> 
> Hope this helps.

This was already fixed in the CVS manual.

Thanks
Ted