#!/usr/local/bin/perl -w

BEGIN {
  our $no_session_check = 0;
  require "preface.pl";
}

use Pronto::Read;
use Pronto::Data::Message;
use HTMLWidget::MessageView;
use Gtk::Dummy;
use MIME::Parser;
use Pronto::Link;

our ($view_widget, $parser);

our $HTMLWIDGET = "GtkHTML";

$parser = new MIME::Parser;
$parser->output_dir("$prefs{'MailDir'}/tmp/");

if (!param('message')) {
  print header, start_html("No Message selected"), h1("No Message selected"), end_html;
  exit 0;
}

$view_widget = new HTMLWidget::MessageView();

&Pronto::Read::view_message($conn, param('message'), $view_widget, 1, 0, undef, undef, undef);

print header;

$view_widget->draw();