"Recognize" some extra subpacket types

[onak.git] / onak-mail.pl.in

diff --git a/onak-mail.pl.in b/onak-mail.pl.in
index 5c1ce53f603b46fa0fb052881083f8cdd7e45630..c635dfba601e5490352c2ac17f0c040e70e54979 100644 (file)
--- a/onak-mail.pl.in
+++ b/onak-mail.pl.in
@@ -257,7 +257,7 @@ while ($file = readdir(MAILDIR)) {
                        push @body, $_;
                }
        }
-       if (! defined($replyto)) {
+       if ($replyto eq '') {
                $replyto = $from;
        }
        close(FILE);