From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 30 Jun 1995 05:54:07 +0000 (+0000)
Subject: (mail-resolve-all-aliases-1):
X-Git-Tag: emacs-19.34~3415
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e1d24183efb4abb66081a5432d2753f03e19f298;p=emacs.git

(mail-resolve-all-aliases-1):
Downcase address before recursive call.
---

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)