(message-idna-to-ascii-rhs-1): Fix typo.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 46fe71d..8310534 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2004-05-18  Reiner Steib  <Reiner.Steib@gmx.de>
+
+       * message.el (message-idna-to-ascii-rhs-1): Fix typo.
+

 2004-05-18  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * message.el (message-idna-to-ascii-rhs-1): Don't use equalp. 
 2004-05-18  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * message.el (message-idna-to-ascii-rhs-1): Don't use equalp. 

diff --git a/lisp/message.el b/lisp/message.el
index bc6d02e..a2fe981 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -4899,7 +4899,7 @@ subscribed address (and not the additional To and Cc header contents)."
       (dolist (address (mail-header-parse-addresses field))
        (setq address (car address)
              rhs (downcase (cadr (split-string address "@")))
       (dolist (address (mail-header-parse-addresses field))
        (setq address (car address)
              rhs (downcase (cadr (split-string address "@")))

-             ace (downase (idna-to-ascii rhs)))
+             ace (downcase (idna-to-ascii rhs)))

        (when (and (not (equal rhs ace))
                   (or (not (eq message-use-idna 'ask))
                       (y-or-n-p (format "Replace %s with %s? " rhs ace))))
        (when (and (not (equal rhs ace))
                   (or (not (eq message-use-idna 'ask))
                       (y-or-n-p (format "Replace %s with %s? " rhs ace))))