(build-mail-abbrevs): Do substitute-in-file-name on the abbrev, for `source'.

1 files changed, 2 insertions, 1 deletions

diff --git a/lisp/mail/mailabbrev.el b/lisp/mail/mailabbrev.el
index 2768da15337..b2e7429147c 100644
--- a/lisp/mail/mailabbrev.el
+++ b/lisp/mail/mailabbrev.el
@@ -202,7 +202,8 @@ no aliases, which is represented by this being a table with no entries.)")
                 (progn
                   (end-of-line)
                   (build-mail-abbrevs
-                   (buffer-substring (match-beginning 1) (match-end 1)) t))
+                   (substitute-in-file-name
+                    (buffer-substring (match-beginning 1) (match-end 1)) t)))
               (re-search-forward "[ \t]+\\([^ \t\n]+\\)")
               (let* ((name (buffer-substring
                             (match-beginning 1) (match-end 1)))