From: Gerd Moellmann <gerd@gnu.org>
Date: Mon, 7 May 2001 09:59:43 +0000 (+0000)
Subject: (rmail-edit-mode): Doc fix.
X-Git-Tag: emacs-pretest-21.0.103~25
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5092477add872f1a82c20db8e08b5c0d774f69b6;p=emacs.git

(rmail-edit-mode): Doc fix.
(rmail-edit-mode-hook): New user-option.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 69717701b9e..ebf4fde71e4 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2001-05-07  Gerd Moellmann  <gerd@gnu.org>
+
+	* mail/rmail.el (rmail-edit): New Custom group.
+
+	* mail/rmailedit.el (rmail-edit-mode): Doc fix.
+	(rmail-edit-mode-hook): New user-option.
+
 2001-05-05  Richard M. Stallman  <rms@gnu.org>
 
 	* help.el (help-xref-symbol-regexp): Recognize "source of"
diff --git a/lisp/mail/rmailedit.el b/lisp/mail/rmailedit.el
index 144b81a6470..066b6adfd4c 100644
--- a/lisp/mail/rmailedit.el
+++ b/lisp/mail/rmailedit.el
@@ -1,6 +1,6 @@
 ;;; rmailedit.el --- "RMAIL edit mode"  Edit the current message.
 
-;; Copyright (C) 1985, 1994 Free Software Foundation, Inc.
+;; Copyright (C) 1985, 1994, 2001 Free Software Foundation, Inc.
 
 ;; Maintainer: FSF
 ;; Keywords: mail
@@ -26,6 +26,11 @@
 
 (require 'rmail)
 
+(defcustom rmail-edit-mode-hook nil
+  "List of functions to call when editing an RMAIL message."
+  :type 'hook
+  :group 'rmail-edit)
+
 (defvar rmail-old-text)
 
 (defvar rmail-edit-map nil)
@@ -44,9 +49,10 @@
   "Major mode for editing the contents of an RMAIL message.
 The editing commands are the same as in Text mode, together with two commands
 to return to regular RMAIL:
-  *  rmail-abort-edit cancels the changes
+  *  \\[rmail-abort-edit] cancels the changes
      you have made and returns to RMAIL
-  *  rmail-cease-edit makes them permanent.
+  *  \\[rmail-cease-edit] makes them permanent.
+This functions runs the normal hook `rmail-edit-mode-hook'.
 \\{rmail-edit-map}"
   (text-mode)
   (use-local-map rmail-edit-map)