diff --git a/ChangeLog b/ChangeLog
index 73405873..530fe3f1 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,12 @@
+2010-09-26  Tadashi MATSUO  <tad@mymail.twin.jp>
+
+	* twittering-mode.el: Remove redundant pre-processing of HTTP
+	response buffer for SSL via a proxy.
+	(twittering-oauth-get-response-alist): remove redundant
+	pre-processing of HTTP response buffer for SSL via proxy. Instead
+	of it, `twittering-oauth-get-token-alist' invokes an appropriate
+	function for pre-processing.
+
 2010-09-19  Tadashi MATSUO  <tad@mymail.twin.jp>
 
 	* twittering-mode.el: Fix `twittering-push-uri-onto-kill-ring'.
diff --git a/twittering-mode.el b/twittering-mode.el
index bc1e46b1..5735b596 100644
--- a/twittering-mode.el
+++ b/twittering-mode.el
@@ -1112,23 +1112,6 @@ function."
 (defun twittering-oauth-get-response-alist (buffer)
   (with-current-buffer buffer
     (goto-char (point-min))
-    (when (and twittering-proxy-use twittering-oauth-use-ssl)
-      ;; When using SSL via a proxy with CONNECT method,
-      ;; omit a successful HTTP response and headers if they seem to be
-      ;; sent from the proxy.
-      (save-excursion
-	(goto-char (point-min))
-	(let ((first-regexp
-	       ;; successful HTTP response
-	       "\\`HTTP/1\.[01] 2[0-9][0-9] .*?\r?\n")
-	      (next-regexp
-	       ;; following HTTP response
-	       "^\\(\r?\n\\)HTTP/1\.[01] [0-9][0-9][0-9] .*?\r?\n"))
-	  (when (and (search-forward-regexp first-regexp nil t)
-		     (search-forward-regexp next-regexp nil t))
-	    (let ((beg (point-min))
-		  (end (match-end 1)))
-	      (delete-region beg end))))))
     (when (search-forward-regexp
 	   "\\`\\(\\(HTTP/1\.[01]\\) \\([0-9][0-9][0-9]\\) \\(.*?\\)\\)\r?\n"
 	   nil t)