changeset 12444:0f96d53b31b7

(mail-resolve-all-aliases-1): Downcase address before recursive call.
author Richard M. Stallman <rms@gnu.org>
date Fri, 30 Jun 1995 05:54:07 +0000
parents 6e284e77df03
children 74e5ebf071fb
files lisp/mail/mailabbrev.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)