(rmail-edit-mode): Doc fix.

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 69717701b9e23788781637bd25dac3db18b1867f..ebf4fde71e4b5f0300e27a29f8792958e2bd0fb0 100644 (file)
--- 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 144b81a6470525cf1b9b40265a1ca9f8248d1f54..066b6adfd4cbc06045d9dc13835e4ff5be93c218 100644 (file)
--- 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)