diff options
Diffstat (limited to 'lisp/mastodon-http.el')
| -rw-r--r-- | lisp/mastodon-http.el | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/lisp/mastodon-http.el b/lisp/mastodon-http.el index 2b3f7dc..eb70a88 100644 --- a/lisp/mastodon-http.el +++ b/lisp/mastodon-http.el @@ -48,16 +48,14 @@ (defun mastodon-http--response-body (pattern) "Return substring matching PATTERN from `mastodon-http--response'." (let ((resp (mastodon-http--response))) - (progn - (string-match pattern resp) - (match-string 0 resp)))) + (string-match pattern resp) + (match-string 0 resp))) (defun mastodon-http--status () "Return HTTP Response Status Code from `mastodon-http--response'." (let* ((status-line (mastodon-http--response-body "^HTTP/1.*$"))) - (progn - (string-match "[0-9][0-9][0-9]" status-line) - (match-string 0 status-line)))) + (string-match "[0-9][0-9][0-9]" status-line) + (match-string 0 status-line))) (defun mastodon-http--triage (response success) "Determine if RESPONSE was successful. Call SUCCESS if successful. |