From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/67173
Path: news.gmane.org!not-for-mail
From: "Gabor Z. Papp" <gzp@papp.hu>
Newsgroups: gmane.emacs.gnus.general
Subject: Re: gnus-summary-save-in-pipe does not pipe raw article
Date: Wed, 23 Jul 2008 09:22:51 +0200
Message-ID: <x6hcah83p0@gzp>
References: <87mykes2g8.fsf@newton.gmurray.org.uk> <b4msku62ka8.fsf@jpl.org>
	<b4mod4p4iqq.fsf@jpl.org>
NNTP-Posting-Host: lo.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: ger.gmane.org 1216797871 1018 80.91.229.12 (23 Jul 2008 07:24:31 GMT)
X-Complaints-To: usenet@ger.gmane.org
NNTP-Posting-Date: Wed, 23 Jul 2008 07:24:31 +0000 (UTC)
Cc: ding@gnus.org
To: Katsumi Yamaoka <yamaoka@jpl.org>
Original-X-From: ding-owner+M15632@lists.math.uh.edu Wed Jul 23 09:25:17 2008
Return-path: <ding-owner+M15632@lists.math.uh.edu>
Envelope-to: ding-account@gmane.org
Original-Received: from util0.math.uh.edu ([129.7.128.18])
	by lo.gmane.org with esmtp (Exim 4.50)
	id 1KLYie-0000gF-UV
	for ding-account@gmane.org; Wed, 23 Jul 2008 09:25:05 +0200
Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu)
	by util0.math.uh.edu with smtp (Exim 4.63)
	(envelope-from <ding-owner+M15632@lists.math.uh.edu>)
	id 1KLYgj-0005fO-NC; Wed, 23 Jul 2008 02:23:05 -0500
Original-Received: from mx2.math.uh.edu ([129.7.128.33])
	by util0.math.uh.edu with esmtps (TLSv1:AES256-SHA:256)
	(Exim 4.63)
	(envelope-from <gzp@papp.hu>)
	id 1KLYgi-0005f8-6p
	for ding@lists.math.uh.edu; Wed, 23 Jul 2008 02:23:04 -0500
Original-Received: from quimby.gnus.org ([80.91.231.51])
	by mx2.math.uh.edu with esmtp (Exim 4.67)
	(envelope-from <gzp@papp.hu>)
	id 1KLYgZ-0005og-M7
	for ding@lists.math.uh.edu; Wed, 23 Jul 2008 02:23:01 -0500
Original-Received: from odpn1.odpn.net ([212.40.96.53])
	by quimby.gnus.org with esmtp (Exim 3.35 #1 (Debian))
	id 1KLYgu-0008Vp-00
	for <ding@gnus.org>; Wed, 23 Jul 2008 09:23:16 +0200
Original-Received: from odpn1.odpn.net [212.40.96.53]
	by odpn1.odpn.net 
	id 1KLYgX-00026Q-Pp; Wed, 23 Jul 2008 09:22:53 +0200
User-Agent: Gnus/5.110011 (No Gnus v0.11)
X-Spam-Score: -2.6 (--)
List-ID: <ding.gnus.org>
Precedence: bulk
Xref: news.gmane.org gmane.emacs.gnus.general:67173
Archived-At: <http://permalink.gmane.org/gmane.emacs.gnus.general/67173>

* 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))
  )