From 2a6b1705041ddafbf36593de88bafd01e7c545fb Mon Sep 17 00:00:00 2001 From: yoichi Date: Wed, 3 Jul 2002 04:59:34 +0000 Subject: [PATCH] * wl-summary.el (wl-summary-resend-bounced-mail): Loosen regexp. * wl-vars.el (wl-rejected-letter-start): Add pattern for qmail. --- wl/ChangeLog | 6 ++++++ wl/wl-summary.el | 2 +- wl/wl-vars.el | 2 +- 3 files changed, 8 insertions(+), 2 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 77e4950..d427b2a 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,9 @@ +2002-07-03 Yoichi NAKAYAMA + + * wl-summary.el (wl-summary-resend-bounced-mail): Loosen regexp. + + * wl-vars.el (wl-rejected-letter-start): Add pattern for qmail. + 2002-07-01 Akihiro MOTOKI * wl-vars.el (wl-forward-subject-prefix): New variable. diff --git a/wl/wl-summary.el b/wl/wl-summary.el index aae717f..5853eb0 100644 --- a/wl/wl-summary.el +++ b/wl/wl-summary.el @@ -641,7 +641,7 @@ you." (concat "^--" boundary "\n" "\\([Cc]ontent-[Dd]escription:.*\n\\)?" "[Cc]ontent-[Tt]ype:[ \t]+" - "\\(message/rfc822\\|text/rfc822-headers\\)\n" + "\\(message/rfc822\\|text/rfc822-headers\\).*\n" "\\(.+\n\\)*\n") nil t)) (re-search-forward (concat "\n\\(--" boundary "\\)--\n") nil t)) diff --git a/wl/wl-vars.el b/wl/wl-vars.el index 028f7bc..7cdd9ab 100644 --- a/wl/wl-vars.el +++ b/wl/wl-vars.el @@ -1624,7 +1624,7 @@ might set this variable to '(\"-f\" \"you@some.where\")." :group 'wl-draft) (defcustom wl-rejected-letter-start - "^[\t ]*-+[\t ]+\\(original\\|\\(\\(the \\)?unsent\\)\\) message\\( follows\\)?[\t ]+-+[\t ]*$" + "^[\t ]*-+[\t ]+\\(\\(original\\|\\(\\(the \\)?unsent\\)\\) message\\( follows\\)?[\t ]+-+[\t ]*\\|Below this line is a copy of the message\\..*\\)$" "Regexp specifying the beginning of the wrapper around a returned letter. This wrapper is generated by the mail system when rejecting a letter." :type 'regexp -- 1.7.10.4