Commit 0af64910 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(rmail-retry-failure): Handle a weird case with

a couple of lines before the old message header.
parent 69d4d27f
......@@ -2098,6 +2098,14 @@ the body of the original message."
(or (re-search-forward mail-unsent-separator nil t)
(error "Cannot parse this as a failure message")))
(save-restriction
;; One message contained a few random lines before the old
;; message header. The first line of the message started with
;; two hyphens. A blank line follows these random lines.
(skip-chars-forward "\n")
(if (looking-at "^--")
(progn
(search-forward "\n\n")
(skip-chars-forward "\n")))
(narrow-to-region (point) (point-max))
;; Now mail-fetch-field will get from headers of the original message,
;; not from the headers of the rejection.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment