[Emacs-diffs] trunk r118165: Newsticker: fix broken image download via url-retrieve.

[Ulf Jasper]

------------------------------------------------------------
revno: 118165
revision-id: address@hidden
parent: address@hidden
author: Ulf Jasper
committer: Ulf Jasper <address@hidden>
branch nick: trunk
timestamp: Mon 2014-10-20 20:39:58 +0200
message:
  Newsticker: fix broken image download via url-retrieve.
  
  * lisp/net/newst-backend.el
  (newsticker--image-download-by-url-callback): Make this function
  actually work: First save image then check status.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/net/newst-backend.el      
newstbackend.el-20091113204419-o5vbwnq5f7feedwu-8682

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-10-20 16:36:34 +0000
+++ b/lisp/ChangeLog    2014-10-20 18:39:58 +0000
@@ -1,3 +1,9 @@
+2014-10-20  Ulf Jasper  <address@hidden>
+
+       * net/newst-backend.el
+       (newsticker--image-download-by-url-callback): Make this function
+       actually work: First save image then check status.
+
 2014-10-20  Stefan Monnier  <address@hidden>
 
        * textmodes/css-mode.el (scss-mode): New major-mode.

=== modified file 'lisp/net/newst-backend.el'
--- a/lisp/net/newst-backend.el 2014-10-19 16:50:15 +0000
+++ b/lisp/net/newst-backend.el 2014-10-20 18:39:58 +0000
@@ -1905,23 +1905,29 @@
 FEED-NAME is the name of the feed that the news were retrieved
 from.
 The image is saved in DIRECTORY as FILENAME."
+  (let ((buf (get-buffer-create (concat " *newsticker-url-image-" feed-name "-"
+                                        directory "*")))
+        (result (string-to-multibyte (buffer-string))))
+    (set-buffer buf)
+    (erase-buffer)
+    (insert result)
+    ;; remove MIME header
+    (goto-char (point-min))
+    (search-forward "\n\n")
+    (delete-region (point-min) (point))
+    ;; save
+    (newsticker--image-save buf directory filename))
   (when status
     (let ((status-type (car status))
           (status-details (cdr status)))
-      (cond ((eq status-type :error)
-             (newsticker--image-remove directory feed-name))
-            (t
-             (let ((buf (get-buffer-create (concat " *newsticker-url-image-" 
feed-name "-" directory "*")))
-                   (result (string-to-multibyte (buffer-string))))
-               (set-buffer buf)
-               (erase-buffer)
-               (insert result)
-               ;; remove MIME header
-               (goto-char (point-min))
-               (search-forward "\n\n")
-               (delete-region (point-min) (point))
-               ;; save
-               (newsticker--image-save buf directory filename)))))))
+      (cond ((eq status-type :redirect)
+             ;; don't care about redirects
+             )
+            ((eq status-type :error)
+             (message "%s: Error while retrieving image from %s: %s: \"%s\""
+                      (format-time-string "%A, %H:%M" (current-time))
+                      feed-name
+                      (car status-details) (cdr status-details)))))))
 
 (defun newsticker--insert-image (img string)
   "Insert IMG with STRING at point."