(mime-editor::edit-again): modified for new tag rule.

diff --git a/mime-edit.el b/mime-edit.el
index 213aee3..af80e03 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.16 $
+;;; Version: $Revision: 0.17 $
 ;;; 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.16 1996-05-28 03:03:21 morioka Exp $")
+  "$Id: mime-edit.el,v 0.17 1996-05-28 08:12:43 morioka Exp $")
 
 (defconst mime-editor/version (get-version-string mime-editor/RCS-ID))
 
@@ -2595,13 +2595,13 @@ Content-Type: message/partial; id=%s; number=%d; total=%d\n%s\n"
              (let ((boundary (assoc-value "boundary" params)))
                (re-search-forward (concat "\n--" boundary) nil t)
                (let ((bb (match-beginning 0)) eb tag)
-                 (setq tag (format "\n--<<%s>>-{" stype))
+                 (setq tag (format "\n--<<%s>>-{\n" stype))
                  (goto-char bb)
                  (insert tag)
                  (setq bb (+ bb (length tag)))
                  (re-search-forward (concat "\n--" boundary "--") nil t)
                  (setq eb (match-beginning 0))
-                 (replace-match (format "\n--}-<<%s>>" stype))
+                 (replace-match (format "--}-<<%s>>" stype))
                  (save-restriction
                    (narrow-to-region bb eb)
                    (goto-char (point-min))
@@ -2684,18 +2684,13 @@ Content-Type: message/partial; id=%s; number=%d; total=%d\n%s\n"
                      (progn
                        (goto-char he)
                        (insert
-                        (concat
-                         "\n"
-                         (mime-create-tag
-                          (concat type "/" stype pstr) encoding)
-                         ))
-                       )
+                        (mime-create-tag
+                         (concat type "/" stype pstr) encoding)
+                        ))
                    (delete-region (point-min) he)
                    (insert
-                    (concat "\n"
-                            (mime-create-tag
-                             (concat type "/" stype pstr) encoding)
-                            ))
+                    (mime-create-tag
+                     (concat type "/" stype pstr) encoding))
                    ))
                ))))
        (if code-conversion