From: morioka <morioka>
Date: Sat, 25 May 1996 15:36:58 +0000 (+0000)
Subject: (mime-editor/enclose-region): fixed for new format.
X-Git-Tag: Hokutetsu-Ishikawa-new~396
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e4daf0feace9d4e1b25ec44d58067d23bd62266f;p=elisp%2Fsemi.git

(mime-editor/enclose-region): fixed for new format.
---

diff --git a/mime-edit.el b/mime-edit.el
index 839afc4..9db477c 100644
--- a/mime-edit.el
+++ b/mime-edit.el
@@ -9,7 +9,7 @@
 ;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Created: 1994/08/21 renamed from mime.el by UMEDA Masanobu;
 ;;;          1996/05/24 renamed from tm-edit.el
-;;; Version: $Revision: 0.6 $
+;;; Version: $Revision: 0.7 $
 ;;; Keywords: mail, news, MIME, multimedia, multilingual
 ;;;
 ;;; This file is part of SEMI (September, Emacs MIME Interface)
@@ -123,7 +123,7 @@
 ;;;
 
 (defconst mime-editor/RCS-ID
-  "$Id: mime-edit.el,v 0.6 1996-05-25 15:15:03 morioka Exp $")
+  "$Id: mime-edit.el,v 0.7 1996-05-25 15:36:58 morioka Exp $")
 
 (defconst mime-editor/version (get-version-string mime-editor/RCS-ID))
 
@@ -2149,16 +2149,12 @@ a recording host instead of local host."
   (save-excursion
     (goto-char beg)
     (let ((current (point))
-	  exist-prev-tag)
-      (save-excursion
-	(if (mime-editor/goto-tag)
-	    (or (eq current (match-beginning 0))
-		(setq exist-prev-tag t)
-		)))
+	  need-new-line)
+      (or (bolp)
+	  (setq need-new-line t))
       (save-restriction
 	(narrow-to-region beg end)
-	(goto-char beg)
-        (if exist-prev-tag
+	(if need-new-line
 	    (insert "\n")
 	  )
 	(insert (format "--<<%s>>-{\n" type))