Skip to content

Commit

Permalink
Cleanup old buffers, hide tmp buffer in buffer-list.
Browse files Browse the repository at this point in the history
  • Loading branch information
psanford committed Jan 31, 2009
1 parent a188ab6 commit e5d0807
Showing 1 changed file with 3 additions and 1 deletion.
4 changes: 3 additions & 1 deletion oauth.el
Expand Up @@ -340,7 +340,8 @@ can be fed to curl"

(defun oauth-curl-retrieve (url)
"Retrieve via curl"
(set-buffer (generate-new-buffer "*oauth-request*"))
(url-gc-dead-buffers)
(set-buffer (generate-new-buffer " *oauth-request*"))
(let ((curl-args `("-s" ,(when oauth-curl-insecure "-k")
"-X" ,url-request-method
"-i" ,url
Expand All @@ -356,6 +357,7 @@ can be fed to curl"
oauth-post-vars-alist)))
,@(oauth-headers-to-curl url-request-extra-headers))))
(apply 'call-process "curl" nil t nil curl-args))
(url-mark-buffer-as-dead (current-buffer))
(current-buffer))

(defun oauth-request-to-header (req)
Expand Down

0 comments on commit e5d0807

Please sign in to comment.