diff options
| author | fukachan <fukachan> | 2001-01-27 12:00:31 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-01-27 12:00:31 +0000 |
| commit | c90465252de3cbcf0340e2722103e1756e24295a (patch) | |
| tree | 243b5cdd1bc6811407fde5b1a16a68204f60169b | |
| parent | 0d748d9c31e9c6deb10dc79befd8f907cc35ba12 (diff) | |
| download | fml8-c90465252de3cbcf0340e2722103e1756e24295a.tar.gz fml8-c90465252de3cbcf0340e2722103e1756e24295a.tar.bz2 fml8-c90465252de3cbcf0340e2722103e1756e24295a.zip | |
change internal variable names
| -rw-r--r-- | fml/lib/MailingList/Messages.pm | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/fml/lib/MailingList/Messages.pm b/fml/lib/MailingList/Messages.pm index 05906783..dc081af2 100644 --- a/fml/lib/MailingList/Messages.pm +++ b/fml/lib/MailingList/Messages.pm @@ -73,12 +73,14 @@ sub create { my ($self, $args) = @_; - $self->{ version } = $args->{ version } || 1.0; - $self->{ type } = $args->{ type } || 'message/rfc822'; - $self->{ next } = $args->{ next } || undef; - $self->{ prev } = $args->{ prev } || undef; - $self->{ header } = $args->{ header } || undef; - $self->{ content } = $args->{ content } || ''; + $self->{ next } = $args->{ next } || undef; + $self->{ prev } = $args->{ prev } || undef; + + $self->{ version } = $args->{ version } || 1.0; + $self->{ mime_version } = $args->{ mime_version } || 1.0; + $self->{ content_type } = $args->{ content_type } || 'message/rfc822'; + $self->{ header } = $args->{ header } || undef; + $self->{ content } = $args->{ content } || ''; } |