From 94142e7881f7d0bbd20468eb280c747791688ccb Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 1 Jul 1993 20:25:42 +0000 Subject: [PATCH] (build-mail-abbrevs): Do substitute-in-file-name on the abbrev, for `source'. --- 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 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))) -- 2.39.5