From 0eef787b4903ccd8eb2f83b49f42cb43511f8a13 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 4 Sep 1995 20:26:58 +0000 Subject: [PATCH] (mail-interactive-insert-alias): Call mail-abbrev-expand-hook. --- lisp/mail/mailabbrev.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/mail/mailabbrev.el b/lisp/mail/mailabbrev.el index c4f1a71f426..84debb0bd95 100644 --- a/lisp/mail/mailabbrev.el +++ b/lisp/mail/mailabbrev.el @@ -505,7 +505,8 @@ characters which may be a part of the name of a mail alias.") (if (not (vectorp mail-abbrevs)) (mail-abbrevs-setup)) (list (completing-read "Expand alias: " mail-abbrevs nil t)))) (if (not (vectorp mail-abbrevs)) (mail-abbrevs-setup)) - (insert (or (and alias (symbol-value (intern-soft alias mail-abbrevs))) ""))) + (insert (or (and alias (symbol-value (intern-soft alias mail-abbrevs))) "")) + (mail-abbrev-expand-hook)) (defun mail-abbrev-next-line (&optional arg) "Expand any mail abbrev, then move cursor vertically down ARG lines. -- 2.39.2