Publish::MTを改変
カテゴリ指定で分けたかったのでデフォルトのPublish::MTを少し改変。

sub post_to_mt {
my $self = shift;
my %args = @_;
my $mt = $self->mt;

# FIXME: Can I use XML::RPC::Lite without hack?
Encode::_utf8_off($args{title});
Encode::_utf8_off($args{body});

my $id = $mt->newPost({
title => $self->conf->{title} || $args{title} || ”,
description => $args{body} || ”,
}) or die $mt->errstr;
+ if ($self->conf->{category}) {
+ $mt->setPostCategories($id, $self->conf->{category});
+ }
$mt->publishPost($id);
$id;
}

以前用意していたのをすっかり忘れて未分類投稿になってた。修正。