From bbec81518e245ff2f2a6bb18a208681a88adcbb5 Mon Sep 17 00:00:00 2001 From: morioka Date: Sat, 31 Oct 1998 17:39:02 +0000 Subject: [PATCH] (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. --- mime-edit.el | 19 ++++++++++--------- 1 file changed, 10 insertions(+), 9 deletions(-) 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) -- 1.7.10.4