From e9ffc05ac79b1519f0c5e944a8f40669b5f2c480 Mon Sep 17 00:00:00 2001 From: teranisi Date: Wed, 13 Jun 2001 08:58:13 +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 cabd3ee..b718031 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-draft.el (wl-draft-edit-string): Fetch From: field value and diff --git a/wl/wl-summary.el b/wl/wl-summary.el index 4ca35b8..20ceab1 100644 --- a/wl/wl-summary.el +++ b/wl/wl-summary.el @@ -603,7 +603,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))) @@ -611,6 +611,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