From 03863002c7a4e50b5870edf5527a987bf542b4fd Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 19 Aug 1994 22:50:56 +0000 Subject: [PATCH] (rmail-retry-failure, mail-unsent-separator): Doc fix. --- lisp/mail/rmail.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index ec86f4682ed..c0c823a7c2b 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -2090,12 +2090,15 @@ typically for purposes of moderating a list." "^ *---+ +Original message +---+ *$\\|" "^ *--+ +begin message +--+ *$\\|" "^ *---+ +Original message follows +---+ *$\\|" - "^|? *---+ +Message text follows: +---+ *|?$")) + "^|? *---+ +Message text follows: +---+ *|?$") + "A regexp that matches the separator before the text of a failed message.") (defun rmail-retry-failure () "Edit a mail message which is based on the contents of the current message. For a message rejected by the mail system, extract the interesting headers and -the body of the original message." +the body of the original message. +The variable `mail-unsent-separator' should match the string that +delimits the returned original message." (interactive) (require 'mail-utils) (let (to subj irp2 cc orig-message) -- 2.39.5