From c6de78e0f4581963f25fcc7798af2ff5c448dff2 Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Sun, 11 Feb 2001 03:54:05 +0000
Subject: s/parse_mime_multipart/build_mime_multipart_chain/ add a comment to
 create()

---
 fml/lib/MailingList/Messages.pm | 15 +++++++++++----
 1 file changed, 11 insertions(+), 4 deletions(-)

diff --git a/fml/lib/MailingList/Messages.pm b/fml/lib/MailingList/Messages.pm
index a33d25af..e6526c06 100644
--- a/fml/lib/MailingList/Messages.pm
+++ b/fml/lib/MailingList/Messages.pm
@@ -167,6 +167,13 @@ build a template message following the given $args (a hash reference).
 =cut
 
 
+# Descriptions: adapter to forward the request to object builders
+#               by following content-type. The real work is done at
+#                 &build_mime_multipart_chain() if multipart
+#                 &_create() if not
+#    Arguments: $self $args
+# Side Effects: none
+# Return Value: none
 sub create
 {
     my ($self, $args) = @_;
@@ -174,9 +181,9 @@ sub create
     # set up template anyway
     $self->_set_up_template($args);
 
-    # parse the non multipart mail
+    # parse the non multipart mail and build a chain
     if ($args->{ content_type } =~ /multipart/i) {
-	$self->parse_mime_multipart($args);
+	$self->build_mime_multipart_chain($args);
     }
     else {
 	$self->_create($args);
@@ -330,7 +337,7 @@ sub _print
 }
 
 
-=head2 C<parse_mime_multipart($args)>
+=head2 C<build_mime_multipart_chain($args)>
 
 parse the multipart mail. Actually it calculates the begin and end
 offset for each part of content, not split() and so on.
@@ -351,7 +358,7 @@ C<new()> calls this routine if the message looks MIME multipart.
 #      ---boundary--
 #         ... trailor ...
 #
-sub parse_mime_multipart
+sub build_mime_multipart_chain
 {
     my ($self, $args) = @_;
 
-- 
cgit v1.2.1