From: morioka <morioka>
Date: Wed, 10 Jun 1998 05:43:29 +0000 (+0000)
Subject: (mime-edit-enclose-region-internal): Abolish unused local variable.
X-Git-Tag: semi-1_5_4_9~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=7e73926d5aeae94ed2ee289ccce778646a8b6248;hp=a9b7a5efe8d3f973458ee52eeaca9b988bc948e0;p=elisp%2Fsemi.git

(mime-edit-enclose-region-internal): Abolish unused local variable.
---

diff --git a/mime-edit.el b/mime-edit.el
index 56e77b0..bb48d9c 100644
--- a/mime-edit.el
+++ b/mime-edit.el
@@ -2177,19 +2177,18 @@ and insert data encoded as ENCODING."
 (defun mime-edit-enclose-region-internal (type beg end)
   (save-excursion
     (goto-char beg)
-    (let ((current (point)))
-      (save-restriction
-	(narrow-to-region beg end)
-	(insert (format "--<<%s>>-{\n" type))
-	(goto-char (point-max))
-	(insert (format "--}-<<%s>>\n" type))
-	(goto-char (point-max))
+    (save-restriction
+      (narrow-to-region beg end)
+      (insert (format "--<<%s>>-{\n" type))
+      (goto-char (point-max))
+      (insert (format "--}-<<%s>>\n" type))
+      (goto-char (point-max))
+      )
+    (or (looking-at mime-edit-beginning-tag-regexp)
+	(eobp)
+	(insert (mime-make-text-tag) "\n")
 	)
-      (or (looking-at mime-edit-beginning-tag-regexp)
-	  (eobp)
-	  (insert (mime-make-text-tag) "\n")
-	  )
-      )))
+    ))
 
 (defun mime-edit-enclose-quote-region (beg end)
   (interactive "*r")