From f4de2722943babb91aa53047de7f07243d888d52 Mon Sep 17 00:00:00 2001 From: akr Date: Mon, 3 May 1999 08:19:03 +0000 Subject: [PATCH] * mime-view.el (unpack): Abolish unused local variable. --- ChangeLog | 4 ++++ mime-view.el | 5 ++--- 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index c213842..b40e9c6 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +1999-05-03 Tanaka Akira + + * mime-view.el (unpack): Abolish unused local variable. + 1999-05-02 Tanaka Akira * mime-view.el (postpet-decode): Returns nil if input is invalid. diff --git a/mime-view.el b/mime-view.el index 7ff4939..cbed0a7 100644 --- a/mime-view.el +++ b/mime-view.el @@ -548,8 +548,7 @@ Each elements are regexp of field-name.") (put 'unpack 'lisp-indent-function 1) (defmacro unpack (string &rest body) `(let* ((*unpack*string* (string-as-unibyte ,string)) - (*unpack*index* 0) - (*unpack*length* (length *unpack*string*))) + (*unpack*index* 0)) ,@body)) (defun unpack-skip (len) @@ -583,7 +582,7 @@ Each elements are regexp of field-name.") (defun postpet-decode (string) (condition-case nil (unpack string - (let ((res)) + (let (res) (unpack-skip 4) (set-alist 'res 'carryingcount (unpack-long)) (unpack-skip 8) -- 1.7.10.4