* htmlified mail
@ 2001-01-24 9:15 Joakim Hove
2001-01-24 11:38 ` Bill White
0 siblings, 1 reply; 18+ messages in thread
From: Joakim Hove @ 2001-01-24 9:15 UTC (permalink / raw)
Hello,
I quite often get htmlized mail were people have underlined or marked
up text with bold or italic. These mails are generally quite horrible
to read. However most of the markup (underline/bold/italic) can be
simply reproduced in a normal emacs buffer without resorting to w3 (or
any other browser). Is there a way I can do a simple washing of
text/html messages.
A typical example message looks like this (hopefully this looks as bad
in *your* gnus as it does in mine ...)
<html>
<font size=3>Joakim Eg proever aa kommentere nedanfor, i teksten. Har
ikkje papira mine her paa kontoret naa, men eg trur eg hugsar bra. Eg
<b>uthevar</b> mine kommentarar slik at du lett kan finne dei, (men la det ikkje
bli staande slik i brevet!)<br>
<br>
At 10:59 PM 1/22/2001 +0100, you wrote:<br>
<blockquote type=cite cite>Hei,<br>
<br>
nedenfor kommer de tre brevene som jeg kommer til å sende ut ganske<br>
snart. Dersom jeg ikke hører noe innen kvelden torsdag 25. januar,
så<br>
sender jeg mailene uforandret til de personene som er listet opp på<br>
fredag morgen. <br>
<br>
[....]
I would like this to wash into something like:
Joakim Eg proever aa kommentere nedanfor, i teksten. Har ikkje papira
mine her paa kontoret naa, men eg trur eg hugsar bra. Eg *uthevar* mine
kommentarar slik at du lett kan finne dei, (men la det ikkje bli
staande slik i brevet!)
At 10:59 PM 1/22/2001 +0100, you wrote:
cite> Hei,
cite>
cite> nedenfor kommer de tre brevene som jeg kommer til å sende ut ganske
cite> snart. Dersom jeg ikke hører noe innen kvelden torsdag 25. januar,
cite> så sender jeg mailene uforandret til de personene som er listet opp på
cite> fredag morgen.
---------------
Of course, the washing in question should be simple, tables and other
more "advanced" html features should of course not be supported. But
if washing could:
1. Remove and ignore <font> </font> pairs
2. Remove <br> and and "prittify" linebreaks/paragraphs/spacing
3. Replace <b>bold</b> -> *bold* and <i>italic</i> -> /italic/
This would *greatly* increase the readability of these messages.
Is there anything like this in the works, or if not do anyone have
suggestions on how to implement something like this?
Joakim
--
==== Joakim Hove www.phys.ntnu.no/~hove/ =======================
|| Institutt for fysikk (735) 93637 / E3-166 | Skøyensgate 10D ||
|| N - 7491 Trondheim hove@phys.ntnu.no | N - 7030 Trondheim ||
================================================= 73 93 31 68 =========
^ permalink raw reply [flat|nested] 18+ messages in thread
* Re: htmlified mail
2001-01-24 9:15 htmlified mail Joakim Hove
@ 2001-01-24 11:38 ` Bill White
2001-01-24 14:06 ` Randal L. Schwartz
2001-01-26 3:59 ` Error with function gnus-summary-pipe-output (Was htmlified mail) Mike Pullen
0 siblings, 2 replies; 18+ messages in thread
From: Bill White @ 2001-01-24 11:38 UTC (permalink / raw)
On Wed Jan 24 2001 at 03:15, Joakim Hove <Joakim.Hove@phys.ntnu.no> said:
jh> I quite often get htmlized mail were people have underlined or
jh> marked up text with bold or italic. These mails are generally
jh> quite horrible to read. However most of the markup
jh> (underline/bold/italic) can be simply reproduced in a normal
jh> emacs buffer without resorting to w3 (or any other
jh> browser). Is there a way I can do a simple washing of
jh> text/html messages.
I'm seeing a lot of this crap nowadays. Is this MS Lookout! output?
Sometimes I use html2text - with the article displayed, type `|' in
the Summary buffer and tell it to run a script.
It loses all formatting elsewhere in the message (any lynx
gurus/manpage readers out there?) but sometimes it's worthwhile.
,----[ ~/html2text ]
| #! /usr/local/bin/perl
|
| $^W = 1;
| use strict;
| use POSIX ();
| use Fcntl;
|
| my $tmp = POSIX::tmpnam();
| while( ! sysopen(F, $tmp, O_WRONLY|O_EXCL|O_CREAT, 0600) ) {
| die "Attempt to open $tmp failed: $!"
| unless $! =~ "File exists";
| $tmp = POSIX::tmpnam();
| }
|
| while(<>) {
| print F;
| }
|
| close(F)
| or die "Close of $tmp failed: $!";
|
| !system(qw(lynx -dump -force_html), $tmp)
| or die "System failed: $!";
|
| END {
| unlink $tmp if -f $tmp;
| }
`----
Hm. I guess it could be simplified, but oh well. Dunno where I got it.
Cheers -
bw
--
Bill White . billw@wolfram.com . http://members.wri.com/billw
"No ma'am, we're musicians."
^ permalink raw reply [flat|nested] 18+ messages in thread* Re: htmlified mail
2001-01-24 11:38 ` Bill White
@ 2001-01-24 14:06 ` Randal L. Schwartz
2001-01-24 15:03 ` Stainless Steel Rat
2001-01-24 15:22 ` Hannu Koivisto
2001-01-26 3:59 ` Error with function gnus-summary-pipe-output (Was htmlified mail) Mike Pullen
1 sibling, 2 replies; 18+ messages in thread
From: Randal L. Schwartz @ 2001-01-24 14:06 UTC (permalink / raw)
Cc: ding
>>>>> "Bill" == Bill White <billw@wolfram.com> writes:
Bill> I'm seeing a lot of this crap nowadays. Is this MS Lookout! output?
Apparently, MS Outlook (not Outlook Express) for Windows 2K does not
have a global "send plaintext mail only". To send plaintext mail,
the address must be added to an address book, and then for that specific
address, an option must be individually selected to say "send plaintext".
This is pure evil.
I wrote the following Perl program as a hasty response, and pipe everything
through it that matches "Content-type:.*boundary" in the header. It's
harmless on *real* MIME content, other than eating a bit of CPU.
Requires the MIME::Tools distribution from teh CPAN.
#!/usr/bin/perl -w
use strict;
$|++;
my $envelope = <STDIN>;
use MIME::Parser;
use MIME::Entity;
my $parser = MIME::Parser->new;
$parser->output_to_core(1);
$parser->tmp_to_core(1);
my $ent = eval { $parser->parse(\*STDIN) }; die "$@" if $@;
if ($ent->effective_type eq "multipart/alternative"
and $ent->parts == 2
and $ent->parts(0)->effective_type eq "text/plain"
and $ent->parts(1)->effective_type eq "text/html") {
my $newent = MIME::Entity->build(Data =>
$ent->parts(0)->body_as_string .
"\n\n[[HTML alternate version deleted]]\n");
$ent->parts([$newent]);
$ent->make_singlepart;
$ent->sync_headers(Length => 'COMPUTE', Nonstandard => 'ERASE');
}
print $envelope;
$ent->print;
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
^ permalink raw reply [flat|nested] 18+ messages in thread* Re: htmlified mail
2001-01-24 14:06 ` Randal L. Schwartz
@ 2001-01-24 15:03 ` Stainless Steel Rat
2001-01-24 15:22 ` Hannu Koivisto
1 sibling, 0 replies; 18+ messages in thread
From: Stainless Steel Rat @ 2001-01-24 15:03 UTC (permalink / raw)
* merlyn@stonehenge.com (Randal L. Schwartz) on Wed, 24 Jan 2001
| This is pure evil.
Worse, AOL 6.0 has the same "feature".
| I wrote the following Perl program as a hasty response, and pipe everything
| through it that matches "Content-type:.*boundary" in the header. It's
| harmless on *real* MIME content, other than eating a bit of CPU.
| Requires the MIME::Tools distribution from teh CPAN.
Which requires IO-stringy, MIME-Base64, MIME-Types, MIME-tools, MailTools
and libnet :).
--
Rat <ratinox@peorth.gweep.net> \ Ingredients of Happy Fun Ball include an
Minion of Nathan - Nathan says Hi! \ unknown glowing substance which fell to
PGP Key: at a key server near you! \ Earth, presumably from outer space.
^ permalink raw reply [flat|nested] 18+ messages in thread
* Re: htmlified mail
2001-01-24 14:06 ` Randal L. Schwartz
2001-01-24 15:03 ` Stainless Steel Rat
@ 2001-01-24 15:22 ` Hannu Koivisto
1 sibling, 0 replies; 18+ messages in thread
From: Hannu Koivisto @ 2001-01-24 15:22 UTC (permalink / raw)
merlyn@stonehenge.com (Randal L. Schwartz) writes:
| Apparently, MS Outlook (not Outlook Express) for Windows 2K does not
| have a global "send plaintext mail only". To send plaintext mail,
If you are communicating through Exchange 2k with that Outlook and
can affect the configuration of it, one can configure it not to
send HTML- and TNEF-junk outside your organization (and possibly to
Unix machines inside your organization, for example, which is what
we did in our company for my Linux machines).
--
Hannu
^ permalink raw reply [flat|nested] 18+ messages in thread
* Error with function gnus-summary-pipe-output (Was htmlified mail)
2001-01-24 11:38 ` Bill White
2001-01-24 14:06 ` Randal L. Schwartz
@ 2001-01-26 3:59 ` Mike Pullen
2001-01-26 8:17 ` Bill White
1 sibling, 1 reply; 18+ messages in thread
From: Mike Pullen @ 2001-01-26 3:59 UTC (permalink / raw)
Bill White <billw@wolfram.com> writes:
> I'm seeing a lot of this crap nowadays. Is this MS Lookout! output?
> Sometimes I use html2text - with the article displayed, type `|' in
> the Summary buffer and tell it to run a script.
When trying to pipe the article output from gnus using '|', I get the
following backtrace. Any ideas?
Oort Gnus v0.01
XEmacs 21.1 (patch 12) "Channel Islands" [Lucid] (i386-redhat-linux) of Thu Aug 24 2000 on porky.devel.redhat.com
200 Leafnode NNTP Daemon, version 1.9.17 running at lohad.darby.net
Signaling: (wrong-type-argument stringp default)
call-process-internal("/bin/bash" "/tmp/mtp/emacs3iG36A" #<buffer "*Shell Command Output*"> nil "-c" default)
apply(call-process-internal "/bin/bash" "/tmp/mtp/emacs3iG36A" #<buffer "*Shell Command Output*"> nil ("-c" default))
call-process("/bin/bash" "/tmp/mtp/emacs3iG36A" #<buffer "*Shell Command Output*"> nil "-c" default)
apply(call-process "/bin/bash" "/tmp/mtp/emacs3iG36A" #<buffer "*Shell Command Output*"> nil ("-c" default))
call-process-region(1 2630 "/bin/bash" nil #<buffer "*Shell Command Output*"> nil "-c" default)
shell-command-on-region(1 2630 default nil)
gnus-summary-save-in-pipe(default)
byte-code("..." [gnus-default-article-saver error "No default saver is defined" gnus-article-buffer save-buffer gnus-save-article-buffer gnus-prompt-before-saving default always nil file filename t num gnus-number-of-articles-to-be-saved gnus-article-current-summary] 2)
gnus-article-save(#<buffer " *Gnus Save*"> nil 1)
gnus-summary-save-article(nil t)
gnus-summary-pipe-output(nil)
call-interactively(gnus-summary-pipe-output)
--
Mike Pullen
http://www.midwest.net/scribers/mpullen
^ permalink raw reply [flat|nested] 18+ messages in thread* Re: Error with function gnus-summary-pipe-output (Was htmlified mail)
2001-01-26 3:59 ` Error with function gnus-summary-pipe-output (Was htmlified mail) Mike Pullen
@ 2001-01-26 8:17 ` Bill White
2001-01-26 13:20 ` ShengHuo ZHU
2001-01-26 19:01 ` James H. Cloos Jr.
0 siblings, 2 replies; 18+ messages in thread
From: Bill White @ 2001-01-26 8:17 UTC (permalink / raw)
On Thu Jan 25 2001 at 21:59, Mike Pullen <mpullen@midwest.net> said:
mp> Bill White <billw@wolfram.com> writes:
>> I'm seeing a lot of this crap nowadays. Is this MS Lookout!
>> output? Sometimes I use html2text - with the article
>> displayed, type `|' in the Summary buffer and tell it to run a
>> script.
mp> When trying to pipe the article output from gnus using '|', I
mp> get the following backtrace. Any ideas?
mp> Oort Gnus v0.01
mp> XEmacs 21.1 (patch 12) "Channel Islands" [Lucid] (i386-redhat-linux) of Thu Aug 24 2000 on porky.devel.redhat.com
mp> 200 Leafnode NNTP Daemon, version 1.9.17 running at lohad.darby.net
mp> Signaling: (wrong-type-argument stringp default)
mp> call-process-internal("/bin/bash" "/tmp/mtp/emacs3iG36A" #<buffer "*Shell Command Output*"> nil "-c" default)
mp> apply(call-process-internal "/bin/bash" "/tmp/mtp/emacs3iG36A" #<buffer "*Shell Command Output*"> nil ("-c" default))
mp> call-process("/bin/bash" "/tmp/mtp/emacs3iG36A" #<buffer "*Shell Command Output*"> nil "-c" default)
mp> apply(call-process "/bin/bash" "/tmp/mtp/emacs3iG36A" #<buffer "*Shell Command Output*"> nil ("-c" default))
mp> call-process-region(1 2630 "/bin/bash" nil #<buffer "*Shell Command Output*"> nil "-c" default)
mp> shell-command-on-region(1 2630 default nil)
mp> gnus-summary-save-in-pipe(default)
<grapsing at straws>
The "default" stuff that appears from here on up doesn't happen when I
run `|'. Maybe it's related to the "No default saver is defined"
message?
Maybe you could customize `gnus-default-article-saver' to be sure it
has a sane value.
</grapsing at straws>
I bet Shenghuo ZHU can fix it!
mp> byte-code("..." [gnus-default-article-saver error "No default saver is defined" gnus-article-buffer save-buffer gnus-save-article-buffer gnus-prompt-before-saving default always nil file filename t num gnus-number-of-articles-to-be-saved gnus-article-current-summary] 2)
mp> gnus-article-save(#<buffer " *Gnus Save*"> nil 1)
mp> gnus-summary-save-article(nil t)
mp> gnus-summary-pipe-output(nil)
mp> call-interactively(gnus-summary-pipe-output)
Cheers -
bw
--
Bill White . billw@wolfram.com . http://members.wri.com/billw
"No ma'am, we're musicians."
^ permalink raw reply [flat|nested] 18+ messages in thread* Re: Error with function gnus-summary-pipe-output (Was htmlified mail)
2001-01-26 8:17 ` Bill White
@ 2001-01-26 13:20 ` ShengHuo ZHU
2001-01-28 20:44 ` James H. Cloos Jr.
2001-01-26 19:01 ` James H. Cloos Jr.
1 sibling, 1 reply; 18+ messages in thread
From: ShengHuo ZHU @ 2001-01-26 13:20 UTC (permalink / raw)
Bill White <billw@wolfram.com> writes:
> On Thu Jan 25 2001 at 21:59, Mike Pullen <mpullen@midwest.net> said:
[...]
> mp> gnus-summary-save-in-pipe(default)
>
> <grapsing at straws>
> The "default" stuff that appears from here on up doesn't happen when I
> run `|'. Maybe it's related to the "No default saver is defined"
> message?
>
> Maybe you could customize `gnus-default-article-saver' to be sure it
> has a sane value.
> </grapsing at straws>
>
> I bet Shenghuo ZHU can fix it!
OK, I say "fixed."
BTW, for Gnus 5.8.8, not changing gnus-prompt-before-saving is a
workaround.
ShengHuo
--
(setq gnus-posting-styles '((".*" (signature-file "~/.signature"))))
^ permalink raw reply [flat|nested] 18+ messages in thread* Re: Error with function gnus-summary-pipe-output (Was htmlified mail)
2001-01-26 13:20 ` ShengHuo ZHU
@ 2001-01-28 20:44 ` James H. Cloos Jr.
2001-01-29 0:35 ` ShengHuo ZHU
0 siblings, 1 reply; 18+ messages in thread
From: James H. Cloos Jr. @ 2001-01-28 20:44 UTC (permalink / raw)
Cc: ding
There is still a problem with gnus-summary-pipe-output.
Once you use it, there is no way to choose a new command; all
subsequent invocations run the initial command w/o prompting the user.
-JimC
--
James H. Cloos, Jr. <http://jhcloos.com/public_key> 1024D/ED7DAEA6
<cloos@jhcloos.com> E9E9 F828 61A4 6EA9 0F2B 63E7 997A 9F17 ED7D AEA6
^ permalink raw reply [flat|nested] 18+ messages in thread
* Re: Error with function gnus-summary-pipe-output (Was htmlified mail)
2001-01-28 20:44 ` James H. Cloos Jr.
@ 2001-01-29 0:35 ` ShengHuo ZHU
2001-01-29 1:49 ` James H. Cloos Jr.
0 siblings, 1 reply; 18+ messages in thread
From: ShengHuo ZHU @ 2001-01-29 0:35 UTC (permalink / raw)
"James H. Cloos Jr." <cloos@jhcloos.com> writes:
> There is still a problem with gnus-summary-pipe-output.
>
> Once you use it, there is no way to choose a new command; all
> subsequent invocations run the initial command w/o prompting the user.
Set gnus-prompt-before-saving to 'always, which is the default value.
ShengHuo
--
(setq gnus-posting-styles '((".*" (signature-file "~/.signature"))))
^ permalink raw reply [flat|nested] 18+ messages in thread* Re: Error with function gnus-summary-pipe-output (Was htmlified mail)
2001-01-29 0:35 ` ShengHuo ZHU
@ 2001-01-29 1:49 ` James H. Cloos Jr.
2001-02-06 6:51 ` ShengHuo ZHU
0 siblings, 1 reply; 18+ messages in thread
From: James H. Cloos Jr. @ 2001-01-29 1:49 UTC (permalink / raw)
[-- Attachment #1: Type: text/plain, Size: 167 bytes --]
>>>>> "ZSH" == ShengHuo ZHU <zsh@cs.rochester.edu> writes:
ZSH> Set gnus-prompt-before-saving to 'always, which is the default value.
Ick! Perhaps this is better:
[-- Attachment #2: Type: text/plain, Size: 870 bytes --]
Index: gnus-sum.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/gnus-sum.el,v
retrieving revision 6.39
diff -u -c -r6.39 gnus-sum.el
cvs server: conflicting specifications of output style
*** gnus-sum.el 2001/01/23 16:12:28 6.39
--- gnus-sum.el 2001/01/29 01:47:38
***************
*** 9312,9318 ****
pipe those articles instead."
(interactive "P")
(require 'gnus-art)
! (let ((gnus-default-article-saver 'gnus-summary-save-in-pipe))
(gnus-summary-save-article arg t))
(gnus-configure-windows 'pipe))
--- 9312,9319 ----
pipe those articles instead."
(interactive "P")
(require 'gnus-art)
! (let ((gnus-default-article-saver 'gnus-summary-save-in-pipe)
! (gnus-prompt-before-saving 'always))
(gnus-summary-save-article arg t))
(gnus-configure-windows 'pipe))
[-- Attachment #3: Type: text/plain, Size: 156 bytes --]
-JimC
--
James H. Cloos, Jr. <http://jhcloos.com/public_key> 1024D/ED7DAEA6
<cloos@jhcloos.com> E9E9 F828 61A4 6EA9 0F2B 63E7 997A 9F17 ED7D AEA6
^ permalink raw reply [flat|nested] 18+ messages in thread* Re: Error with function gnus-summary-pipe-output (Was htmlified mail)
2001-01-29 1:49 ` James H. Cloos Jr.
@ 2001-02-06 6:51 ` ShengHuo ZHU
0 siblings, 0 replies; 18+ messages in thread
From: ShengHuo ZHU @ 2001-02-06 6:51 UTC (permalink / raw)
"James H. Cloos Jr." <cloos@jhcloos.com> writes:
> >>>>> "ZSH" == ShengHuo ZHU <zsh@cs.rochester.edu> writes:
>
> ZSH> Set gnus-prompt-before-saving to 'always, which is the default value.
>
> Ick! Perhaps this is better:
>
>
> Index: gnus-sum.el
> ===================================================================
> RCS file: /usr/local/cvsroot/gnus/lisp/gnus-sum.el,v
> retrieving revision 6.39
> diff -u -c -r6.39 gnus-sum.el
> cvs server: conflicting specifications of output style
> *** gnus-sum.el 2001/01/23 16:12:28 6.39
> --- gnus-sum.el 2001/01/29 01:47:38
> ***************
> *** 9312,9318 ****
> pipe those articles instead."
> (interactive "P")
> (require 'gnus-art)
> ! (let ((gnus-default-article-saver 'gnus-summary-save-in-pipe))
> (gnus-summary-save-article arg t))
> (gnus-configure-windows 'pipe))
>
> --- 9312,9319 ----
> pipe those articles instead."
> (interactive "P")
> (require 'gnus-art)
> ! (let ((gnus-default-article-saver 'gnus-summary-save-in-pipe)
> ! (gnus-prompt-before-saving 'always))
> (gnus-summary-save-article arg t))
> (gnus-configure-windows 'pipe))
The document of gnus-prompt-before-saving says "If this variable is
neither nil not `always', there the user will be prompted once for a
file name for each invocation of the saving commands." I think it
should also apply to gnus-summary-pipe-output, which asks for a
command.
ShengHuo
--
(setq gnus-posting-styles '((".*" (signature-file "~/.signature"))))
^ permalink raw reply [flat|nested] 18+ messages in thread
* Re: Error with function gnus-summary-pipe-output (Was htmlified mail)
2001-01-26 8:17 ` Bill White
2001-01-26 13:20 ` ShengHuo ZHU
@ 2001-01-26 19:01 ` James H. Cloos Jr.
2001-01-26 19:17 ` ShengHuo ZHU
1 sibling, 1 reply; 18+ messages in thread
From: James H. Cloos Jr. @ 2001-01-26 19:01 UTC (permalink / raw)
Cc: ding
>>>>> "Bill" == Bill White <billw@wolfram.com> writes:
Bill> <grapsing at straws> The "default" stuff that appears from here
Bill> on up doesn't happen when I run `|'. Maybe it's related to the
Bill> "No default saver is defined" message?
Bill> Maybe you could customize `gnus-default-article-saver' to be
Bill> sure it has a sane value. </grapsing at straws>
I get a similar error, and have been for at least a couple of years....
I had gnus-default-article-saver customized to gnus-summary-save-in-file.
After trying | in summary, gnus-default-article-saver showed as having
the value gnus-summary-save-in-pipe, rather than ...-in-file.
-JimC
--
James H. Cloos, Jr. <http://jhcloos.com/public_key> 1024D/ED7DAEA6
<cloos@jhcloos.com> E9E9 F828 61A4 6EA9 0F2B 63E7 997A 9F17 ED7D AEA6
^ permalink raw reply [flat|nested] 18+ messages in thread
* Re: Error with function gnus-summary-pipe-output (Was htmlified mail)
2001-01-26 19:01 ` James H. Cloos Jr.
@ 2001-01-26 19:17 ` ShengHuo ZHU
2001-01-26 22:32 ` James H. Cloos Jr.
0 siblings, 1 reply; 18+ messages in thread
From: ShengHuo ZHU @ 2001-01-26 19:17 UTC (permalink / raw)
"James H. Cloos Jr." <cloos@jhcloos.com> writes:
> I get a similar error, and have been for at least a couple of years....
>
> I had gnus-default-article-saver customized to gnus-summary-save-in-file.
>
> After trying | in summary, gnus-default-article-saver showed as having
> the value gnus-summary-save-in-pipe, rather than ...-in-file.
gnus-default-article-saver is bound to gnus-summary-save-in-pipe when
trying `|'. If Gnus changes the value after the command, it is
because there was a bug in Gnus 5.8.7 and previous versions. A
workaround is putting (require 'gnus-art) in ~/.gnus .
ShengHuo
--
(setq gnus-posting-styles '((".*" (signature-file "~/.signature"))))
^ permalink raw reply [flat|nested] 18+ messages in thread* Re: Error with function gnus-summary-pipe-output (Was htmlified mail)
2001-01-26 19:17 ` ShengHuo ZHU
@ 2001-01-26 22:32 ` James H. Cloos Jr.
2001-01-26 23:00 ` ShengHuo ZHU
0 siblings, 1 reply; 18+ messages in thread
From: James H. Cloos Jr. @ 2001-01-26 22:32 UTC (permalink / raw)
Cc: ding
>>>>> "ZSH" == ShengHuo ZHU <zsh@cs.rochester.edu> writes:
ZSH> gnus-default-article-saver is bound to gnus-summary-save-in-pipe
ZSH> when trying `|'. If Gnus changes the value after the command, it
ZSH> is because there was a bug in Gnus 5.8.7 and previous versions.
ZSH> A workaround is putting (require 'gnus-art) in ~/.gnus .
This has no effect on getting | to work. I still get 'default as the
last argument in the call to call-process-region.
The code (as of 5.8.8) looks like:
(defun gnus-summary-save-in-pipe (&optional command)
"Pipe this article to subprocess."
(setq command
(cond ((and (eq command 'default)
gnus-last-shell-command)
gnus-last-shell-command)
(command command)
(t (read-string
(format
"Shell command on %s: "
(if (and gnus-number-of-articles-to-be-saved
(> gnus-number-of-articles-to-be-saved 1))
(format "these %d articles"
gnus-number-of-articles-to-be-saved)
"this article"))
gnus-last-shell-command))))
(when (string-equal command "")
(setq command gnus-last-shell-command))
(gnus-eval-in-buffer-window gnus-article-buffer
(save-restriction
(widen)
(shell-command-on-region (point-min) (point-max) command nil)))
(setq gnus-last-shell-command command))
That 'default up there appears to get sent to shell-command-on-region.
Note that read-string is NOT called when the error occurs. Note that
default is not AFAICT defined. Anf this bug has existed in every
version of ding that I have tried. (I had to think about when I was
first hit with it for a while; it was indeed when I discovered ding
and upgraded from whatever version/capitalization of gnus I'd been using.
So. (eq command 'default) is presumably nil. gnus-last-shell-command
as well, so command is not setq to (gnus-last-shell-command). command
is not set AFAICT, so command is not setq to the old value of command
either. So read-string ought to be run. But it is not.
Just tested by manually calling (gnus-summary-save-in-pipe "ls").
The backtrace is now:
Signaling: (wrong-type-argument stringp default)
call-process-region(1 902 "/bin/bash" "/tmp/emacseha4Xw"
#<buffer *Shell Command Output*> nil "-c" default)
shell-command-on-region(1 902 default nil)
gnus-summary-save-in-pipe(default)
byte-code("**ELIDED**" [gnus-default-article-saver gnus-article-buffer
save-buffer gnus-save-article-buffer gnus-prompt-before-saving
file error "No default saver is defined" default always nil t
filename num gnus-number-of-articles-to-be-saved
gnus-article-current-summary] 2)
gnus-article-save(#<buffer *Gnus Save*> nil 1)
gnus-summary-save-article(nil t)
gnus-summary-pipe-output(nil)
call-interactively(gnus-summary-pipe-output)
gnus-article-read-summary-keys(nil)
* call-interactively(gnus-article-read-summary-keys)
as you can see, gnus-summary-save-in-pipe is still called with the arg default.
The bytecode shows that gnus-article-save's fragment:
(if (not gnus-default-article-saver)
(error "No default saver is defined")
indicates that (not gnus-default-article-saver) is returning t. The
variable is now set to gnus-summary-save-in-rmail (since I removed
the reference to it in ~/.emacs.el). Running a (setq gnus-default-
article-saver 'gnus-summary-save-in-file) does not change the backtrace.
-JimC
--
James H. Cloos, Jr. <http://jhcloos.com/public_key> 1024D/ED7DAEA6
<cloos@jhcloos.com> E9E9 F828 61A4 6EA9 0F2B 63E7 997A 9F17 ED7D AEA6
^ permalink raw reply [flat|nested] 18+ messages in thread* Re: Error with function gnus-summary-pipe-output (Was htmlified mail)
2001-01-26 22:32 ` James H. Cloos Jr.
@ 2001-01-26 23:00 ` ShengHuo ZHU
2001-01-27 21:17 ` James H. Cloos Jr.
0 siblings, 1 reply; 18+ messages in thread
From: ShengHuo ZHU @ 2001-01-26 23:00 UTC (permalink / raw)
"James H. Cloos Jr." <cloos@jhcloos.com> writes:
> >>>>> "ZSH" == ShengHuo ZHU <zsh@cs.rochester.edu> writes:
>
> ZSH> gnus-default-article-saver is bound to gnus-summary-save-in-pipe
> ZSH> when trying `|'. If Gnus changes the value after the command, it
> ZSH> is because there was a bug in Gnus 5.8.7 and previous versions.
> ZSH> A workaround is putting (require 'gnus-art) in ~/.gnus .
>
> This has no effect on getting | to work. I still get 'default as the
> last argument in the call to call-process-region.
>
> The code (as of 5.8.8) looks like:
I thought you meant another similar error, not exactly the same error.
I've fixed this error this morning (in oGnus v0.01). See message
<2nk87imovr.fsf@tiger.jia.vnet>.
ShengHuo
--
(setq gnus-posting-styles '((".*" (signature-file "~/.signature"))))
^ permalink raw reply [flat|nested] 18+ messages in thread
end of thread, other threads:[~2001-02-06 6:51 UTC | newest]
Thread overview: 18+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2001-01-24 9:15 htmlified mail Joakim Hove
2001-01-24 11:38 ` Bill White
2001-01-24 14:06 ` Randal L. Schwartz
2001-01-24 15:03 ` Stainless Steel Rat
2001-01-24 15:22 ` Hannu Koivisto
2001-01-26 3:59 ` Error with function gnus-summary-pipe-output (Was htmlified mail) Mike Pullen
2001-01-26 8:17 ` Bill White
2001-01-26 13:20 ` ShengHuo ZHU
2001-01-28 20:44 ` James H. Cloos Jr.
2001-01-29 0:35 ` ShengHuo ZHU
2001-01-29 1:49 ` James H. Cloos Jr.
2001-02-06 6:51 ` ShengHuo ZHU
2001-01-26 19:01 ` James H. Cloos Jr.
2001-01-26 19:17 ` ShengHuo ZHU
2001-01-26 22:32 ` James H. Cloos Jr.
2001-01-26 23:00 ` ShengHuo ZHU
2001-01-27 21:17 ` James H. Cloos Jr.
2001-01-27 21:44 ` ShengHuo ZHU
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).