From: hmurata <hmurata>
Date: Sat, 2 Dec 2006 12:43:44 +0000 (+0000)
Subject: (mime-edit-process-multipart-1): Don't insert a
X-Git-Tag: semi-1_14-wl-root~20
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=5603c1513cb7f899895c1b61d4f5582ea6919753;p=elisp%2Fsemi.git

(mime-edit-process-multipart-1): Don't insert a
text tag if a multipart end tag is followed.
---

diff --git a/ChangeLog b/ChangeLog
index bbdb4d4..1672b0c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2006-12-02  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* mime-edit.el (mime-edit-process-multipart-1): Don't insert a
+	text tag if a multipart end tag is followed.
+
 2006-06-23  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* mime-view.el (mime-calist::field-match-method-ignore-case):
diff --git a/mime-edit.el b/mime-edit.el
index 0e79ba6..26938e9 100644
--- a/mime-edit.el
+++ b/mime-edit.el
@@ -1733,6 +1733,7 @@ Parameter must be '(PROMPT CHOICE1 (CHOICE2...))."
 		    )
 		(delete-region beg end)
 		(or (looking-at mime-edit-beginning-tag-regexp)
+		    (looking-at mime-edit-multipart-end-regexp)
 		    (eobp)
 		    (insert (concat (mime-make-text-tag) "\n"))
 		    )))