pullimap: add section name in debug messages.

diff --git a/pullimap b/pullimap
index 235bc62cc47175c1e3301cbafe4f65a11db6ac2e..db3090ffffe2752c511cd7d7c1383a2f68626c02 100755 (executable)
--- a/pullimap
+++ b/pullimap
@@ -219,7 +219,7 @@ sub smtp_send(@) {
 # the remote mailbox
 #
 $CONF->{'logger-fd'} = \*STDERR if $CONFIG{debug};
-my $IMAP = Net::IMAP::InterIMAP::->new( %$CONF, %CONFIG{qw/quiet debug/} );
+my $IMAP = Net::IMAP::InterIMAP::->new( %$CONF, %CONFIG{qw/quiet debug/}, name => $ARGV[0] );
 
 # Remove messages with UID < UIDNEXT and INTERNALDATE at most
 # $CONF->{'purge-after'} days ago.
@@ -266,7 +266,7 @@ sub pull(;$) {
         my $uid = $mail->{UID};
         my $from = first { defined $_ and @$_ } @{$mail->{ENVELOPE}}[2,3,4];
         $from = (defined $from and @$from) ? $from->[0]->[2].'@'.$from->[0]->[3] : '';
-        print STDERR "($MAILBOX): UID $uid from <$from> ($mail->{INTERNALDATE})\n" unless $CONFIG{quiet};
+        $IMAP->log("UID $uid from <$from> ($mail->{INTERNALDATE})") unless $CONFIG{quiet};
 
         sendmail($from, $mail->{RFC822}) unless $CONFIG{'no-delivery'};