From: Juanma Barranquero <lekktu@gmail.com>
Date: Fri, 1 Apr 2011 23:24:21 +0000 (+0200)
Subject: lisp/url/url-cookie.el: Use `dolist' rather than `mapcar'.
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~436
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9952e40bd8d90e89143de066ddd8580925040fbe;p=emacs.git

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

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index 3c7b8b6abe7..075d9fae3e0 100644
--- 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 c55063dfba9..7fdd8b174c1 100644
--- 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? "