* mime-view.el (unpack): Abolish unused local variable.

diff --git a/ChangeLog b/ChangeLog
index c213842..b40e9c6 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+1999-05-03  Tanaka Akira  <akr@jaist.ac.jp>
+
+       * mime-view.el (unpack): Abolish unused local variable.
+
 1999-05-02  Tanaka Akira  <akr@jaist.ac.jp>
 
        * 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 (file)
--- 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)