(mail-interactive-insert-alias): Call mail-abbrev-expand-hook.

diff --git a/lisp/mail/mailabbrev.el b/lisp/mail/mailabbrev.el
index c4f1a71f426c8affc2ba7a15ac1d8807b3d168cf..84debb0bd95629b1b9a4d7cbe6ca309877808628 100644 (file)
--- 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.