From c19d652e603e909d0f77acddafa2d11d5613a4ac Mon Sep 17 00:00:00 2001 From: morioka Date: Fri, 13 Nov 1998 07:43:54 +0000 Subject: [PATCH] (eword-decode-structured-field-body): Abolish non-used local variable. --- eword-decode.el | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) 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 -- 1.7.10.4