From 5092477add872f1a82c20db8e08b5c0d774f69b6 Mon Sep 17 00:00:00 2001
From: Gerd Moellmann <gerd@gnu.org>
Date: Mon, 7 May 2001 09:59:43 +0000
Subject: [PATCH] (rmail-edit-mode): Doc fix. (rmail-edit-mode-hook): New
user-option.
---
lisp/ChangeLog | 7 +++++++
lisp/mail/rmailedit.el | 12 +++++++++---
2 files changed, 16 insertions(+), 3 deletions(-)
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)
--
2.39.5