From a09c95308dbc9c09d8b4fa282928c4f1d65f96b8 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Fri, 30 Jun 1995 05:54:07 +0000
Subject: (mail-resolve-all-aliases-1): Downcase address before recursive call.

---
 lisp/mail/mailabbrev.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lisp/mail/mailabbrev.el')

diff --git a/lisp/mail/mailabbrev.el b/lisp/mail/mailabbrev.el
index 3245fc9e958..685839f9506 100644
--- a/lisp/mail/mailabbrev.el
+++ b/lisp/mail/mailabbrev.el
@@ -297,7 +297,7 @@ If DEFINITION contains multiple addresses, separate them with commas."
 	  (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)
-- 
cgit v1.2.1