From: morioka <morioka>
Date: Sun, 7 Jun 1998 14:40:50 +0000 (+0000)
Subject: (mime-edit-find-inmost): Abolish unused local variables.
X-Git-Tag: semi-1_5_2~12
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=82818fb370813d40706265dee1809b79c527f75c;p=elisp%2Fsemi.git

(mime-edit-find-inmost): Abolish unused local variables.
---

diff --git a/mime-edit.el b/mime-edit.el
index 4209551..30fcc4b 100644
--- a/mime-edit.el
+++ b/mime-edit.el
@@ -1574,21 +1574,17 @@ Parameter must be '(PROMPT CHOICE1 (CHOISE2 ...))."
       (let ((bb (match-beginning 0))
 	    (be (match-end 0))
 	    (type (buffer-substring (match-beginning 1)(match-end 1)))
-	    end-exp eb ee)
+	    end-exp eb)
 	(setq end-exp (format "--}-<<%s>>\n" type))
 	(widen)
 	(if (re-search-forward end-exp nil t)
-	    (progn
-	      (setq eb (match-beginning 0))
-	      (setq ee (match-end 0))
-	      )
+	    (setq eb (match-beginning 0))
 	  (setq eb (point-max))
-	  (setq ee (point-max))
 	  )
 	(narrow-to-region be eb)
 	(goto-char be)
 	(if (re-search-forward mime-edit-multipart-beginning-regexp nil t)
-	    (let (ret)
+	    (progn
 	      (narrow-to-region (match-beginning 0)(point-max))
 	      (mime-edit-find-inmost)
 	      )