Skip to content

Commit

Permalink
Silence some more.
Browse files Browse the repository at this point in the history
  • Loading branch information
ieure committed May 11, 2009
1 parent 981ed7e commit 5f7a941
Showing 1 changed file with 6 additions and 2 deletions.
8 changes: 6 additions & 2 deletions twit.el
Expand Up @@ -670,7 +670,8 @@ pain where uesrs can't see why they have blank timelines."
"Retrieve the resource at URL, and when retrieved call callback
This is the asyncronous version of twit-parse-xml. Once that function is
refactored, and its named changed, so should this one."
(let ((url-request-method "GET"))
(let ((url-request-method "GET")
(url-show-status nil))
(setq twit-async-buffer (url-retrieve url 'twit-parse-xml-async-retrieve (list url callback)))))

;;* rate-limit var
Expand Down Expand Up @@ -711,6 +712,7 @@ This will give us a Guarantee that our posting atually did work."
;;* post status
(defun twit-post-function (url post)
(let ((url-request-method "POST")
(url-show-status nil)
(url-request-data (concat "source=twit.el&status=" (url-hexify-string post)))
;; these headers don't actually do anything (yet?) -- the
;; source parameter above is what counts
Expand All @@ -721,6 +723,7 @@ This will give us a Guarantee that our posting atually did work."
;;* post direct
(defun twit-direct-message (user msg)
(let ((url-request-method "POST")
(url-show-status nil)
(url-request-data (concat "source=twit.el"
"&user=" (url-hexify-string user)
"&text=" (url-hexify-string msg)))
Expand Down Expand Up @@ -908,7 +911,8 @@ It is in the format of (timestamp user-id message) ")
; This should check to see if the url is stored locally, and if so, don't retrieve
(defun twit-get-user-image (url user-id)
"Retrieve the user image from the list, or from the URL"
(let ((img (assoc url twit-user-image-list)))
(let ((img (assoc url twit-user-image-list))
(url-show-status nil))
(if (and img (not (bufferp (cdr img))))
(cdr (assoc url twit-user-image-list))
(if (file-exists-p (concat twit-user-image-dir "/" user-id "-" (file-name-nondirectory url)))
Expand Down

0 comments on commit 5f7a941

Please sign in to comment.