Re: base64 message body decode when replying???

Brent Welch <[email protected]>
Newsgroups gmane.mail.exmh.user
Message-ID <[email protected]>
Here's what I do:

In the sedit More... menu I've added an Unquote menu item:

*Sedit.Menubar.more.m.l_unquote: Unquote
*Sedit.Menubar.more.m.c_unquote: SeditUnquote {$t}

The function SeditUnquote is in the attached file.
It's handles either quoted printable or base-64.
The QP decode is lame, and should probably use mimencode -u -q

When I'm using a dumb terminal and using Repl directly,
I pipe contents of my vi buffer through an "un64" script
I wrote.  Also attached

>>>[email protected] said:
 > 
 > 
 >  > >That makes sense.  Has anyone scripted a filter, maybe triggered
 >  > >via ~/.mh_profile, which pre-formats the message before handing
 >  > >off the content to the actual repl? 
 > 
 > Yes.  Here's something I wrote back in '04.  I think it should do
 > what you want.   If someone figures out how to make ~/.mh_profile
 > configure repl to "do the right thing" let me know.  I don't care
 > that much--I just invoke it on demand (maybe once or twice a week.)
 > 
 > Looked at Sylpheed last week.  Bah.  I wonder if EXMH will last 
 > forever?
 > 
 > steve
 > --
 > 
 > #!/bin/bash
 > repl -filter /dev/null -nodraftfolder -nowhatnowproc $*
 > (cat ~/Mail/draft; echo -e "\n > ---- Original Message ----" ; \
 >   mhshow cur -type text -nopause -nomoreproc \
 >     | egrep -v '^Return-Path|^Delivery-Date|^part[ ]+text/plain' \
 >     | egrep -v '^X-|^MIME' \
 >     | sed 's/^/ > /' \
 >   )  > ~/Mail/drafts/999
 > comp -use -draftfolder drafts -draftmessage 999
 > rm -f ~/Mail/draft
 > rm -f ~/Mail/drafts/999


--
Brent Welch
Director, Software Architecture, Panasas Inc
The Leader in Parallel Storage

www.panasas.com
[email protected]

_______________________________________________
Exmh-users mailing list
[email protected]
https://www.redhat.com/mailman/listinfo/exmh-users
un64 (text/plain, 188 B)
#!/usr/pan/bin/tclsh8.3

set tmp [open /tmp/un64 w]
while {[gets stdin line] >= 0} {
  regsub {^ *> *} $line {} line
  puts $tmp $line
}
close $tmp
puts [exec mimencode -u -b < /tmp/un64]
seditHack.tcl (application/x-tcl, 1.2 KB) - not displayed
lmpx.com only provides a reader for public news (NNTP) servers. It is not affiliated with the servers or forums shown here and is not responsible for the content of articles, which is written by their respective authors.