diff options
| author | Richard M. Stallman | 1992-10-09 05:38:23 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1992-10-09 05:38:23 +0000 |
| commit | db32c193364516e630fa7e264a31d5048b81f4fa (patch) | |
| tree | 12bab79a4a5dc03ceb1e69570fcb758352d2a8f0 | |
| parent | 5792c834cd01deff490a2884ab6630ce8d9177fc (diff) | |
| download | emacs-db32c193364516e630fa7e264a31d5048b81f4fa.tar.gz emacs-db32c193364516e630fa7e264a31d5048b81f4fa.zip | |
(mail-unsent-separator): Handle "Message text follows".
| -rw-r--r-- | lisp/mail/rmail.el | 3 |
1 files changed, 2 insertions, 1 deletions
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." | |||
| 1602 | (defvar mail-unsent-separator | 1602 | (defvar mail-unsent-separator |
| 1603 | (concat "^ *---+ +Unsent message follows +---+ *$\\|" | 1603 | (concat "^ *---+ +Unsent message follows +---+ *$\\|" |
| 1604 | "^ *---+ +Returned message +---+ *$\\|" | 1604 | "^ *---+ +Returned message +---+ *$\\|" |
| 1605 | "^ *---+ +Original message +---+ *$")) | 1605 | "^ *---+ +Original message +---+ *$\\|" |
| 1606 | "^|? *---+ +Message text follows: +---+ *|?$")) | ||
| 1606 | 1607 | ||
| 1607 | (defun rmail-retry-failure () | 1608 | (defun rmail-retry-failure () |
| 1608 | "Edit a mail message which is based on the contents of the current message. | 1609 | "Edit a mail message which is based on the contents of the current message. |