[Mldonkey-commits] Changes to mldonkey/src/daemon/common/commonInteractive.ml

[mldonkey-commits]

Index: mldonkey/src/daemon/common/commonInteractive.ml
diff -u mldonkey/src/daemon/common/commonInteractive.ml:1.46 
mldonkey/src/daemon/common/commonInteractive.ml:1.47
--- mldonkey/src/daemon/common/commonInteractive.ml:1.46        Fri Aug 26 
21:10:43 2005
+++ mldonkey/src/daemon/common/commonInteractive.ml     Fri Sep  2 23:46:30 2005
@@ -221,9 +221,16 @@
         Printf.sprintf "mldonkey, file received";
     in
 
-    let line4 = if !!url_in_mail <> "" then
-        Printf.sprintf "\r\n<%s/%s>\r\n" !!url_in_mail (Url.encode 
(file_best_name file))
+    let incoming =
+      if Unix2.is_directory (file_disk_name file) then
+        incoming_directories ()
       else
+        incoming_files ()
+    in
+
+    let line4 = if !!url_in_mail <> "" then
+      Printf.sprintf "\r\n<%s/%s/%s>\r\n" !!url_in_mail incoming.shdir_dirname 
(Url.encode (file_best_name file))
+    else
         Printf.sprintf "";
     in