# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 804491647 0
# Node ID 0f96d53b31b7356122f4754e64b72f7e756beecc
# Parent  6e284e77df03e6ad72b75cdf0c9b38a332f01911
(mail-resolve-all-aliases-1):
Downcase address before recursive call.

diff -r 6e284e77df03 -r 0f96d53b31b7 lisp/mail/mailabbrev.el
--- a/lisp/mail/mailabbrev.el	Fri Jun 30 05:12:56 1995 +0000
+++ b/lisp/mail/mailabbrev.el	Fri Jun 30 05:54:07 1995 +0000
@@ -297,7 +297,7 @@
 	  (setq definition
 		(mapconcat (function (lambda (x)
 			     (or (mail-resolve-all-aliases-1
-				   (intern-soft x mail-abbrevs)
+				   (intern-soft (downcase x) mail-abbrevs)
 				   (cons sym so-far))
 				 x)))
 			   (nreverse result)