2005-09-27 Simon Josefsson <jas@extundo.com>

	* message.el (message-idna-to-ascii-rhs-1): Reformat.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b98181b..7237ca1 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2005-09-27  Simon Josefsson  <jas@extundo.com>
+
+       * message.el (message-idna-to-ascii-rhs-1): Reformat.
+
 2005-09-27  Arne J\e,Ax\e(Brgensen  <arne@arnested.dk>
 
        * message.el (message-remove-duplicates): New function.

diff --git a/lisp/message.el b/lisp/message.el
index df8b0be..abcbbb0 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -5035,15 +5035,17 @@ subscribed address (and not the additional To and Cc header contents)."
   (let ((field (message-fetch-field header))
        rhs ace  address)
     (when field
-      (dolist (rhs 
+      (dolist (rhs
               (message-remove-duplicates
                (mapcar (lambda (rhs) (or (cadr (split-string rhs "@")) ""))
                        (mapcar 'downcase
-                               (mapcar 'car (mail-header-parse-addresses field))))))
+                               (mapcar
+                                'car (mail-header-parse-addresses field))))))
        (setq 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 in %s:? " rhs ace header))))
+                      (y-or-n-p (format "Replace %s with %s in %s:? "
+                                        rhs ace header))))
          (goto-char (point-min))
          (while (re-search-forward (concat "^" header ":") nil t)
            (message-narrow-to-field)