From a279a6aad05c4d5f0846d1b11d7321abf7530ab4 Mon Sep 17 00:00:00 2001 From: morioka Date: Wed, 15 May 1996 14:23:50 +0000 Subject: [PATCH] (rfc822/lexical-analyze): Unnecessary local variable `len' was abolished. --- tl-822.el | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/tl-822.el b/tl-822.el index 4891da8..182b1e0 100644 --- a/tl-822.el +++ b/tl-822.el @@ -30,7 +30,7 @@ (defconst rfc822/RCS-ID - "$Id: tl-822.el,v 7.23 1996-05-15 14:19:45 morioka Exp $") + "$Id: tl-822.el,v 7.24 1996-05-15 14:23:50 morioka Exp $") (defconst rfc822/version (get-version-string rfc822/RCS-ID)) @@ -356,9 +356,7 @@ )))) (defun rfc822/lexical-analyze (str) - (let (dest - (len (length str)) - ret) + (let (dest ret) (while (not (string-equal str "")) (setq ret (or (rfc822/analyze-quoted-string str) -- 1.7.10.4