$NetBSD: patch-aa,v 1.20 2010/08/28 21:35:00 wiz Exp $

From upstream CVS, fixing compilation with ocaml-3.12.

--- src/gtk2/gui/guiHtml.ml.orig	2006-05-19 23:43:54.000000000 +0000
+++ src/gtk2/gui/guiHtml.ml
@@ -50,9 +50,13 @@ let user_agent =
 
 let make_request url =
   let module H = Http_client in
+  let auth = match !!O.gtk_connection_http_proxy_login with
+  | "" -> None
+  | _ -> Some (!!O.gtk_connection_http_proxy_login, !!O.gtk_connection_http_proxy_password)
+  in
   let proxy =
     if !!O.gtk_connection_http_use_proxy
-      then Some (!!O.gtk_connection_http_proxy_server, !!O.gtk_connection_http_proxy_port)
+      then Some (!!O.gtk_connection_http_proxy_server, !!O.gtk_connection_http_proxy_port, auth)
       else None
   in
   let r = {
