Gnus development mailing list
 help / color / mirror / Atom feed
From: Dan Christensen <jdc@uwo.ca>
To: ding@gnus.org
Subject: Re: gnus-summary-save-in-pipe does not pipe raw article
Date: Thu, 24 Jul 2008 11:08:22 -0400	[thread overview]
Message-ID: <87d4l3miah.fsf@uwo.ca> (raw)
In-Reply-To: <b4m7ibdc9xd.fsf@jpl.org>

Katsumi Yamaoka <yamaoka@jpl.org> writes:

>   (let* ((pipe (format "cat | /path/to/cmd"))
>
> 	 (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
> 	(save-excursion
> 	  (dolist (article (gnus-summary-work-articles n))
> 	    (gnus-summary-goto-subject article)
> 	    (gnus-summary-save-in-pipe pipe)
> 	    ))
>       (put 'gnus-summary-save-in-pipe :decode decode)
>       (put 'gnus-summary-save-in-pipe :headers headers)))
>   (gnus-summary-expand-window))

Maybe all but two or three lines of the above should be made into a
function gnus-summary-save-in-pipe-raw?  Or maybe the existing function
gnus-summary-save-in-pipe should take an optional "raw" argument to get
this behaviour?  Forcing the caller to jump through the above hoops
seems excessive...

Dan




  parent reply	other threads:[~2008-07-24 15:08 UTC|newest]

Thread overview: 14+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2008-07-19  8:28 Graham Murray
2008-07-19 11:19 ` Katsumi Yamaoka
2008-07-22 23:11   ` Katsumi Yamaoka
2008-07-23  7:22     ` Gabor Z. Papp
2008-07-23  7:54       ` Katsumi Yamaoka
2008-07-23  7:59         ` Gabor Z. Papp
2008-07-24 15:08         ` Dan Christensen [this message]
2008-07-25  0:15           ` Katsumi Yamaoka
2008-07-25  8:25             ` Lloyd Zusman
2008-07-25  9:16               ` Katsumi Yamaoka
2008-07-26 11:23                 ` Gabor Z. Papp
2008-07-23 20:17     ` Reiner Steib
2008-07-23 20:24       ` Graham Murray
2008-07-24 15:29         ` Ted Zlatanov

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=87d4l3miah.fsf@uwo.ca \
    --to=jdc@uwo.ca \
    --cc=ding@gnus.org \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).