(twittering-retrieve-image): bind 'url-show-status' locally to inhibi…

…t showing a progress message. (twittering-tinyurl-get): likewise.

ChangeLog

@@ -17,6 +17,10 @@
 	* twittering-mode.el (twittering-get-tweets): Don't call
 	`twittering-retrieve-image' here.
 
+	* twittering-mode.el (twittering-retrieve-image): Bind
+	`url-show-status' locally to inhibit showing a progress message.
+	(twittering-tinyurl-get): Likewise.
+
 2010-02-22  Satoshi Yatagawa  <yata_github@y.hauN.org>
 
 	* twittering-mode.el (twittering-atom-xmltree-to-status-datum):

twittering-mode.el

@@ -2753,6 +2753,7 @@ variable `twittering-status-format'."
 	(set-buffer-multibyte nil)
 	(let ((coding-system-for-read 'binary)
 	      (coding-system-for-write 'binary)
+	      (url-show-status nil)
 	      (require-final-newline nil))
 	  (url-insert-file-contents image-url)
 	  (let ((image-type (twittering-image-type image-url (current-buffer)))
@@ -2799,7 +2800,8 @@ variable `twittering-status-format'."
 			  (symbol-name (car x)))
 			twittering-tinyurl-services-map ", ")))
     (if longurl
-	(let ((buffer (url-retrieve-synchronously (concat api longurl))))
+	(let* ((url-show-status nil)
+	       (buffer (url-retrieve-synchronously (concat api longurl))))
 	  (with-current-buffer buffer
 	    (goto-char (point-min))
 	    (prog1