From a34804da47691d42ccbd99e8b914dadc23ef9bdc Mon Sep 17 00:00:00 2001 From: =?utf8?q?Francesco=20Potort=C3=AC?= Date: Fri, 31 Jan 2003 14:01:20 +0000 Subject: [PATCH] (rmail-forward-separator-regex): New custom variable. (unforward-rmail-message): Use it. --- lisp/mail/undigest.el | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/lisp/mail/undigest.el b/lisp/mail/undigest.el index d5db68f33c5..d5efa06df71 100644 --- a/lisp/mail/undigest.el +++ b/lisp/mail/undigest.el @@ -36,6 +36,14 @@ "\^_\^L\n0, unseen,,\n*** EOOH ***\n" "String for separating messages in an rmail file.") +(defcustom rmail-forward-separator-regex + "^----.*\\([Ff]orwarded\\|[Oo]riginal\\).*[Mm]essage" + "*Regexp to match the string that introduces forwarded messages. +This is not a header, but a string contained in the body of the message. +You may need to customise it for local needs." + :type 'regexp + :group 'rmail-headers) + (defconst rmail-digest-methods '(rmail-digest-parse-mime @@ -231,8 +239,7 @@ following the containing message." (forwarded-from (mail-fetch-field "From")) (forwarded-date (mail-fetch-field "Date")) beg end prefix forward-msg) - (cond ((re-search-forward - "^----.*\\([Ff]orwarded\\|[Oo]riginal\\).*[Mm]essage" nil t) + (cond ((re-search-forward rmail-forward-separator-regex nil t) (forward-line 1) (skip-chars-forward "\n") (setq beg (point)) -- 2.39.5