From 82818fb370813d40706265dee1809b79c527f75c Mon Sep 17 00:00:00 2001 From: morioka Date: Sun, 7 Jun 1998 14:40:50 +0000 Subject: [PATCH] (mime-edit-find-inmost): Abolish unused local variables. --- mime-edit.el | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) 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) ) -- 1.7.10.4