From 7e73926d5aeae94ed2ee289ccce778646a8b6248 Mon Sep 17 00:00:00 2001 From: morioka Date: Wed, 10 Jun 1998 05:43:29 +0000 Subject: [PATCH 1/1] (mime-edit-enclose-region-internal): Abolish unused local variable. --- mime-edit.el | 23 +++++++++++------------ 1 file changed, 11 insertions(+), 12 deletions(-) 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") -- 1.7.10.4