From: morioka <morioka>
Date: Sat, 31 Oct 1998 17:39:02 +0000 (+0000)
Subject: (mime-edit-decode-message-in-buffer): Delete fields match with
X-Git-Tag: semi-1_11_0~8
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=bbec81518e245ff2f2a6bb18a208681a88adcbb5;p=elisp%2Fsemi.git

(mime-edit-decode-message-in-buffer): Delete fields match with
`mime-edit-again-ignored-field-regexp' then call
`mime-decode-header-in-buffer'.
(mime-edit-again): Delete header filter.
---

diff --git a/mime-edit.el b/mime-edit.el
index 72022da..bca7c68 100644
--- a/mime-edit.el
+++ b/mime-edit.el
@@ -2724,9 +2724,16 @@ Content-Type: message/partial; id=%s; number=%d; total=%d\n%s\n"
 	      )))
 	(or not-decode-text
 	    (decode-mime-charset-region (point-min) (point-max)
-					default-mime-charset)
-	    )
-	))))
+					default-mime-charset))
+	)
+      (save-restriction
+	(std11-narrow-to-header)
+	(goto-char (point-min))
+	(while (re-search-forward mime-edit-again-ignored-field-regexp nil t)
+	  (delete-region (match-beginning 0) (1+ (std11-field-end)))
+	  ))
+      (mime-decode-header-in-buffer (not not-decode-text))
+      )))
 
 ;;;###autoload
 (defun mime-edit-again (&optional not-decode-text no-separator not-turn-on)
@@ -2742,12 +2749,6 @@ converted to MIME-Edit tags."
     )
   (mime-edit-decode-message-in-buffer nil not-decode-text)
   (goto-char (point-min))
-  (save-restriction
-    (std11-narrow-to-header)
-    (goto-char (point-min))
-    (while (re-search-forward mime-edit-again-ignored-field-regexp nil t)
-      (delete-region (match-beginning 0) (1+ (std11-field-end)))
-      ))
   (or no-separator
       (and (re-search-forward "^$")
 	   (replace-match mail-header-separator)