From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 19 Aug 1994 22:50:56 +0000 (+0000)
Subject: (rmail-retry-failure, mail-unsent-separator): Doc fix.
X-Git-Tag: emacs-19.34~7281
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=03863002c7a4e50b5870edf5527a987bf542b4fd;p=emacs.git

(rmail-retry-failure, mail-unsent-separator): Doc fix.
---

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)