On 2013-10-18 11:36, Nicolas Richard wrote:
Note that using
(let ((coding-system-for-write 'no-conversion))
(write-region nil nil filename nil nil nil 'confirm))
instead of
(write-file ...)
seemed to fix the problem for Oleh.

got it. BTW, you might want to add the error message cleanup (i can't
do a branch/pull request from where i am right now).

Here's a diff:

--- org-download.el     2013-10-18 11:40:21.879753800 -0400
+++ org-download.el.new 2013-10-18 11:41:45.742415000 -0400
@@ -108,7 +108,8 @@
"Write current buffer to FILENAME and update inline images in BUFFER"
(let ((err (plist-get status :error)))
(if err
-               (signal :error (cdr err))))
+               (error "\"%s\" %s." url
+ (downcase (nth 2 (assq (nth 2 err) url-http-codes))))))
(delete-region
(point-min)
(progn


rick

Reply via email to