(mime-editor/insert-tag): Don't insert unnecessary line break.

diff --git a/mime-edit.el b/mime-edit.el
index 3be3dd0..82ccb49 100644 (file)
--- 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.4 $
+;;; Version: $Revision: 0.5 $
 ;;; 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.4 1996-05-25 14:42:47 morioka Exp $")
+  "$Id: mime-edit.el,v 0.5 1996-05-25 15:13:14 morioka Exp $")
 
 (defconst mime-editor/version (get-version-string mime-editor/RCS-ID))
 
@@ -975,7 +975,7 @@ If nothing is inserted, return nil."
   (let ((oldtag nil)
        (newtag nil)
        (current (point))
-       exist-prev-tag exist-next-tag)
+       )
     (setq pritype
          (or pritype
              (mime-prompt-for-type)))
@@ -991,13 +991,7 @@ If nothing is inserted, return nil."
     (setq oldtag
          (save-excursion
            (if (mime-editor/goto-tag)
-               (progn
-                 (if (eq current (match-beginning 0))
-                     (setq exist-next-tag t)
-                   (setq exist-prev-tag t)
-                   )
-                 (buffer-substring (match-beginning 0) (match-end 0))
-                 )
+               (buffer-substring (match-beginning 0) (match-end 0))
              ;; Assume content type is 'text/plan'.
              (mime-make-tag "text" "plain")
              )))
@@ -1006,15 +1000,6 @@ If nothing is inserted, return nil."
             (not (mime-test-content-type
                   (mime-editor/get-contype oldtag) "text")))
        (setq oldtag nil))
-    (cond (exist-prev-tag (insert "\n"))
-         (exist-next-tag (save-excursion
-                           (insert "\n")
-                           )))
-    (if (not (bolp))
-       (if exist-prev-tag
-           (forward-line 1)
-         (insert "\n")
-         ))
     ;; Make a new tag.
     (if (or (not oldtag)               ;Not text
            (or mime-ignore-same-text-tag