* message.el (message-tab-body-function): New variable.

* message.el (message-tab): Use it.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 32c6195..4da43b2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-09-20  Kai Gro\e,A_\e(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
+
+       * message.el (message-tab-body-function): New variable.
+       * message.el (message-tab): Use it.
+
 2001-09-19  Sam Steingold  <sds@gnu.org>
 
        * gnus-win.el (gnus-buffer-configuration): Respect

diff --git a/lisp/message.el b/lisp/message.el
index e08d4ff..01abb3e 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -4832,6 +4832,9 @@ which specify the range to operate on."
        '("^\\(Resent-\\)?\\(To\\|B?Cc\\):" . message-expand-name))
   "Alist of (RE . FUN).  Use FUN for completion on header lines matching RE.")
 
+(defvar message-tab-body-function 'indent-relative
+  "*Function to execute when `message-tab' (TAB) is executed in the body.")
+
 (defun message-tab ()
   "Complete names according to `message-completion-alist'.
 Do an `indent-relative' if not in those headers."
@@ -4841,7 +4844,7 @@ Do an `indent-relative' if not in those headers."
                (let ((mail-abbrev-mode-regexp (caar alist)))
                  (not (mail-abbrev-in-expansion-header-p))))
       (setq alist (cdr alist)))
-    (funcall (or (cdar alist) 'indent-relative))))
+    (funcall (or (cdar alist) message-tab-body-function))))
 
 (defun message-expand-group ()
   "Expand the group name under point."