perhaps will be better preserved this way
=2D--
misc/mailing | 4 +++-
1 files changed, 3 insertions(+), 1 deletions(-)
diff --git a/misc/mailing b/misc/mailing
index 1c7087a..aae2dc5 100755
=2D-- a/misc/mailing
+++ b/misc/mailing
@@ -22,7 +22,7 @@
(while (setq *From (lowc (till " " T)))
(off
*Name *Subject *Date *MessageID *InReplyTo *MimeVersion
=2D *ContentType *ContentDisposition *UserAgent )
+ *ContentType *ContentTransferEncoding *ContentDispositio=
n *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 *ContentTransferE=
ncoding *Line))
("Content-Disposition:" (setq *ContentDisposition *Li=
ne))
("User-Agent:" (setq *UserAgent *Line)) ) )
(if (nor (member *From *Mailings) (=3D "subscribe" (lowc *S=
ubject)))
@@ -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-Tran=
sfer-Encoding: " @ "^M"))
(and *ContentDisposition (prinl "Content-Dispositi=
on: " @ "^M"))
(and *UserAgent (prinl "User-Agent: " @ "^M"))
(prinl "^M")
=2D-=20
1.7.4.1
=2D-=20
dexen deVries
[[[=E2=86=93][=E2=86=92]]]
``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=3D2308816
--
UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
