2001-08-08 15:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	* message.el (message-tab): Use the current value of
	indent-line-function.
	(message-mode): Bind indent-line-function to indent-relative.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cf2f27a..594c567 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2001-08-08 15:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * message.el (message-tab): Use the current value of
+       indent-line-function.
+       (message-mode): Bind indent-line-function to indent-relative.
+
 2001-08-08  Simon Josefsson  <jas@extundo.com>
 
        * imap.el (imap-gssapi-auth-p, imap-kerberos4-auth-p): Also check

diff --git a/lisp/message.el b/lisp/message.el
index 5fbd7c5..0e3ccfe 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -1616,6 +1616,7 @@ M-RET    `message-newline-and-reformat' (break the line and reformat)."
       (mail-aliases-setup)))
   (message-set-auto-save-file-name)
   (mm-enable-multibyte)
+  (set (make-local-variable 'indent-line-function) 'indent-relative)
   (set (make-local-variable 'indent-tabs-mode) nil) ;No tabs for indentation.
   (mml-mode))
 
@@ -4823,15 +4824,15 @@ which specify the range to operate on."
   "Alist of (RE . FUN).  Use FUN for completion on header lines matching RE.")
 
 (defun message-tab ()
-  "Expand group names in Newsgroups and Followup-To headers.
-Do a `tab-to-tab-stop' if not in those headers."
+  "Complete names according to `message-completion-alist'.
+Do an `indent-line-function' if not in those headers."
   (interactive)
   (let ((alist message-completion-alist))
     (while (and alist
                (let ((mail-abbrev-mode-regexp (caar alist)))
                  (not (mail-abbrev-in-expansion-header-p))))
       (setq alist (cdr alist)))
-    (funcall (or (cdar alist) (default-value 'indent-line-function)))))
+    (funcall (or (cdar alist) indent-line-function))))
 
 (defun message-expand-group ()
   "Expand the group name under point."