From: teranisi <teranisi>
Date: Wed, 13 Jun 2001 08:59:16 +0000 (+0000)
Subject: 2001-06-06  Peter M,Ax(Bller Neergaard <turtle@bu.edu>
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=fb2f4f62952bed33d9698251fd36d7ac29db88e2;p=elisp%2Fwanderlust.git

2001-06-06  Peter M,Ax(Bller Neergaard <turtle@bu.edu>

	* wl-summary.el (wl-summary-resend-bounced-mail): Modified regexp
	for postfix.
---

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 <turtle@bu.edu>
+
+	* wl-summary.el (wl-summary-resend-bounced-mail): Modified regexp
+	for postfix.
+
 2001-06-13  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* 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))