(mail-unsent-separator): Handle "Message text follows".

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index de626fb40cf1ec5261fb4ff853485b840e1c3bcc..2c7e7fab6cce9da64bf922645319fb4135313731 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -1602,7 +1602,8 @@ typically for purposes of moderating a list."
 (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.