changeset 7939:338a91733ff9

(build-mail-abbrevs): Pass a recursivep argument in recursive call.
author Richard M. Stallman <rms@gnu.org>
date Fri, 17 Jun 1994 16:03:59 +0000
parents c0cc87942423
children 02a4dee04373
files lisp/mail/mailabbrev.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/mailabbrev.el	Fri Jun 17 16:00:42 1994 +0000
+++ b/lisp/mail/mailabbrev.el	Fri Jun 17 16:03:59 1994 +0000
@@ -202,7 +202,8 @@
 		  (end-of-line)
 		  (build-mail-abbrevs
 		   (substitute-in-file-name
-		    (buffer-substring (match-beginning 1) (match-end 1)))))
+		    (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)))