Fix the proxy configuration for `curl'.

* twittering-mode.el (twittering-start-http-session-curl): fix
extraction of the scheme from the variable `request'.

ChangeLog

@@ -1,3 +1,8 @@
+2010-05-17  Tadashi MATSUO  <tad@mymail.twin.jp>
+
+	* twittering-mode.el (twittering-start-http-session-curl): fix
+	extraction of the scheme from the variable `request'.
+
 2010-05-15  Tadashi MATSUO  <tad@mymail.twin.jp>
 
 	* twittering-mode.el: Add copyright of the ACTIVE/INACTIVE

twittering-mode.el

@@ -2862,22 +2862,22 @@ Z70Br83gcfxaz2TE4JaY0KNA4gGK7ycH8WUBikQtBmV1UsCGECAhX2xrD2yuCRyv
 		`("--cacert" ,(twittering-ensure-ca-cert)))
 	    ,@(when twittering-proxy-use
 		(let* ((proxy-info
-			(twittering-proxy-info (request :schema)))
+			(twittering-proxy-info (funcall request :schema)))
 		       (host (car-safe proxy-info))
 		       (port (cdr-safe proxy-info)))
 		  (when proxy-info
 		    `("-x" ,(format "%s:%s" host port)))))
 	    ,@(when twittering-proxy-use
 		(let ((pair
 		       (cdr (assoc
-			     (request :schema)
+			     (funcall request :schema)
 			     `(("http" .
 				(,twittering-http-proxy-user
 				 . ,twittering-http-proxy-password))
 			       ("https" .
 				(,twittering-https-proxy-user
 				 . ,twittering-https-proxy-password)))))))
-		  (when pair
+		  (when (and pair (car pair) (cdr pair))
 		    `("-U" ,(format "%s:%s" (car pair) (cdr pair))))))
 	    ,@(when (string= "POST" method)
 		(mapcan (lambda (pair)