summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorfukachan <fukachan>2002-05-11 09:46:29 +0000
committerfukachan <fukachan>2002-05-11 09:46:29 +0000
commit695a543dbc4e202b4b7c7a04704d7174cfa212ef (patch)
tree5e0023f902ebe8ddc22089471c88d0a8f1090241
parent2ff5effa203c5c7bc9273486d71467219070f010 (diff)
downloadfml8-695a543dbc4e202b4b7c7a04704d7174cfa212ef.tar.gz
fml8-695a543dbc4e202b4b7c7a04704d7174cfa212ef.tar.bz2
fml8-695a543dbc4e202b4b7c7a04704d7174cfa212ef.zip
no no no, not reset $data_ptr unless body
-rw-r--r--fml/lib/Mail/Message.pm3
1 files changed, 1 insertions, 2 deletions
diff --git a/fml/lib/Mail/Message.pm b/fml/lib/Mail/Message.pm
index c32a6f3c..a0c05297 100644
--- a/fml/lib/Mail/Message.pm
+++ b/fml/lib/Mail/Message.pm
@@ -4,7 +4,7 @@
# All rights reserved. This program is free software; you can
# redistribute it and/or modify it under the same terms as Perl itself.
#
-# $FML: Message.pm,v 1.60 2002/04/28 13:34:16 fukachan Exp $
+# $FML: Message.pm,v 1.61 2002/05/11 09:35:21 fukachan Exp $
#
package Mail::Message;
@@ -533,7 +533,6 @@ sub _parse
else {
$header = $buf;
$header_size = $total_buffer_size;
- $$data_ptr = undef;
}
# read the message (mail body) from the incoming mail