From db32c193364516e630fa7e264a31d5048b81f4fa Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 9 Oct 1992 05:38:23 +0000 Subject: [PATCH] (mail-unsent-separator): Handle "Message text follows". --- lisp/mail/rmail.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index de626fb40cf..2c7e7fab6cc 100644 --- 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.