From 7963d8a141a100d41bb3ee2ec3e225ef66c7d597 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 20 Sep 2001 12:46:59 +0000 Subject: [PATCH] Synch with Oort Gnus. --- lisp/ChangeLog | 5 +++++ lisp/message.el | 5 ++++- 2 files changed, 9 insertions(+), 1 deletion(-) 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 + + * message.el (message-tab-body-function): New variable. + * message.el (message-tab): Use it. + 2001-09-19 Sam Steingold * 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." -- 1.7.10.4