more descriptive error message

closes #12
hayamiz · Jan 2, 2010 · 272aafd · 272aafd
1 parent 2395baf
commit 272aafd
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 3 deletions.
diff --git a/ChangeLog b/ChangeLog
@@ -2,6 +2,7 @@
 
 	* twittering-mode.el (twittering-tinyurl-get): more descriptive
 	error message
+	(twittering-url-copy-file-async): more descriptive error message
 
 2010-01-02  Satoshi Yatagawa  <yata_github@y.hauN.org>
 

diff --git a/twittering-mode.el b/twittering-mode.el
@@ -1635,9 +1635,10 @@ following symbols;
       (let ((coding-system-for-write 'binary)
 	    (require-final-newline nil))
 	(goto-char (point-min))
-	(search-forward-regexp "^$")
-	(write-region (1+ (point)) (point-max) ,file)
-	(kill-buffer (current-buffer))))))
+	(if (search-forward-regexp "^$" nil t)
+	    (progn (write-region (1+ (point)) (point-max) ,file)
+		   (kill-buffer (current-buffer)))
+	  (error (format "Failed to get image file: %s" url)))))))
 
 (defun twittering-retrieve-image-without-wget (image-urls)
   (mapc