Mercurial > emacs
comparison lisp/mail/mailabbrev.el @ 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 | ae5b033ad31f |
| children | 14e16370799d |
comparison
equal
deleted
inserted
replaced
| 12443:6e284e77df03 | 12444:0f96d53b31b7 |
|---|---|
| 295 (setq result (cons (substring definition start end) result) | 295 (setq result (cons (substring definition start end) result) |
| 296 start (and end (match-end 0))))) | 296 start (and end (match-end 0))))) |
| 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) |
| 304 mail-alias-separator-string)) | 304 mail-alias-separator-string)) |
| 305 (set sym definition)))) | 305 (set sym definition)))) |