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 <[email protected]> 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:[email protected]?subject=Unsubscribe
