From: morioka <morioka>
Date: Tue, 28 May 1996 08:12:43 +0000 (+0000)
Subject: (mime-editor::edit-again): modified for new tag rule.
X-Git-Tag: Hokutetsu-Ishikawa-new~386
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=af10477a0b7ce401677ef263e4b8c2fc40d1dbd3;p=elisp%2Fsemi.git

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

diff --git a/mime-edit.el b/mime-edit.el
index 213aee3..af80e03 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.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