From 4bc72b0f622b2565e7b0d0263bb3053ca5252f63 Mon Sep 17 00:00:00 2001
From: Artur Malabarba <bruce.connor.am@gmail.com>
Date: Fri, 23 Jan 2015 23:38:06 -0200
Subject: sx-request-get-url error unless code 200

---
 sx-request.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/sx-request.el b/sx-request.el
index 77ae1d7..7f18a2b 100644
--- a/sx-request.el
+++ b/sx-request.el
@@ -234,9 +234,10 @@ Currently returns nil."
       (with-current-buffer response-buffer
         (progn
           (goto-char (point-min))
+          (unless (string-match "200" (thing-at-point 'line))
+            (error "Page not found."))
           (if (not (search-forward "\n\n" nil t))
               (error "Headers missing; response corrupt")
-            (when (looking-at-p "Not Found") (error "Page not found."))
             (prog1 (buffer-substring (point) (point-max))
               (kill-buffer (current-buffer)))))))))
 
-- 
cgit v1.2.3