--- deliantra/server/ext/ipo.ext	2008/04/24 11:05:51	1.14
+++ deliantra/server/ext/ipo.ext	2008/09/22 01:33:09	1.15
@@ -255,15 +255,15 @@
       $who->reply ($npc,
          sprintf "How can I help you?\n"
           . "Here is a quick list of commands I understand:\n\n"
-          . "- pen                 (%s platinum)\n"
-          . "- literacy            (%s platinum)\n"
-          . "- mailscroll <friend> (%s platinum)\n"
-          . "- bag <friend>        (%s platinum)\n"
-          . "- package <friend>    (%s platinum)\n"
-          . "- carton <friend>     (%s platinum)\n"
-          . "- send <friend>       (send bags/packages/cartons)\n"
-          . "- receive             (to receive packages for you)\n"
-          . ($who->flag (cf::FLAG_WIZ) ? "- mailwarning <player>" : ""),
+          . " - pen                 (%s platinum)\n"
+          . " - literacy            (%s platinum)\n"
+          . " - mailscroll <friend> (%s platinum)\n"
+          . " - bag <friend>        (%s platinum)\n"
+          . " - package <friend>    (%s platinum)\n"
+          . " - carton <friend>     (%s platinum)\n"
+          . " - send <friend>       (send bags/packages/cartons)\n"
+          . " - receive             (to receive packages for you)\n"
+          . ($who->flag (cf::FLAG_WIZ) ? " - mailwarning <player>\n" : ""),
             40, 1000, 1, 1, 5, 10
       );
    }
@@ -297,8 +297,9 @@
 sub send_mail {
    my ($type, $toname, $fromname, $message) = @_;
    my $time = strftime ("%a, %d %b %Y %H:%M:%S CEST", localtime (time));
-   my $msg = "From: $fromname\nTo: $toname\nDate: $time\n\n$message\n";
+   my $msg = "From: $fromname\rTo: $toname\rDate: $time\n\n$message\n";
    store_mail ($type, $toname, $fromname, $msg);
 }
 
 1;
+