From 80cfd8b86ccf059c78b37dd2ed9b05ee9816fed8 Mon Sep 17 00:00:00 2001 From: Tadashi MATSUO Date: Tue, 30 Mar 2010 01:32:27 +0900 Subject: [PATCH] `twittering-http-default-sentinel' confirms validity of the header. * twittering-mode.el (twittering-get-response-header): return nil if an empty line as a separater is not found in the given buffer. (twittering-http-default-sentinel): generate `header-info' only if `header' is non-nil. --- ChangeLog | 7 +++++++ twittering-mode.el | 5 +++-- 2 files changed, 10 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 7fe68b5a..26835e0c 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,10 @@ +2010-03-30 Tadashi MATSUO + + * twittering-mode.el (twittering-get-response-header): return nil + if an empty line as a separater is not found in the given buffer. + (twittering-http-default-sentinel): generate `header-info' only if + `header' is non-nil. + 2010-03-29 Tadashi MATSUO * twittering-mode.el (twittering-url-wrapper): new wrapper diff --git a/twittering-mode.el b/twittering-mode.el index 767c1fda..2ae6361d 100644 --- a/twittering-mode.el +++ b/twittering-mode.el @@ -2051,7 +2051,8 @@ Available keywords: ((memq status '(exit signal closed failed)) (unwind-protect (let* ((header (twittering-get-response-header temp-buffer)) - (header-info (twittering-update-server-info header))) + (header-info + (and header (twittering-update-server-info header)))) (setq mes (cond ((null header-info) @@ -2181,7 +2182,7 @@ BUFFER may be a buffer or the name of an existing buffer which contains the HTTP (delete-region (point-min) (point))) (if (search-forward-regexp "\r?\n\r?\n" nil t) (buffer-substring (point-min) (match-end 0)) - (error "Failure: invalid HTTP response"))))) + nil)))) (defun twittering-get-response-body (buffer &optional func) "Exract HTTP response body from HTTP response.