Index: /branches/release-40/lib/MT/CMS/Comment.pm
===================================================================
--- /branches/release-40/lib/MT/CMS/Comment.pm (revision 2638)
+++ /branches/release-40/lib/MT/CMS/Comment.pm (revision 2642)
@@ -14,5 +14,6 @@
     my $blog = $app->blog;
     my $type = $q->param('_type');
-
+    use Data::Dumper;
+    print STDERR "########".Dumper(\$param);
     if ($id) {
         $param->{nav_comments} = 1;
@@ -1489,4 +1490,5 @@
                     return $eh->error( MT->translate( "Publish failed: [_1]", $app->errstr ) );
                 }
+                1;
             }
         );
Index: /branches/release-40/lib/MT/Comment.pm
===================================================================
--- /branches/release-40/lib/MT/Comment.pm (revision 2545)
+++ /branches/release-40/lib/MT/Comment.pm (revision 2642)
@@ -193,4 +193,5 @@
     my ($comment) = @_;
     $comment->visible(0);
+    $comment->junk_status(NOT_JUNK);
 }