2001-11-30 12:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	* message.el (message-tab-body-function): Set to nil.
	(message-tab): Use text-mode-map or global-map.
	Suggested by Kai Gro\e,A_\e(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2c6472d..e54489c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2001-11-30 12:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * message.el (message-tab-body-function): Set to nil.
+       (message-tab): Use text-mode-map or global-map.
+       Suggested by Kai Gro\e,A_\e(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>.
+       
 2001-11-30  Simon Josefsson  <jas@extundo.com>
 
        * gnus-agent.el (gnus-agent-fetch-headers): Use gnus-range-add

diff --git a/lisp/message.el b/lisp/message.el
index 256b56d..e0e0a11 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -5183,8 +5183,9 @@ which specify the range to operate on."
   :group 'message
   :type '(alist :key-type regexp :value-type function))
 
-(defcustom message-tab-body-function 'indent-relative
-  "*Function to execute when `message-tab' (TAB) is executed in the body."
+(defcustom message-tab-body-function nil
+  "*Function to execute when `message-tab' (TAB) is executed in the body.
+If nil, the function bound in `text-mode-map' or `global-map' is executed."
   :group 'message
   :type 'function)
 
@@ -5198,7 +5199,10 @@ those headers."
                (let ((mail-abbrev-mode-regexp (caar alist)))
                  (not (mail-abbrev-in-expansion-header-p))))
       (setq alist (cdr alist)))
-    (funcall (or (cdar alist) message-tab-body-function))))
+    (funcall (or (cdar alist) message-tab-body-function
+                (lookup-key text-mode-map "\t")
+                (lookup-key global-map "\t")
+                'indent-relative))))
 
 (defun message-expand-group ()
   "Expand the group name under point."