From 21404e2d7df32384414aa950c271dea8019b3a16 Mon Sep 17 00:00:00 2001
From: David Bremner <bremner@unb.ca>
Date: Wed, 27 Aug 2008 09:03:21 -0300
Subject: [PATCH] WIP on attachment filtering

---
 IkiWiki/Plugin/mailbox.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/IkiWiki/Plugin/mailbox.pm b/IkiWiki/Plugin/mailbox.pm
index d925e42be..5e24a3b4d 100644
--- a/IkiWiki/Plugin/mailbox.pm
+++ b/IkiWiki/Plugin/mailbox.pm
@@ -4,6 +4,7 @@
 # Copyright (c) 2008 David Bremner <bremner@unb.ca>
 # This file is distributed under the Artistic License/GPL2+
 
+use Email::FolderType qw(folder_type);
 use Email::MIME;
 package Email::MIMEFolder;
 use base 'Email::Folder';
@@ -12,7 +13,6 @@ sub bless_message { return  Email::MIME->new($_[1]) };
 
 package IkiWiki::Plugin::mailbox;
 
-use Email::FolderType qw(folder_type);
 use IkiWiki 2.00;
 use Email::Thread;
 use CGI 'escapeHTML';
@@ -27,6 +27,7 @@ sub import { #{{{
 	hook(type => "preprocess", id => "mailbox", call => \&preprocess);
 	hook(type => "scan", id => "mailbox", call => \&scan);
 	hook(type => "pagetemplate", id=>"mailbox", call => \&pagetemplate);
+	IkiWiki::loadplugin("filecheck");
 } # }}}
 
 sub scan(@){
@@ -128,6 +129,8 @@ sub format_message(@){
 
     $template->param(HEADERS=>[@headers]);
 
+    my $filter=$params{filter} ||  "maxsize(100k) and mimetype(text/plain)";
+    my @good_parts=filter_parts($filter,$message->parts;
 
     my $body= join("\n", map { $_->body }  $message->parts);
 
-- 
2.26.2