From: morioka <morioka>
Date: Fri, 13 Nov 1998 07:43:54 +0000 (+0000)
Subject: (eword-decode-structured-field-body): Abolish non-used local variable.
X-Git-Tag: flim-1_12_0~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c19d652e603e909d0f77acddafa2d11d5613a4ac;p=elisp%2Fflim.git

(eword-decode-structured-field-body): Abolish non-used local variable.
---

diff --git a/eword-decode.el b/eword-decode.el
index a6e4220..276b656 100644
--- a/eword-decode.el
+++ b/eword-decode.el
@@ -112,14 +112,12 @@ such as a version of Net$cape)."
 (defun eword-decode-structured-field-body (string
 					   &optional start-column max-column)
   (let ((tokens (eword-lexical-analyze string 'must-unfold))
-	(result ""))
+	(result "")
+	token)
     (while tokens
-      (let* ((token (car tokens))
-	     (type (car token)))
-	(setq tokens (cdr tokens))
-	(setq result
-	      (concat result (eword-decode-token token)))
-	))
+      (setq token (car tokens))
+      (setq result (concat result (eword-decode-token token)))
+      (setq tokens (cdr tokens)))
     result))
 
 (defun eword-decode-and-unfold-structured-field-body (string