(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 (file)
--- 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 (file)
--- 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"))
                    )))