Ask STRING? before calling STRING-LENGTH when parsing tokenized

header fields.

diff --git a/v7/src/imail/imail-mime.scm b/v7/src/imail/imail-mime.scm
index 6ea4081e15f85d27f4ace4366735deb5de70bfee..cf8934221ae180176703f917c9692bcf68e16d67 100644 (file)
--- 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)))