Permalink
Browse files

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

…t showing a progress message. (twittering-tinyurl-get): likewise.
  • Loading branch information...
1 parent 1763a5d commit 69fd73df0f2fca8142e806171c55dbc93a28d9c9 @yata yata committed Feb 25, 2010
Showing with 7 additions and 1 deletion.
  1. +4 −0 ChangeLog
  2. +3 −1 twittering-mode.el
View
@@ -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):
View
@@ -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

0 comments on commit 69fd73d

Please sign in to comment.