From 4aba0ab134455df792ca66876e359ebb09c22939 Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 25 Mar 1996 10:21:25 +0000 Subject: [PATCH] (rfc822/parse-ascii-token): check token instead of (cdr token). --- tl-822.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/tl-822.el b/tl-822.el index 8b45f96..3433183 100644 --- a/tl-822.el +++ b/tl-822.el @@ -30,7 +30,7 @@ (defconst rfc822/RCS-ID - "$Id: tl-822.el,v 7.5 1996-03-25 10:17:34 morioka Exp $") + "$Id: tl-822.el,v 7.6 1996-03-25 10:21:25 morioka Exp $") (defconst rfc822/version (get-version-string rfc822/RCS-ID)) @@ -348,8 +348,9 @@ (defun rfc822/parse-ascii-token (lal) (let (token itl parsed) - (while (and lal (cdr (car lal)) - (if (find-charset-string (cdr (setq token (car lal)))) + (while (and lal + (setq token (car lal)) + (if (find-charset-string (cdr token)) (setq token nil) (rfc822/ignored-token-p token) )) -- 1.7.10.4