diff options
| author | Francesco Potortì <pot@gnu.org> | 2003-01-31 14:01:20 +0000 |
|---|---|---|
| committer | Francesco Potortì <pot@gnu.org> | 2003-01-31 14:01:20 +0000 |
| commit | a34804da47691d42ccbd99e8b914dadc23ef9bdc (patch) | |
| tree | 96a3bd744796a51e373d4bdf319c49b91193cf2a | |
| parent | e35b383a6075e7e6aaac471efe5830122793c532 (diff) | |
| download | emacs-a34804da47691d42ccbd99e8b914dadc23ef9bdc.tar.gz | |
(rmail-forward-separator-regex): New custom variable.
(unforward-rmail-message): Use it.
| -rw-r--r-- | lisp/mail/undigest.el | 11 |
1 files 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)) |