# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 834456821 0
# Node ID dfcab63fbbd39bd5c63fc7523255babf3640abcf
# Parent  46fad14570302940ac439687cff8024f368623c6
(rmail-retry-failure): Nicer error message
if can't find mail-unsent-separator.

diff -r 46fad1457030 -r dfcab63fbbd3 lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Mon Jun 10 21:36:29 1996 +0000
+++ b/lisp/mail/rmail.el	Tue Jun 11 01:33:41 1996 +0000
@@ -2454,9 +2454,10 @@
 	    (let ((codestring
 		   (buffer-substring (progn (beginning-of-line) (point))
 				     (progn (end-of-line) (point)))))
-	      (re-search-forward mail-unsent-separator)
-	      (search-forward codestring)
-	      (or (search-forward "\n\n" nil t)
+	      (or (re-search-forward mail-unsent-separator nil t)
+		  (error "Cannot find beginning of header in failed message"))
+	      (or (and (search-forward codestring nil t)
+		       (search-forward "\n\n" nil t))
 		  (error "Cannot find end of Mime data in failed message"))
 	      (setq bounce-start (point))
 	      (save-excursion