lisp/url/url-cookie.el: Use `dolist' rather than `mapcar'.

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index 3c7b8b6abe78bb215aef5f40a107d4b3be7cff6e..075d9fae3e0ee927842f9b7a62f544a81cb4968e 100644 (file)
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -1,3 +1,8 @@
+2011-04-01  Juanma Barranquero  <lekktu@gmail.com>
+
+       * url-cookie.el (url-cookie-handle-set-cookie):
+       Use `dolist' rather than `mapcar'.
+
 2011-02-12  Teodor Zlatanov  <tzz@lifelogs.com>
 
        * url-parse.el (url-bit-for-url, url-user-for-url)

diff --git a/lisp/url/url-cookie.el b/lisp/url/url-cookie.el
index c55063dfba9684ae8c24944b69d0312c8b9f4549..7fdd8b174c1918d743dcbaee2c79f484a28cb830 100644 (file)
--- a/lisp/url/url-cookie.el
+++ b/lisp/url/url-cookie.el
@@ -331,9 +331,8 @@ telling Microsoft that."
           (not trusted)
           (save-window-excursion
             (with-output-to-temp-buffer "*Cookie Warning*"
-              (mapcar
-               (lambda (x)
-                 (princ (format "%s - %s" (car x) (cdr x)))) rest))
+              (dolist (x rest)
+                 (princ (format "%s - %s" (car x) (cdr x)))))
             (prog1
                 (not (funcall url-confirmation-func
                               (format "Allow %s to set these cookies? "