From f15931f3dba40ca62c5101c92464ff1b2ce00b92 Mon Sep 17 00:00:00 2001
From: "Taylor R. Campbell" <net/mumble/campbell>
Date: Tue, 3 Feb 2009 01:16:52 +0000
Subject: [PATCH] Ask STRING? before calling STRING-LENGTH when parsing
 tokenized header fields.

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

diff --git a/v7/src/imail/imail-mime.scm b/v7/src/imail/imail-mime.scm
index 6ea4081e1..cf8934221 100644
--- a/v7/src/imail/imail-mime.scm
+++ b/v7/src/imail/imail-mime.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: imail-mime.scm,v 1.12 2008/09/08 03:55:18 riastradh Exp $
+$Id: imail-mime.scm,v 1.13 2009/02/03 01:16:52 riastradh Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -732,7 +732,9 @@ USA.
               (let ((attribute (car tokens)) (tokens (cdr tokens)))
                 (if (pair? tokens)
                     (let ((equals (car tokens)) (tokens (cdr tokens)))
-                      (if (and (eqv? equals #\=) (pair? tokens))
+                      (if (and (eqv? equals #\=)
+                               (pair? tokens)
+                               (string? (car tokens)))
                           (cons (cons (intern attribute)
                                       (rfc822:unquote-string (car tokens)))
                                 (recur (cdr tokens)))
-- 
2.25.1