>>>>> "savoie" == savoie  <savoie@no-spam.nsidc.org> writes:

[...]

savoie> (defun split-on-body ()
savoie>   (save-excursion
savoie>     (set-buffer " *nnmail incoming*")
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

When re-spooling, it doesn't actually use the *nnmail incoming*
buffer.  I've found that it seems to work if you leave out that line,
both when re-spooling and fetching new mail.

savoie>     (goto-char (point-min))
savoie>     (when (re-search-forward "exual" nil t)
savoie>       "junk")))

[...]

-- 
Hubert Chan <hubert@uhoreg.ca> - http://www.uhoreg.ca/
PGP/GnuPG key: 1024D/124B61FA
Fingerprint: 96C5 012F 5F74 A5F7 1FF7  5291 AF29 C719 124B 61FA
Key available at wwwkeys.pgp.net.   Encrypted e-mail preferred.