From fb2f4f62952bed33d9698251fd36d7ac29db88e2 Mon Sep 17 00:00:00 2001 From: teranisi Date: Wed, 13 Jun 2001 08:59:16 +0000 Subject: [PATCH] =?utf8?q?2001-06-06=20=20Peter=20M=1B,Ax=1B(Bller=20Neergaa?= =?utf8?q?rd=20?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit * wl-summary.el (wl-summary-resend-bounced-mail): Modified regexp for postfix. --- wl/ChangeLog | 5 +++++ wl/wl-summary.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index b297588..0f64a1e 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,8 @@ +2001-06-06 Peter Møller Neergaard + + * wl-summary.el (wl-summary-resend-bounced-mail): Modified regexp + for postfix. + 2001-06-13 Yuuichi Teranishi * wl-summary.el (wl-summary-resend-message): Fixed. diff --git a/wl/wl-summary.el b/wl/wl-summary.el index 33e8a46..c7005d7 100644 --- a/wl/wl-summary.el +++ b/wl/wl-summary.el @@ -613,7 +613,7 @@ you." (cond ((and (re-search-forward - (concat "^\\($\\|[Cc]ontent-[Tt]ype:[ \t]+multipart/report\\)") nil t) + (concat "^\\($\\|[Cc]ontent-[Tt]ype:[ \t]+multipart/\\(report\\|mixed\\)\\)") nil t) (not (bolp)) (re-search-forward "boundary=\"\\([^\"]+\\)\"" nil t)) (let ((boundary (buffer-substring (match-beginning 1) (match-end 1))) @@ -621,6 +621,7 @@ you." (cond ((and (setq start (re-search-forward (concat "^--" boundary "\n" + "\\([Cc]ontent-[Dd]escription:.*\n\\)?" "[Cc]ontent-[Tt]ype:[ \t]+" "\\(message/rfc822\\|text/rfc822-headers\\)\n" "\\(.+\n\\)*\n") nil t)) -- 1.7.10.4