* fix g_mime_message_set_mime_part() use

* fix bad ST(0)
* add GMIME_RECIPIENT_TYPE_* constants

4 files changed, 59 insertions, 0 deletions

diff --git a/mail/p5-MIME-Fast/Makefile b/mail/p5-MIME-Fast/Makefile
index 9e2f50c7fed7..76e25c6dd41c 100644
--- a/mail/p5-MIME-Fast/Makefile
+++ b/mail/p5-MIME-Fast/Makefile
@@ -7,6 +7,7 @@
 
 PORTNAME=	MIME-Fast
 PORTVERSION=	1.4
+PORTREVISION=	1
 CATEGORIES=	mail perl5
 MASTER_SITES=	${MASTER_SITE_PERL_CPAN}
 MASTER_SITE_SUBDIR=	MIME
diff --git a/mail/p5-MIME-Fast/files/patch-Message.xs b/mail/p5-MIME-Fast/files/patch-Message.xs
new file mode 100644
index 000000000000..27ea003aa987
--- /dev/null
+++ b/mail/p5-MIME-Fast/files/patch-Message.xs
@@ -0,0 +1,11 @@
+--- Fast/Message.xs.orig	2004-12-09 19:17:07.281250000 +0300
++++ Fast/Message.xs	2004-12-09 19:17:28.281250000 +0300
+@@ -167,7 +167,7 @@
+ void
+ g_mime_message_set_mime_part(message, mime_part)
+         MIME::Fast::Message	message
+-        MIME::Fast::Part	mime_part
++        MIME::Fast::Object	mime_part
+     CODE:
+         g_mime_message_set_mime_part(message, GMIME_OBJECT (mime_part));
+         plist = g_list_remove(plist, mime_part);
diff --git a/mail/p5-MIME-Fast/files/patch-MultiPart.xs b/mail/p5-MIME-Fast/files/patch-MultiPart.xs
new file mode 100644
index 000000000000..98bcb0ac683e
--- /dev/null
+++ b/mail/p5-MIME-Fast/files/patch-MultiPart.xs
@@ -0,0 +1,29 @@
+--- Fast/MultiPart.xs.orig	2004-12-09 19:33:21.796875000 +0300
++++ Fast/MultiPart.xs	2004-12-09 19:33:31.859375000 +0300
+@@ -67,7 +67,7 @@
+ 	int			index;
+     CODE:
+ 	if (sv_isobject(subpart) && SvROK(subpart)) {
+-	  IV tmp = SvIV((SV*)SvRV(ST(0)));
++	  IV tmp = SvIV((SV*)SvRV(subpart));
+ 	  mime_object = INT2PTR(MIME__Fast__Object, tmp);
+           if (gmime_debug)
+             warn("g_mime_part_remove_subpart: 0x%x, child=0x%x (not add to plist)", mime_multipart, mime_object);
+@@ -224,7 +224,7 @@
+ 	GMimeObject		*mime_object;
+     CODE:
+ 	if (sv_isobject(subpart) && SvROK(subpart)) {
+-	  IV tmp = SvIV((SV*)SvRV(ST(0)));
++	  IV tmp = SvIV((SV*)SvRV(subpart));
+ 	  mime_object = INT2PTR(MIME__Fast__Object, tmp);
+           g_mime_multipart_add_part(mime_multipart, mime_object);
+           plist = g_list_remove(plist, subpart);
+@@ -237,7 +237,7 @@
+ 	GMimeObject		*mime_object;
+     CODE:
+ 	if (sv_isobject(subpart) && SvROK(subpart)) {
+-	  IV tmp = SvIV((SV*)SvRV(ST(0)));
++	  IV tmp = SvIV((SV*)SvRV(subpart));
+ 	  mime_object = INT2PTR(MIME__Fast__Object, tmp);
+           g_mime_multipart_add_part_at(mime_multipart, mime_object, index);
+           plist = g_list_remove(plist, subpart);
diff --git a/mail/p5-MIME-Fast/files/patch-perl-constants.c b/mail/p5-MIME-Fast/files/patch-perl-constants.c
new file mode 100644
index 000000000000..2082ada2b75b
--- /dev/null
+++ b/mail/p5-MIME-Fast/files/patch-perl-constants.c
@@ -0,0 +1,18 @@
+--- cinclude/perl-constants.c.orig	2004-12-09 18:24:15.265625000 +0300
++++ cinclude/perl-constants.c	2004-12-09 19:02:31.562500000 +0300
+@@ -240,6 +240,15 @@
+             return GMIME_MDN_MODIFIER_MAILBOX_TERMINATED;
+ #endif
+           break;
++        case 'R':
++	  /* gmime-message.h */
++          if (strEQ(name, "GMIME_RECIPIENT_TYPE_TO"))
++            return GMIME_RECIPIENT_TYPE_TO;
++          else if (strEQ(name, "GMIME_RECIPIENT_TYPE_CC"))
++            return GMIME_RECIPIENT_TYPE_CC;
++          else if (strEQ(name, "GMIME_RECIPIENT_TYPE_CC"))
++            return GMIME_RECIPIENT_TYPE_BCC;
++          break;
+         }
+       }
+       break;