* url/url.el (url-retrieve-synchronously): Add optional arg SILENT and

INHIBIT-COOKIES.

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index 0c7cd1ef64e8999f83d79d79bf276414b2784b3b..add3df7913904012ff03cefc3adffba555a3bfd8 100644 (file)
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -1,3 +1,8 @@
+2013-12-20  Leo Liu  <sdl.web@gmail.com>
+
+       * url.el (url-retrieve-synchronously): Add optional arg SILENT and
+       INHIBIT-COOKIES.
+
 2013-09-29  Leo Liu  <sdl.web@gmail.com>
 
        * url-util.el (url-pretty-length): Make obsolete and all uses

diff --git a/lisp/url/url.el b/lisp/url/url.el
index 43e52ef25cf328ccdc6f1dbb96d6c14e1ab2ad0f..a72b9c485b7d46aec6418ff87a1b25289f7fd8fe 100644 (file)
--- a/lisp/url/url.el
+++ b/lisp/url/url.el
@@ -220,7 +220,7 @@ URL-encoded before it's used."
     buffer))
 
 ;;;###autoload
-(defun url-retrieve-synchronously (url)
+(defun url-retrieve-synchronously (url &optional silent inhibit-cookies)
   "Retrieve URL synchronously.
 Return the buffer containing the data, or nil if there are no data
 associated with it (the case for dired, info, or mailto URLs that need
@@ -233,7 +233,8 @@ no further processing).  URL is either a string or a parsed URL."
          (url-retrieve url (lambda (&rest ignored)
                              (url-debug 'retrieval "Synchronous fetching done (%S)" (current-buffer))
                              (setq retrieval-done t
-                                   asynch-buffer (current-buffer)))))
+                                   asynch-buffer (current-buffer)))
+                       nil silent inhibit-cookies))
     (if (null asynch-buffer)
         ;; We do not need to do anything, it was a mailto or something
         ;; similar that takes processing completely outside of the URL