From: epg <>
Date: Wed, 7 Sep 2005 06:46:52 +0000 (+0000)
Subject: Lose -p (print file names) option; this can be implemented directly
X-Git-Url: https://diplodocus.org/git/minc/commitdiff_plain/ae2d52013bfd07cffb5377d79dbef1d64309e8fd?ds=inline;hp=a7e3dbc1bbe77ea7c2e9a5f9fe599eec31956d6b

Lose -p (print file names) option; this can be implemented directly
in the hook being debugged.
---

diff --git a/minc b/minc
index a36357a..8dbf8b6 100755
--- 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);