/[suikacvs]/messaging/manakai/lib/Message/Body/TextPlain.pm
Suika

Diff of /messaging/manakai/lib/Message/Body/TextPlain.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.10 by wakaba, Wed Jul 17 00:33:29 2002 UTC revision 1.11 by wakaba, Fri Jul 19 11:49:23 2002 UTC
# Line 16  push @ISA, qw(Message::Body::Text); Line 16  push @ISA, qw(Message::Body::Text);
16  %DEFAULT = (  %DEFAULT = (
17    -_METHODS     => [qw|value|],    -_METHODS     => [qw|value|],
18    -_MEMBERS     => [qw|_charset|],    -_MEMBERS     => [qw|_charset|],
19    -body_default_charset => 'us-ascii',    -body_default_charset => 'iso-2022-int-1',
20    -body_default_charset_input   => 'iso-2022-int-1',    -body_default_charset_input   => 'iso-2022-int-1',
21    #encoding_after_encode    #encoding_after_encode
22    #encoding_before_decode    #encoding_before_decode
# Line 151  sub stringify ($;%) { Line 151  sub stringify ($;%) {
151        $ct->replace (Message::MIME::Charset::name_minimumize ($option{body_default_charset}, $e{value}));        $ct->replace (Message::MIME::Charset::name_minimumize ($option{body_default_charset}, $e{value}));
152      } elsif ($option{fill_ct}) {      } elsif ($option{fill_ct}) {
153        $ct = $self->{header}->field ('content-type');        $ct = $self->{header}->field ('content-type');
154        $ct->value ($option{media_type}.'/'.$option{media_subtype});        $ct->media_type_major ($option{media_type});
155          $ct->media_type_minor ($option{media_subtype});
156        $ct->replace (Message::MIME::Charset::name_minimumize ($option{body_default_charset}, $e{value}));        $ct->replace (Message::MIME::Charset::name_minimumize ($option{body_default_charset}, $e{value}));
157      }      }
158    }    }
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24