On Monday 14 of March 2011 19:13:54 you wrote:
> > could we please have the ``Content-Transfer-Encoding:
> > quoted-printable''=20 handling fixed? :)
> > 
> > I.e., the stuff that currently creates the endless =3D20 etc.
> Hmm, OK. But how? The source is in the PicoLisp distribution in
> "misc/mailing", it doesn't do anything with the encoding.

And it didn't work.

In short, the messages I receive don't have the ``Content-Transfer-Encoding'' 
header (which is a companion to ``Content-Type''), even the ones I sent with 
that header for sure.

Without this header, the mail client doesn't know to interpret the escape 
codes starting with the ``equals'' sign.

Now I dont' understand the code too well, but it seems only fields indicated by 
a shortlist are copied from incomming message to the outgoing message. Perhaps 
if you added the ``Content-Transfer-Encoding'' field to this list (to be just 
copied), it would work?

Attached patch attempts to fir it~

dexen deVries


``In other news, STFU and hack.''
mahmud, in response to Erann Gat's ``How I lost my faith in Lisp''

Content-Type: text/x-patch;
Content-Transfer-Encoding: quoted-printable
Content-Disposition: attachment;

From e17e05b34cbbbe342d4350cdce8a16fa3b180ea8 Mon Sep 17 00:00:00 2001
From: dexen deVries <dexen.devr...@gmail.com>
Date: Mon, 14 Mar 2011 19:47:16 +0100
Subject: [PATCH] attempt to fix Content-Transfer-Encoding header not being 

 misc/mailing |    4 +++-
 1 files changed, 3 insertions(+), 1 deletions(-)

diff --git a/misc/mailing b/misc/mailing
index 1c7087a..aae2dc5 100755
--- a/misc/mailing
+++ b/misc/mailing
@@ -22,7 +22,7 @@
             (while (setq *From (lowc (till " " T)))
                   *Name *Subject *Date *MessageID *InReplyTo *MimeVersion
-                  *ContentType *ContentDisposition *UserAgent )
+                  *ContentType *ContentTransferEncoding *ContentDisposition 
*UserAgent )
                (while (split (line) " ")
                   (setq *Line (glue " " (cdr @)))
                   (case (pack (car @))
@@ -33,6 +33,7 @@
                      ("In-Reply-To:" (setq *InReplyTo *Line))
                      ("MIME-Version:" (setq *MimeVersion *Line))
                      ("Content-Type:" (setq *ContentType *Line))
+                     ("Content-Transfer-Encoding:" (setq 
*ContentTransferEncoding *Line))
                      ("Content-Disposition:" (setq *ContentDisposition *Line))
                      ("User-Agent:" (setq *UserAgent *Line)) ) )
                (if (nor (member *From *Mailings) (= "subscribe" (lowc 
@@ -66,6 +67,7 @@
                         (and *InReplyTo (prinl "In-Reply-To: " @ "^M"))
                         (and *MimeVersion (prinl "MIME-Version: " @ "^M"))
                         (and *ContentType (prinl "Content-Type: " @ "^M"))
+                        (and *ContentTransferEncoding (prinl 
"Content-Transfer-Encoding: " @ "^M"))
                         (and *ContentDisposition (prinl "Content-Disposition: 
" @ "^M"))
                         (and *UserAgent (prinl "User-Agent: " @ "^M"))
                         (prinl "^M")

UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe

Reply via email to