# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 775685333 0
# Node ID a7b53d786b21cfad2f8fe2513e4fef9375600c21
# Parent  38513039d818d0913a0af7213f9f5a0a5bd7f7fe
(rmail-retry-failure): Handle a weird case with
a couple of lines before the old message header.

diff -r 38513039d818 -r a7b53d786b21 lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Sun Jul 31 19:00:42 1994 +0000
+++ b/lisp/mail/rmail.el	Sun Jul 31 20:08:53 1994 +0000
@@ -2098,6 +2098,14 @@
 	(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.