From 6184d4451ed60817b842880462de71b648a7a6d0 Mon Sep 17 00:00:00 2001 From: ShengHuo ZHU Date: Wed, 8 Aug 2001 22:25:55 +0000 Subject: [PATCH] 2001-08-08 15:00:00 ShengHuo ZHU * message.el (message-tab): Use the current value of indent-line-function. (message-mode): Bind indent-line-function to indent-relative. --- lisp/ChangeLog | 6 ++++++ lisp/message.el | 7 ++++--- 2 files changed, 10 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index cf2f27ab1..594c567f3 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2001-08-08 15:00:00 ShengHuo ZHU + + * 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 * imap.el (imap-gssapi-auth-p, imap-kerberos4-auth-p): Also check diff --git a/lisp/message.el b/lisp/message.el index 5fbd7c59e..0e3ccfea0 100644 --- 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." -- 2.25.1