Relocated repos

paradox-github.el

@@ -225,7 +225,9 @@ Leave point at the return code on the first line."
     (`200 t)   ;; OK, with content.
     ;; I'll implement redirection if anyone ever reports this.
     ;; For now, I haven't found a place where it's used.
-    ((or `301 `302 `303 `304 `305 `306 `307)
+    (`301
+     (search-forward "HTTP/1.1 ") t)
+    ((or `302 `303 `304 `305 `306 `307)
      (paradox--github-report "Redirect received:\n\n" (buffer-string))
      ;; (message "Received a redirect reply, please file a bug report (M-x `paradox-bug-report')")
      nil)
@@ -289,7 +291,7 @@ value."
                (set-process-sentinel
                 (apply #'start-process "paradox-github"
                        (generate-new-buffer "*Paradox http*")
-                       "curl" "-s" "-i" "-d" "" "-X" ,method ,action
+                       "curl" "-L" "-s" "-i" "-d" "" "-X" ,method ,action
                        (when (stringp paradox-github-token)
                          (list "-u" (concat paradox-github-token ":x-oauth-basic"))))
                 ,call-name)
@@ -298,7 +300,7 @@ value."
            ;; Make the request.
            (condition-case nil
                (apply #'call-process
-                      "curl" nil t nil "-s" "-i" "-d" "" "-X" ,method ,action
+                      "curl" nil t nil "-L" "-s" "-i" "-d" "" "-X" ,method ,action
                       (when (stringp paradox-github-token)
                         (list "-u" (concat paradox-github-token ":x-oauth-basic"))))
              (error ,unwind-form))