From: yamaoka <yamaoka>
Date: Thu, 20 Sep 2001 12:46:59 +0000 (+0000)
Subject: Synch with Oort Gnus.
X-Git-Tag: semi-gnus~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=7963d8a141a100d41bb3ee2ec3e225ef66c7d597;p=elisp%2Fgnus.git-

Synch with Oort Gnus.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 16a959f..50d03a3 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-09-20  Kai Gro,A_(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 a710df2..d8fc107 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -5593,6 +5593,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."
@@ -5602,7 +5605,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."