# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 718609103 0
# Node ID e839dc00fc2ecb58c99ec048803a0570beae409d
# Parent  d8be1fdf53aac3f059d03ee3d726023eec8d1b3b
(mail-unsent-separator): Handle "Message text follows".

diff -r d8be1fdf53aa -r e839dc00fc2e lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Fri Oct 09 05:29:15 1992 +0000
+++ b/lisp/mail/rmail.el	Fri Oct 09 05:38:23 1992 +0000
@@ -1602,7 +1602,8 @@
 (defvar mail-unsent-separator
   (concat "^ *---+ +Unsent message follows +---+ *$\\|"
 	  "^ *---+ +Returned message +---+ *$\\|"
-	  "^ *---+ +Original message +---+ *$"))
+	  "^ *---+ +Original message +---+ *$\\|"
+	  "^|? *---+ +Message text follows: +---+ *|?$"))
 
 (defun rmail-retry-failure ()
   "Edit a mail message which is based on the contents of the current message.