tm 7.27.

[elisp/tm.git] / tm-edit.el

diff --git a/tm-edit.el b/tm-edit.el
index 477eb46..83bf0f6 100644 (file)
--- a/tm-edit.el
+++ b/tm-edit.el
@@ -107,7 +107,7 @@
 ;; LCD Archive Entry:
 ;; mime|Masanobu UMEDA|umerin@mse.kyutech.ac.jp|
 ;; Simple MIME Composer|
-;; $Date: 1995/11/16 16:32:36 $|$Revision: 7.26 $|~/misc/mime.el.Z|
+;; $Date: 1995/11/20 00:26:25 $|$Revision: 7.27 $|~/misc/mime.el.Z|
 
 ;;; Code:
 
@@ -125,7 +125,7 @@
 ;;;
 
 (defconst mime-editor/RCS-ID
-  "$Id: tm-edit.el,v 7.26 1995/11/16 16:32:36 morioka Exp $")
+  "$Id: tm-edit.el,v 7.27 1995/11/20 00:26:25 morioka Exp $")
 
 (defconst mime-editor/version (get-version-string mime-editor/RCS-ID))
 
@@ -1915,37 +1915,27 @@ a recording host instead of local host."
 (defun mime-editor/enclose-region (type beg end)
   (save-excursion
     (goto-char beg)
-    (let ((f (bolp)))
+    (let ((current (point))
+         exist-prev-tag)
+      (save-excursion
+       (if (mime-editor/goto-tag)
+           (or (eq current (match-beginning 0))
+               (setq exist-prev-tag t)
+               )))
       (save-restriction
        (narrow-to-region beg end)
        (goto-char beg)
-       (if (not f)
+        (if exist-prev-tag
            (insert "\n")
          )
        (insert (format "--<<%s>>-{\n" type))
        (goto-char (point-max))
-       (setq f (bolp))
-       (if (not f)
-           (insert (format "\n--}-<<%s>>" type))
-         (insert (format "--}-<<%s>>\n" type))
-         )
+       (insert (format "\n--}-<<%s>>\n" type))
        (goto-char (point-max))
        )
-      (if (not (eobp))
-         (progn
-           (if (not f)
-               (if (not (eolp))
-                   (insert "\n")
-                 (forward-char)
-                 )
-             )
-           (if (not (looking-at mime-editor/single-part-tag-regexp))
-               (insert (mime-make-text-tag) "\n")
-             )
-           )
-       (if (not f)
-           (insert "\n")
-         ))
+      (if (not (looking-at mime-editor/single-part-tag-regexp))
+         (insert (mime-make-text-tag) "\n")
+       )
       )))
 
 (defun mime-editor/enclose-mixed-region (beg end)