+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
(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))
"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."