'twittering-retrieve-image-without-wget()' writes images as binary.

ChangeLog

@@ -10,6 +10,8 @@
 	the external command `convert' should be used.
 	(twittering-make-display-spec-for-icon): new function for
 	generating properties for icon with/without cropping the image.
+	(twittering-retrieve-image-without-wget): write an image as binary
+	explicitly.
 
 2009-12-04  Yuto Hayamizu  <y.hayamizu@gmail.com>
 

twittering-mode.el

@@ -1326,11 +1326,12 @@ If STATUS-DATUM is already in DATA-VAR, return nil. If not, return t."
       (unless (file-exists-p file)
 	(url-retrieve
 	 url `(lambda (status)
-		(goto-char (point-min))
-		(search-forward-regexp "^$")
-		(goto-char (1+ (point)))
-		(delete-region (point-min) (point))
-		(write-file ,file)))
+		(let ((coding-system-for-write 'binary))
+		  (goto-char (point-min))
+		  (search-forward-regexp "^$")
+		  (goto-char (1+ (point)))
+		  (delete-region (point-min) (point))
+		  (write-file ,file))))
 	))))
 
 (defun twittering-retrieve-image-with-wget (image-urls)