[Emacs-diffs] /srv/bzr/emacs/trunk r107170: Merge changes made in No Gnus

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 107170
author: Lars Ingebrigtsen <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Wed 2012-02-08 01:44:25 +0000
message:
  Merge changes made in No Gnus
  
  shr.el: Inhibit getting and sending cookies when fetching pictures.
  gnus-html.el (gnus-html-schedule-image-fetching): Ditto.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/gnus-html.el
  lisp/gnus/shr.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2012-02-07 22:17:11 +0000
+++ b/lisp/gnus/ChangeLog       2012-02-08 01:44:25 +0000
@@ -1,3 +1,9 @@
+2012-02-08  Lars Ingebrigtsen  <address@hidden>
+
+       * shr.el: Inhibit getting and sending cookies when fetching pictures.
+
+       * gnus-html.el (gnus-html-schedule-image-fetching): Ditto.
+
 2012-02-07  Lars Ingebrigtsen  <address@hidden>
 
        * shr.el (shr-remove-trailing-whitespace): Don't strip whitespace from

=== modified file 'lisp/gnus/gnus-html.el'
--- a/lisp/gnus/gnus-html.el    2012-01-05 09:46:05 +0000
+++ b/lisp/gnus/gnus-html.el    2012-02-08 01:44:25 +0000
@@ -390,7 +390,7 @@
   (if (fboundp 'url-queue-retrieve)
       (url-queue-retrieve (car image)
                          'gnus-html-image-fetched
-                         (list buffer image) t)
+                         (list buffer image) t t)
     (ignore-errors
       (url-retrieve (car image)
                    'gnus-html-image-fetched

=== modified file 'lisp/gnus/shr.el'
--- a/lisp/gnus/shr.el  2012-02-07 22:17:11 +0000
+++ b/lisp/gnus/shr.el  2012-02-08 01:44:25 +0000
@@ -188,7 +188,8 @@
             (when (re-search-forward ".utm_.*" nil t)
               (replace-match "" t t))
             (message "Copied %s" (buffer-string))
-            (copy-region-as-kill (point-min) (point-max)))))))
+            (copy-region-as-kill (point-min) (point-max)))))
+       nil t))
      ;; Copy the URL to the kill ring.
      (t
       (with-temp-buffer
@@ -231,7 +232,7 @@
       (message "Inserting %s..." url)
       (url-retrieve url 'shr-image-fetched
                    (list (current-buffer) (1- (point)) (point-marker))
-                   t))))
+                   t t))))
 
 ;;; Utility functions.
 
@@ -510,7 +511,8 @@
     (if (not url)
        (message "No link under point")
       (url-retrieve (shr-encode-url url)
-                   'shr-store-contents (list url directory)))))
+                   'shr-store-contents (list url directory)
+                   nil t))))
 
 (defun shr-store-contents (status url directory)
   (unless (plist-get status :error)
@@ -617,7 +619,7 @@
                   (delete-region (point) end))))
         (url-retrieve url 'shr-image-fetched
                       (list (current-buffer) start end)
-                      t)))))
+                      t t)))))
 
 (defun shr-heading (cont &rest types)
   (shr-ensure-paragraph)
@@ -927,13 +929,10 @@
            (let ((file (url-cache-create-filename (shr-encode-url url))))
              (when (file-exists-p file)
                (delete-file file))))
-         (funcall
-          (if (fboundp 'url-queue-retrieve)
-              'url-queue-retrieve
-            'url-retrieve)
+         (url-queue-retrieve
           (shr-encode-url url) 'shr-image-fetched
           (list (current-buffer) start (set-marker (make-marker) (1- (point))))
-          t)))
+          t t)))
        (when (zerop shr-table-depth) ;; We are not in a table.
          (put-text-property start (point) 'keymap shr-map)
          (put-text-property start (point) 'shr-alt alt)