From 1af5d0cfc33777a5371c9d1b9975b9fa852af877 Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 15 Apr 1996 08:57:58 +0000 Subject: [PATCH] (rfc822/parse-ascii-token): does not exit from loop even if token-value is nil. --- tl-822.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/tl-822.el b/tl-822.el index 2ca477d..4d2d12c 100644 --- a/tl-822.el +++ b/tl-822.el @@ -30,7 +30,7 @@ (defconst rfc822/RCS-ID - "$Id: tl-822.el,v 7.7 1996-04-15 08:56:37 morioka Exp $") + "$Id: tl-822.el,v 7.8 1996-04-15 08:57:58 morioka Exp $") (defconst rfc822/version (get-version-string rfc822/RCS-ID)) @@ -350,8 +350,9 @@ (let (token itl parsed token-value) (while (and lal (setq token (car lal)) - (setq token-value (cdr token)) - (if (find-charset-string token-value) + (if (and (setq token-value (cdr token)) + (find-charset-string token-value) + ) (setq token nil) (rfc822/ignored-token-p token) )) -- 1.7.10.4