From dece4e1fe9d237e3c24a4b8585719570614dbd19 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 23 May 2000 21:39:27 +0000
Subject: [PATCH] Workaround another problem with broken mailers mangling
 received headers.

---
 v7/src/imail/rfc822.scm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

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))
-- 
2.25.1