From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 17 Jun 1994 16:03:59 +0000 (+0000)
Subject: (build-mail-abbrevs): Pass a recursivep argument in recursive call.
X-Git-Tag: emacs-19.34~7914
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=651fca74e4499539c76898a9e2b6109047c404a7;p=emacs.git

(build-mail-abbrevs): Pass a recursivep argument in recursive call.
---

diff --git a/lisp/mail/mailabbrev.el b/lisp/mail/mailabbrev.el
index b1657aad24e..ec7ba01b2a2 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.)")
 		  (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)))