Lose -p (print file names) option; this can be implemented directly

in the hook being debugged.

diff --git a/minc b/minc
index a36357a3f019698a69c55adec2a15776b09f9a94..8dbf8b6c819187c9afdaf4b6d3ad31e76cd4e3c2 100755 (executable)
--- a/minc
+++ b/minc
@@ -8,7 +8,7 @@ B<minc> - incorporate mail from a maildir into mh folders
 
 =head1 SYNOPSIS
 
-B<minc> [B<-m> I<MAX>] [B<-n>] [B<-p>]
+B<minc> [B<-m> I<MAX>] [B<-n>]
 
 B<minc> B<-d>
 
@@ -80,12 +80,6 @@ Stop processing after I<MAX> messages.
 Dry run; do not actually incorporate the mail, but log and report to
 stdout/stderr as normal.
 
-=item B<-p>
-
-Print the filename of each message before checking it for spam.  This
-can be handy if a particular message is giving the spam checker a
-problem.
-
 =back
 
 =cut
@@ -94,14 +88,12 @@ my $dumpfilters;
 my $help;
 my $maxmsgs;
 my $norun;
-my $printfilenames;
 
 GetOptions(
            'd' => \$dumpfilters,
            'h|help' => \$help,
            'm=i' => \$maxmsgs,
            'n' => \$norun,
-           'p' => \$printfilenames,
           ) or pod2usage();
 $help and pod2usage(-exitstatus=>0, -verbose=>1);
 @ARGV == 0 or pod2usage();
@@ -560,10 +552,6 @@ sub filter_mail {
     for $msg (@_) {
         ($msg eq '.' or $msg eq '..') and next;
 
-        if ($printfilenames) {
-            print("$msg\n");
-        }
-
         my %headers = get_headers($msg);
         log_headers(%headers);