(mail-resolve-all-aliases-1):

Downcase address before recursive call.

diff --git a/lisp/mail/mailabbrev.el b/lisp/mail/mailabbrev.el
index 3245fc9e958b211baff97e74ff691ef537fe428a..685839f9506ce27ea76094660d462b485c8e68ba 100644 (file)
--- 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)