From: Richard M. Stallman Date: Thu, 1 Jul 1993 20:25:42 +0000 (+0000) Subject: (build-mail-abbrevs): Do substitute-in-file-name on the abbrev, for `source'. X-Git-Tag: emacs-19.34~11906 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=94142e7881f7d0bbd20468eb280c747791688ccb;p=emacs.git (build-mail-abbrevs): Do substitute-in-file-name on the abbrev, for `source'. --- 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)))