# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 989229548 0
# Node ID 9adbbd869684257c40201da67a2eb49f9ae15bb6
# Parent  d9239fc54bce275a5036bd2d8db41078ff95feac
(rmail-edit-mode): Doc fix.
(rmail-edit-mode-hook): New user-option.

diff -r d9239fc54bce -r 9adbbd869684 lisp/mail/rmailedit.el
--- a/lisp/mail/rmailedit.el	Mon May 07 09:58:38 2001 +0000
+++ b/lisp/mail/rmailedit.el	Mon May 07 09:59:08 2001 +0000
@@ -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)