36 |
"\^_\^L\n0, unseen,,\n*** EOOH ***\n" |
"\^_\^L\n0, unseen,,\n*** EOOH ***\n" |
37 |
"String for separating messages in an rmail file.") |
"String for separating messages in an rmail file.") |
38 |
|
|
39 |
|
(defcustom rmail-forward-separator-regex |
40 |
|
"^----.*\\([Ff]orwarded\\|[Oo]riginal\\).*[Mm]essage" |
41 |
|
"*Regexp to match the string that introduces forwarded messages. |
42 |
|
This is not a header, but a string contained in the body of the message. |
43 |
|
You may need to customise it for local needs." |
44 |
|
:type 'regexp |
45 |
|
:group 'rmail-headers) |
46 |
|
|
47 |
|
|
48 |
(defconst rmail-digest-methods |
(defconst rmail-digest-methods |
49 |
'(rmail-digest-parse-mime |
'(rmail-digest-parse-mime |
239 |
(forwarded-from (mail-fetch-field "From")) |
(forwarded-from (mail-fetch-field "From")) |
240 |
(forwarded-date (mail-fetch-field "Date")) |
(forwarded-date (mail-fetch-field "Date")) |
241 |
beg end prefix forward-msg) |
beg end prefix forward-msg) |
242 |
(cond ((re-search-forward |
(cond ((re-search-forward rmail-forward-separator-regex nil t) |
|
"^----.*\\([Ff]orwarded\\|[Oo]riginal\\).*[Mm]essage" nil t) |
|
243 |
(forward-line 1) |
(forward-line 1) |
244 |
(skip-chars-forward "\n") |
(skip-chars-forward "\n") |
245 |
(setq beg (point)) |
(setq beg (point)) |