Re: gnus-summary-save-in-pipe does not pipe raw article

["Gabor Z. Papp" <gzp@papp.hu>]

* Katsumi Yamaoka <yamaoka@jpl.org>:

| Oops, I forgot to take account of the `:headers' property for
| `gnus-summary-save-in-pipe'.  I've fixed it in the Gnus CVS trunk.

Thanks, seems like ok. Only one problem left, earlier with the code
below I was able to mark more articles and pipe them one by one in batch:

(defun gzp-pipe-spam (&optional n)
  (interactive "P")
  (let* ( (pipe (format "cat | /path/to/cmd"))
         )

    (save-excursion
      (dolist (article (gnus-summary-work-articles n))
       (gnus-summary-goto-subject article)
       (gnus-summary-show-raw-article)
       (gnus-summary-save-in-pipe :decode nil)
       (gnus-summary-save-in-pipe pipe)
       (gnus-summary-show-article)
       )))
  (gnus-summary-expand-window))

The current code does only one article even I mark more.
I can't fix it, could someone help? :-)

(defun gzp-pipe-spam (&optional n)
  (interactive "P")
  (let  ((decode (get 'gnus-summary-save-in-pipe :decode))
        (headers (get 'gnus-summary-save-in-pipe :headers))
        (gnus-save-all-headers t))
    (put 'gnus-summary-save-in-pipe :decode nil)
    (put 'gnus-summary-save-in-pipe :headers nil)
    (unwind-protect
        (gnus-summary-save-in-pipe "cat | /path/to/cmd")
      (put 'gnus-summary-save-in-pipe :decode decode)
      (put 'gnus-summary-save-in-pipe :headers headers))
     (gnus-summary-expand-window))
  )