diff options
| author | Richard M. Stallman | 1995-06-30 05:54:07 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-06-30 05:54:07 +0000 |
| commit | e1d24183efb4abb66081a5432d2753f03e19f298 (patch) | |
| tree | 60d1af3dac8a254f171263f4c049c3492ab16dc4 /lisp | |
| parent | 5db9a09f9b3abecfe78a53dbd683cbeab33ce951 (diff) | |
| download | emacs-e1d24183efb4abb66081a5432d2753f03e19f298.tar.gz emacs-e1d24183efb4abb66081a5432d2753f03e19f298.zip | |
(mail-resolve-all-aliases-1):
Downcase address before recursive call.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mail/mailabbrev.el | 2 |
1 files changed, 1 insertions, 1 deletions
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." | |||
| 297 | (setq definition | 297 | (setq definition |
| 298 | (mapconcat (function (lambda (x) | 298 | (mapconcat (function (lambda (x) |
| 299 | (or (mail-resolve-all-aliases-1 | 299 | (or (mail-resolve-all-aliases-1 |
| 300 | (intern-soft x mail-abbrevs) | 300 | (intern-soft (downcase x) mail-abbrevs) |
| 301 | (cons sym so-far)) | 301 | (cons sym so-far)) |
| 302 | x))) | 302 | x))) |
| 303 | (nreverse result) | 303 | (nreverse result) |