Mercurial > emacs
changeset 49547:b020ca291f89
(rmail-forward-separator-regex): New custom variable.
(unforward-rmail-message): Use it.
| author | Francesco Potortì <pot@gnu.org> |
|---|---|
| date | Fri, 31 Jan 2003 14:01:20 +0000 |
| parents | 29448545f0d3 |
| children | 8b1c605f8c9b |
| files | lisp/mail/undigest.el |
| diffstat | 1 files changed, 9 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/undigest.el Fri Jan 31 14:00:46 2003 +0000 +++ b/lisp/mail/undigest.el Fri Jan 31 14:01:20 2003 +0000 @@ -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 @@ (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))