From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 23 May 2000 21:39:27 +0000 (+0000)
Subject: Workaround another problem with broken mailers mangling received
X-Git-Tag: 20090517-FFI~3693
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=dece4e1fe9d237e3c24a4b8585719570614dbd19;p=mit-scheme.git

Workaround another problem with broken mailers mangling received
headers.
---

diff --git a/v7/src/imail/rfc822.scm b/v7/src/imail/rfc822.scm
index 93912d9d7..7762fb717 100644
--- a/v7/src/imail/rfc822.scm
+++ b/v7/src/imail/rfc822.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: rfc822.scm,v 1.8 2000/05/22 14:50:50 cph Exp $
+;;; $Id: rfc822.scm,v 1.9 2000/05/23 21:39:27 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -154,7 +154,11 @@
 	       (set! id (car pv))
 	       (loop (cdr pv))))
 	    ((string-ci=? "for" (car tokens))
-	     (let ((pv (rfc822:parse-addr-spec (cdr tokens))))
+	     (let ((pv
+		    (or (rfc822:parse-addr-spec (cdr tokens))
+			;; Kludge: some losing mailers do this, even
+			;; though it's illegal.
+			(rfc822:parse-msg-id (cdr tokens)))))
 	       (if (not pv)
 		   (lose))
 	       (set! for (car pv))