2 files changed, 36 insertions, 0 deletions
diff --git a/net-p2p/mldonkey/files/patch-src__gtk2__gui__guiHtml.ml b/net-p2p/mldonkey/files/patch-src__gtk2__gui__guiHtml.ml
new file mode 100644
index 000000000000..9a609cfea34f
--- /dev/null
+++ b/net-p2p/mldonkey/files/patch-src__gtk2__gui__guiHtml.ml
@@ -0,0 +1,17 @@
+--- src/gtk2/gui/guiHtml.ml.orig	2006-05-19 20:43:31.000000000 -0300
++++ src/gtk2/gui/guiHtml.ml	2010-09-21 00:37:03.000000000 -0300
+@@ -50,9 +50,13 @@
+ 
+ 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 = {
diff --git a/net-p2p/mldonkey/files/patch-src__gtk2__gui__guiOptions.ml b/net-p2p/mldonkey/files/patch-src__gtk2__gui__guiOptions.ml
new file mode 100644
index 000000000000..53c83a123c77
--- /dev/null
+++ b/net-p2p/mldonkey/files/patch-src__gtk2__gui__guiOptions.ml
@@ -0,0 +1,19 @@
+--- src/gtk2/gui/guiOptions.ml.orig	2007-07-01 09:59:48.000000000 -0300
++++ src/gtk2/gui/guiOptions.ml	2010-09-21 00:37:03.000000000 -0300
+@@ -166,6 +166,16 @@
+     "Direct TCP connections to HTTP proxy (the proxy should support CONNECT)"
+     bool_option false
+ 
++let gtk_connection_http_proxy_login = define_option current_section
++    ["gtk_connection_http_proxy_login"]
++    "HTTP proxy login (leave empty if proxy doesn't require authentication)"
++    string_option ""
++
++let gtk_connection_http_proxy_password = define_option current_section
++    ["gtk_connection_http_proxy_password"]
++    "HTTP proxy password"
++    string_option ""
++
+ (* {Client} *)
+ 
+ let gtk_client_login = define_option current_section