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~


Cheers,
-- 
dexen deVries

[[[↓][→]]]

``In other news, STFU and hack.''
mahmud, in response to Erann Gat's ``How I lost my faith in Lisp''
http://news.ycombinator.com/item?id=2308816

--Boundary-00=_xLmfN70LoP+89EH
Content-Type: text/x-patch;
  charset="UTF-8";
  name="0001-attempt-to-fix-Content-Transfer-Encoding-header-not-.patch"
Content-Transfer-Encoding: quoted-printable
Content-Disposition: attachment;
        
filename="0001-attempt-to-fix-Content-Transfer-Encoding-header-not-.patch"

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 
forwarded
X-Face: 
1TH%]0KlR_DQ/V9+m_"neC|Yj3$MU@B/vVI\}^j`G/[9JKe=5`p[$l|z^\MRO%<k:9xXL[_!jEZo8$[]yo{7O-]t_@Qj`v5H@L[YyU<#j7(H)P\{pMs))9$@Vww1"ni-{+{5olk=XY&G,}|UHQMC08506\0=+p|75ucH!S!1UcXoC1vgpN_{lOMt_54_N5;)ngh6=D^uZN,}ZI9-k9"v<!}`jpCUMM,//`>H6w{K<geM^bS]jwD8'lAEX9>F[ScIHig1.r%65;

---
 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)))
                (off
                   *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 
*Subject)))
@@ -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")
-- 
1.7.4.1


--Boundary-00=_xLmfN70LoP+89EH--
--
UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe

Reply via email to