From: Francesco Potortì <pot@gnu.org>
Date: Fri, 31 Jan 2003 14:01:20 +0000 (+0000)
Subject: (rmail-forward-separator-regex): New custom variable.
X-Git-Tag: ttn-vms-21-2-B4~11393
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a34804da47691d42ccbd99e8b914dadc23ef9bdc;p=emacs.git

(rmail-forward-separator-regex): New custom variable.
(unforward-rmail-message): Use it.
---

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))