Mercurial > emacs

comparison lisp/mail/rmail.el @ 1372:e839dc00fc2e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mail-unsent-separator): Handle "Message text follows".
author Richard M. Stallman <rms@gnu.org>
date Fri, 09 Oct 1992 05:38:23 +0000
parents c017b62c8073
children 9b210c7d6c23
comparison
equal deleted inserted replaced
1371:d8be1fdf53aa 1372:e839dc00fc2e
1600 (kill-buffer tembuf)))) 1600 (kill-buffer tembuf))))
1601 1601
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.
1609 For a message rejected by the mail system, extract the interesting headers and 1610 For a message rejected by the mail system, extract the interesting headers and
1610 the body of the original message; otherwise copy the current message." 1611 the body of the original message; otherwise copy the current message."