summaryrefslogtreecommitdiff
path: root/img/lib
diff options
context:
space:
mode:
Diffstat (limited to 'img/lib')
-rw-r--r--img/lib/IM/Address.pm4
-rw-r--r--img/lib/IM/Alias.pm4
-rw-r--r--img/lib/IM/Config.pm.in16
-rw-r--r--img/lib/IM/EncDec.pm13
-rw-r--r--img/lib/IM/File.pm4
-rw-r--r--img/lib/IM/Folder.pm4
-rw-r--r--img/lib/IM/GetPass.pm8
-rw-r--r--img/lib/IM/Grep.pm4
-rw-r--r--img/lib/IM/History.pm8
-rw-r--r--img/lib/IM/Http.pm4
-rw-r--r--img/lib/IM/Imap.pm12
-rw-r--r--img/lib/IM/Iso2022jp.pm4
-rw-r--r--img/lib/IM/Japanese.pm4
-rw-r--r--img/lib/IM/LocalMbox.pm6
-rw-r--r--img/lib/IM/Log.pm4
-rw-r--r--img/lib/IM/MD5.pm4
-rw-r--r--img/lib/IM/Message.pm4
-rw-r--r--img/lib/IM/MsgStore.pm6
-rw-r--r--img/lib/IM/Nntp.pm14
-rw-r--r--img/lib/IM/Pop.pm9
-rw-r--r--img/lib/IM/Recipient.pm4
-rw-r--r--img/lib/IM/Scan.pm6
-rw-r--r--img/lib/IM/Smtp.pm4
-rw-r--r--img/lib/IM/Ssh.pm4
-rw-r--r--img/lib/IM/Stdio.pm4
-rw-r--r--img/lib/IM/TcpTransaction.pm4
-rw-r--r--img/lib/IM/Util.pm4
27 files changed, 88 insertions, 78 deletions
diff --git a/img/lib/IM/Address.pm b/img/lib/IM/Address.pm
index b6e309e4..2cae7ec2 100644
--- a/img/lib/IM/Address.pm
+++ b/img/lib/IM/Address.pm
@@ -5,10 +5,10 @@
###
### Author: Internet Message Group <img@mew.org>
### Created: Apr 23, 1997
-### Revised: Jul 4, 2004
+### Revised: Apr 23, 2007
###
-my $PM_VERSION = "IM::Address.pm version 20031028(IM146)";
+my $PM_VERSION = "IM::Address.pm version 20100215(IM150)";
package IM::Address;
require 5.003;
diff --git a/img/lib/IM/Alias.pm b/img/lib/IM/Alias.pm
index 6b04634a..6c4175c9 100644
--- a/img/lib/IM/Alias.pm
+++ b/img/lib/IM/Alias.pm
@@ -5,10 +5,10 @@
###
### Author: Internet Message Group <img@mew.org>
### Created: Apr 23, 1997
-### Revised: Jul 4, 2004
+### Revised: Apr 23, 2007
###
-my $PM_VERSION = "IM::Alias.pm version 20031028(IM146)";
+my $PM_VERSION = "IM::Alias.pm version 20100215(IM150)";
package IM::Alias;
require 5.003;
diff --git a/img/lib/IM/Config.pm.in b/img/lib/IM/Config.pm.in
index 10f55106..13728bf7 100644
--- a/img/lib/IM/Config.pm.in
+++ b/img/lib/IM/Config.pm.in
@@ -5,10 +5,10 @@
###
### Author: Internet Message Group <img@mew.org>
### Created: Apr 23, 1997
-### Revised: Jul 4, 2004
+### Revised: Apr 23, 2007
###
-my $PM_VERSION = "IM::Config.pm version 20031028(IM146)";
+my $PM_VERSION = "IM::Config.pm version 20100215(IM150)";
package IM::Config;
require 5.003;
@@ -43,7 +43,7 @@ use vars qw(@ISA @EXPORT);
usepwagent pwagentport pwagent_tmp_dir pwagent_tmp_path usepwfiles pwfiles
expand_path use_xdispatcher usetouchfile touchfile
namazuv2 namazu_dir namazu_path namazu_lock_dir namazu_lock_path
- mknmz_include_file mknmz_ignore_folders_regex
+ mknmz_options mknmz_include_file mknmz_ignore_folders_regex
pop_timeout imap_timeout nntp_timeout dns_timeout
connect_timeout command_timeout rcv_buf_siz
db_type file_attr ssh_path);
@@ -155,6 +155,7 @@ BEGIN {
'namazuv2;b;;NamazuV2' => 'Use Namazu Version 2 (1.9 or late)',
'namazudir;s;;NamazuDir' => 'A directory to contain Namazu indexes',
'namazulockdir;s;;NamazuLockDir' => 'Lock directory for Namazu',
+ 'mknmzoptions;s;;MknmzOptions' => 'Options for mknmz',
'mknmzincludefile;s;;MknmzIncludeFile' => 'A file for mknmz -I',
'mknmzignorefoldersregex;s;;MknmzIgnoreFoldersRegex' => 'Folders regex ignored by immknmz',
);
@@ -998,6 +999,10 @@ sub namazu_path() {
return expand_home(namazu_dir());
}
+sub mknmz_options() {
+ return $MknmzOptions;
+}
+
sub mknmz_include_file() {
return &expand_path($MknmzIncludeFile);
}
@@ -1124,9 +1129,10 @@ NntpHistory=newshist # to save last state (relative to ~/.im/)
# impwagent
PwAgentTmpDir=pwagtmp # temporary directory (relative to ~/.im/)
# namazu
-NamazuV2=off # use Namazu version 2 (1.9.x or late)
+NamazuV2=yes # use Namazu version 2 (1.9.x or late)
NamazuDir=Namazu # relative to ~/
NamazuLockDir=nmzlock # lock directory (relative to ~/.im/)
+#MknmzOptions=--decode-base64 # options for mknmz
MknmzIncludeFile=~/Namazu/mknmz-inc.pl # mknmz -I <file>
MknmzIgnoreFoldersRegex=\+(attach|draft|trash|queue|postq|schedule)
__END__
@@ -1161,7 +1167,7 @@ popaccount pophistoryfile imapaccount httpproxy noproxy
usepwagent pwagentport pwagent_tmp_dir pwagent_tmp_path usepwfiles pwfiles
expand_path use_xdispatcher usetouchfile touchfile
namazuv2 namazu_dir namazu_path namazu_lock_dir namazu_lock_path
-mknmz_include_file mknmz_ignore_folders_regex
+mknmz_options mknmz_include_file mknmz_ignore_folders_regex
pop_timeout imap_timeout nntp_timeout dns_timeout
connect_timeout command_timeout rcv_buf_siz
db_type file_attr ssh_path
diff --git a/img/lib/IM/EncDec.pm b/img/lib/IM/EncDec.pm
index ac4560a6..5126b9b3 100644
--- a/img/lib/IM/EncDec.pm
+++ b/img/lib/IM/EncDec.pm
@@ -5,10 +5,10 @@
###
### Author: Internet Message Group <img@mew.org>
### Created: Apr 23, 1997
-### Revised: Jul 4, 2004
+### Revised: Apr 23, 2007
###
-my $PM_VERSION = "IM::EncDec.pm version 20031028(IM146)";
+my $PM_VERSION = "IM::EncDec.pm version 20100215(IM150)";
package IM::EncDec;
require 5.003;
@@ -99,6 +99,10 @@ sub mime_encode_string($$$) {
$point ++;
}
$nstr = $nstr . "\n";
+ if ($s eq chr(27)) {
+ # IN
+ $in = 1;
+ }
}
}
if ($in == 1) {
@@ -137,7 +141,7 @@ sub mime_decode_string($) {
sub mime_decode($$$) {
my($cs, $bq, $str) = @_;
- my $ret = &{$$mime_decode_switch{uc($3)}}($4);
+ my $ret = &{$$mime_decode_switch{uc($bq)}}($str);
if ($cs =~ /iso-8859-([2-9])/i) {
$ret = iso_8859_to_ctext($ret, $1);
} elsif ($cs =~ /koi8-r/i) {
@@ -152,7 +156,8 @@ sub mime_decode($$$) {
$ret = euc_jp_to_ctext($ret);
} elsif ($cs =~ /euc-kr/i) {
$ret = euc_kr_to_ctext($ret);
- } elsif ($cs =~ /shift_jis/i) {
+ } elsif ($cs =~ /shift_jis/i ||
+ $cs =~ /ms_kanji/i || $cs =~ /windows-31j/i) {
$ret = shift_jis_to_ctext($ret);
} elsif ($cs =~ /big5/i || $cs =~ /cn-big5/i) {
$ret = big5_to_ctext($ret);
diff --git a/img/lib/IM/File.pm b/img/lib/IM/File.pm
index c7bfd00d..4cd017c7 100644
--- a/img/lib/IM/File.pm
+++ b/img/lib/IM/File.pm
@@ -5,10 +5,10 @@
###
### Author: Internet Message Group <img@mew.org>
### Created: Jul 7, 1997
-### Revised: Jul 4, 2004
+### Revised: Apr 23, 2007
###
-my $PM_VERSION = "IM::File.pm version 20031028(IM146)";
+my $PM_VERSION = "IM::File.pm version 20100215(IM150)";
package IM::File;
require 5.003;
diff --git a/img/lib/IM/Folder.pm b/img/lib/IM/Folder.pm
index b55a220b..b57ca49d 100644
--- a/img/lib/IM/Folder.pm
+++ b/img/lib/IM/Folder.pm
@@ -5,10 +5,10 @@
###
### Author: Internet Message Group <img@mew.org>
### Created: Apr 23, 1997
-### Revised: Jul 4, 2004
+### Revised: Apr 23, 2007
###
-my $PM_VERSION = "IM::Folder.pm version 20031028(IM146)";
+my $PM_VERSION = "IM::Folder.pm version 20100215(IM150)";
package IM::Folder;
require 5.003;
diff --git a/img/lib/IM/GetPass.pm b/img/lib/IM/GetPass.pm
index 7f2df60c..3f77eda8 100644
--- a/img/lib/IM/GetPass.pm
+++ b/img/lib/IM/GetPass.pm
@@ -5,10 +5,10 @@
###
### Author: Internet Message Group <img@mew.org>
### Created: Apr 30, 1997
-### Revised: Jul 4, 2004
+### Revised: Apr 23, 2007
###
-my $PM_VERSION = "IM::GetPass.pm version 20031028(IM146)";
+my $PM_VERSION = "IM::GetPass.pm version 20100215(IM150)";
package IM::GetPass;
require 5.003;
@@ -135,7 +135,7 @@ sub connect_agent($) {
my $realuser = im_getlogin();
unless ($realuser) {
- im_warn("pwagent: can not get login name\n") unless ($surpresserror);
+ im_warn("pwagent: cannot get login name\n") unless ($surpresserror);
return '';
}
my $dir = &pwagent_tmp_path() . "-$realuser";
@@ -155,7 +155,7 @@ sub connect_agent($) {
my $name = "$dir/pw";
unless (-S $name) {
- im_warn("pwagent: can not access to socket: $name\n")
+ im_warn("pwagent: cannot access to socket: $name\n")
unless ($surpresserror);
return '';
}
diff --git a/img/lib/IM/Grep.pm b/img/lib/IM/Grep.pm
index 072f80b1..ae217b22 100644
--- a/img/lib/IM/Grep.pm
+++ b/img/lib/IM/Grep.pm
@@ -5,10 +5,10 @@
###
### Author: Internet Message Group <img@mew.org>
### Created: Nov 03, 1997
-### Revised: Jul 4, 2004
+### Revised: Apr 23, 2007
###
-my $PM_VERSION = "IM::Grep.pm version 20031028(IM146)";
+my $PM_VERSION = "IM::Grep.pm version 20100215(IM150)";
package IM::Grep;
require 5.003;
diff --git a/img/lib/IM/History.pm b/img/lib/IM/History.pm
index 84586902..2c98175a 100644
--- a/img/lib/IM/History.pm
+++ b/img/lib/IM/History.pm
@@ -5,10 +5,10 @@
###
### Author: Internet Message Group <img@mew.org>
### Created: Jul 6, 1997
-### Revised: Jul 4, 2004
+### Revised: Apr 23, 2007
###
-my $PM_VERSION = "IM::History.pm version 20031028(IM146)";
+my $PM_VERSION = "IM::History.pm version 20100215(IM150)";
package IM::History;
require 5.003;
@@ -88,13 +88,13 @@ sub history_open($) {
}
unless ($db) {
- im_err "history: can not access $dbfile ($!)\n";
+ im_err "history: cannot access $dbfile ($!)\n";
return -1;
}
if ($DBtype eq 'DB') {
$fd = $db->fd;
if ($fd < 0) {
- im_err "history: can not access $dbfile (fd = $fd)\n";
+ im_err "history: cannot access $dbfile (fd = $fd)\n";
return -1;
}
}
diff --git a/img/lib/IM/Http.pm b/img/lib/IM/Http.pm
index af619bee..61ba52dd 100644
--- a/img/lib/IM/Http.pm
+++ b/img/lib/IM/Http.pm
@@ -5,10 +5,10 @@
###
### Author: Internet Message Group <img@mew.org>
### Created: Apr 23, 1997
-### Revised: Jul 4, 2004
+### Revised: Apr 23, 2007
###
-my $PM_VERSION = "IM::Http.pm version 20031028(IM146)";
+my $PM_VERSION = "IM::Http.pm version 20100215(IM150)";
package IM::Http;
require 5.003;
diff --git a/img/lib/IM/Imap.pm b/img/lib/IM/Imap.pm
index 5ceedfce..1e236833 100644
--- a/img/lib/IM/Imap.pm
+++ b/img/lib/IM/Imap.pm
@@ -5,10 +5,10 @@
###
### Author: Internet Message Group <img@mew.org>
### Created: Apr 23, 1997
-### Revised: Jul 4, 2004
+### Revised: Apr 23, 2007
###
-my $PM_VERSION = "IM::Imap.pm version 20031028(IM146)";
+my $PM_VERSION = "IM::Imap.pm version 20100215(IM150)";
package IM::Imap;
require 5.003;
@@ -192,7 +192,7 @@ sub imap_get($$) {
im_notice("getting message $num.\n");
my $resp = &send_command($HANDLE, "im$seq UID FETCH $num RFC822", '');
my $failed = 0;
- if ($resp =~ /^\* \d+ FETCH \((UID $num )?RFC822 \{(\d+)\}/i) {
+ if ($resp =~ /^\* \d+ FETCH \((.*)RFC822 \{(\d+)\}/i) {
my $size = $2;
alarm(imap_timeout()) unless win95p();
while (<$HANDLE>) {
@@ -234,7 +234,7 @@ sub imap_head($$) {
my(%head);
undef %head;
if ($resp =~
- /^\* \d+ FETCH \((UID $num )?RFC822.SIZE (\d+) RFC822.HEADER \{(\d+)\}/i) {
+ /^\* \d+ FETCH \((.*)RFC822\.SIZE (\d+) RFC822\.HEADER \{(\d+)\}/i) {
my($size, $len) = ($2, $3);
my $field = '';
alarm(imap_timeout()) unless win95p();
@@ -290,7 +290,7 @@ sub imap_from($$) {
# "im$seq UID FETCH $num RFC822.HEADER.LINES (From Date Subject)", '');
my $resp = &send_command($HANDLE,
"im$seq UID FETCH $num RFC822.HEADER.LINES (From)", '');
- if ($resp =~ /^\* \d+ FETCH \((UID $num )?RFC822.* \{(\d+)\}/i) {
+ if ($resp =~ /^\* \d+ FETCH \((.*)RFC822.* \{(\d+)\}/i) {
my $size = $2;
my $found = 0;
my $f;
@@ -783,7 +783,7 @@ sub imap_scan_folder($$@) {
my $resp = &send_command($HANDLE,
"im$seq UID FETCH $msgset (RFC822.SIZE RFC822.HEADER)", '');
while ($resp =~
- /^\* \d+ FETCH \((UID (\d+) )?RFC822.SIZE (\d+) RFC822\.HEADER \{(\d+)\}/i) {
+ /^\* \d+ FETCH \([^0-9]*(UID (\d+) )?[^0-9]*RFC822\.SIZE (\d+) RFC822\.HEADER \{(\d+)\}/i) {
($uid, $size, $len) = ($2, $3, $4);
my @hdr;
alarm(imap_timeout()) unless win95p();
diff --git a/img/lib/IM/Iso2022jp.pm b/img/lib/IM/Iso2022jp.pm
index d5583302..4a2a97df 100644
--- a/img/lib/IM/Iso2022jp.pm
+++ b/img/lib/IM/Iso2022jp.pm
@@ -5,10 +5,10 @@
###
### Author: Internet Message Group <img@mew.org>
### Created: Apr 23, 1997
-### Revised: Jul 4, 2004
+### Revised: Apr 23, 2007
###
-my $PM_VERSION = "IM::Iso2022jp.pm version 20031028(IM146)";
+my $PM_VERSION = "IM::Iso2022jp.pm version 20100215(IM150)";
package IM::Iso2022jp;
require 5.003;
diff --git a/img/lib/IM/Japanese.pm b/img/lib/IM/Japanese.pm
index 67cd4ab8..d150c30b 100644
--- a/img/lib/IM/Japanese.pm
+++ b/img/lib/IM/Japanese.pm
@@ -5,10 +5,10 @@
###
### Author: Internet Message Group <img@mew.org>
### Created: Apr 23, 1997
-### Revised: Jul 4, 2004
+### Revised: Apr 23, 2007
###
-my $PM_VERSION = "IM::Japanese.pm version 20031028(IM146)";
+my $PM_VERSION = "IM::Japanese.pm version 20100215(IM150)";
package IM::Japanese;
require 5.003;
diff --git a/img/lib/IM/LocalMbox.pm b/img/lib/IM/LocalMbox.pm
index 598e8d72..d5674b41 100644
--- a/img/lib/IM/LocalMbox.pm
+++ b/img/lib/IM/LocalMbox.pm
@@ -5,10 +5,10 @@
###
### Author: Internet Message Group <img@mew.org>
### Created: Apr 23, 1997
-### Revised: Jul 4, 2004
+### Revised: Apr 23, 2007
###
-my $PM_VERSION = "IM::LocalMbox.pm version 20031028(IM146)";
+my $PM_VERSION = "IM::LocalMbox.pm version 20100215(IM150)";
package IM::LocalMbox;
require 5.003;
@@ -548,7 +548,7 @@ sub local_empty($) {
my $mbox = shift;
unless (truncate($mbox, 0)) {
unless (im_open(\*MBOX, ">$mbox")) {
- im_warn("mailbox can not be zeroed.\n");
+ im_warn("mailbox cannot be zeroed.\n");
return;
}
close(MBOX);
diff --git a/img/lib/IM/Log.pm b/img/lib/IM/Log.pm
index 5c3b6ffa..f3453189 100644
--- a/img/lib/IM/Log.pm
+++ b/img/lib/IM/Log.pm
@@ -5,10 +5,10 @@
###
### Author: Internet Message Group <img@mew.org>
### Created: Apr 23, 1997
-### Revised: Jul 4, 2004
+### Revised: Apr 23, 2007
###
-my $PM_VERSION = "IM::Log.pm version 20031028(IM146)";
+my $PM_VERSION = "IM::Log.pm version 20100215(IM150)";
package IM::Log;
require 5.003;
diff --git a/img/lib/IM/MD5.pm b/img/lib/IM/MD5.pm
index 5817992f..b3f5c96e 100644
--- a/img/lib/IM/MD5.pm
+++ b/img/lib/IM/MD5.pm
@@ -5,10 +5,10 @@
###
### Author: Internet Message Group <img@mew.org>
### Created: Apr 23, 1997
-### Revised: Jul 4, 2004
+### Revised: Apr 23, 2007
###
-my $PM_VERSION = "IM::MD5.pm version 20031028(IM146)";
+my $PM_VERSION = "IM::MD5.pm version 20100215(IM150)";
package IM::MD5;
require 5.003;
diff --git a/img/lib/IM/Message.pm b/img/lib/IM/Message.pm
index 38eb2d10..7a5da888 100644
--- a/img/lib/IM/Message.pm
+++ b/img/lib/IM/Message.pm
@@ -5,10 +5,10 @@
###
### Author: Internet Message Group <img@mew.org>
### Created: Apr 23, 1997
-### Revised: Jul 4, 2004
+### Revised: Apr 23, 2007
###
-my $PM_VERSION = "IM::Message.pm version 20031028(IM146)";
+my $PM_VERSION = "IM::Message.pm version 20100215(IM150)";
package IM::Message;
require 5.003;
diff --git a/img/lib/IM/MsgStore.pm b/img/lib/IM/MsgStore.pm
index 49aa728e..9af02a80 100644
--- a/img/lib/IM/MsgStore.pm
+++ b/img/lib/IM/MsgStore.pm
@@ -5,10 +5,10 @@
###
### Author: Internet Message Group <img@mew.org>
### Created: Apr 23, 1997
-### Revised: Jul 4, 2004
+### Revised: Apr 23, 2007
###
-my $PM_VERSION = "IM::MsgStore.pm version 20031028(IM146)";
+my $PM_VERSION = "IM::MsgStore.pm version 20100215(IM150)";
package IM::MsgStore;
require 5.003;
@@ -183,7 +183,7 @@ sub store_message($$;$) {
}
return 0;
} else {
- im_err("message can not be saved to $dst.\n");
+ im_err("message cannot be saved to $dst.\n");
return -1;
}
}
diff --git a/img/lib/IM/Nntp.pm b/img/lib/IM/Nntp.pm
index 94a82cc9..fec2356b 100644
--- a/img/lib/IM/Nntp.pm
+++ b/img/lib/IM/Nntp.pm
@@ -5,10 +5,10 @@
###
### Author: Internet Message Group <img@mew.org>
### Created: Apr 23, 1997
-### Revised: Jul 4, 2004
+### Revised: Apr 23, 2007
###
-my $PM_VERSION = "IM::Nntp.pm version 20031028(IM146)";
+my $PM_VERSION = "IM::Nntp.pm version 20100215(IM150)";
package IM::Nntp;
require 5.003;
@@ -455,13 +455,13 @@ sub nntp_get_message($$) {
im_notice("accessing to $group on $srvs.\n");
do {
if (($rc = nntp_open(\@servers, 0)) < 0) {
- return(-1, "can not connect $srvs.\n");
+ return(-1, "cannot connect $srvs.\n");
}
if (($group ne '') && ($rc = nntp_command("GROUP $group")) < 0) {
- return(-1, "can not access $group.\n");
+ return(-1, "cannot access $group.\n");
}
} while (@servers > 0 && $rc > 0);
- return(-1, "can not access $group on $srvs.\n") if ($rc);
+ return(-1, "cannot access $group on $srvs.\n") if ($rc);
($rc, $art) = nntp_article($msg);
nntp_close();
return(-1, "no message $msg in -$group.\n") if ($rc);
@@ -555,7 +555,7 @@ sub nntp_get_msg($$$$) {
$msgs = &nntp_xover($art_start, $art_end);
$msgs = &nntp_head($art_start, $art_end) if ($msgs < 0);
if ($msgs < 0) {
- im_warn("can not get article poster information.\n");
+ im_warn("cannot get article poster information.\n");
return -1;
}
im_info("$msgs article(s) in $group at $servers.\n");
@@ -572,7 +572,7 @@ sub nntp_get_msg($$$$) {
im_info("Getting new messages from $group at $servers into $dst...\n");
($msgs, $last) = &nntp_articles($art_start, $art_end, $dst, $limit);
if ($msgs < 0) {
- im_warn("can not get articles.\n");
+ im_warn("cannot get articles.\n");
return -1;
}
im_info("$msgs message(s).\n");
diff --git a/img/lib/IM/Pop.pm b/img/lib/IM/Pop.pm
index c321f1ac..db78385a 100644
--- a/img/lib/IM/Pop.pm
+++ b/img/lib/IM/Pop.pm
@@ -5,10 +5,10 @@
###
### Author: Internet Message Group <img@mew.org>
### Created: Apr 23, 1997
-### Revised: Jul 4, 2004
+### Revised: Apr 23, 2007
###
-my $PM_VERSION = "IM::Pop.pm version 20031028(IM146)";
+my $PM_VERSION = "IM::Pop.pm version 20100215(IM150)";
package IM::Pop;
require 5.003;
@@ -98,7 +98,7 @@ sub pop_open($$$$) {
return -1;
}
} elsif ($auth eq 'APOP') {
- if ($resp !~ /^\+.*(<.+>)/i) {
+ if ($resp !~ /^\+.*(<[=!-;?-~]+\@[=!-;?-~]+>)/) {
im_err("APOP is not supported by the server.\n");
return -1;
}
@@ -164,8 +164,6 @@ sub pop_retr($$$) {
}
return -1 if (store_message(\@Message, $dst, $noscan) < 0);
- &exec_getsbrfile($dst);
-
return 0;
}
@@ -512,6 +510,7 @@ sub pop_inc($$$$$$$$) {
flush('STDOUT');
if ($got > 0) {
im_info("$got message(s).\n");
+ &exec_getsbrfile($dst);
} else {
im_info("no new message at $host.\n");
}
diff --git a/img/lib/IM/Recipient.pm b/img/lib/IM/Recipient.pm
index 2ad56275..6bcf235b 100644
--- a/img/lib/IM/Recipient.pm
+++ b/img/lib/IM/Recipient.pm
@@ -5,10 +5,10 @@
###
### Author: Internet Message Group <img@mew.org>
### Created: Apr 27, 1997
-### Revised: Jul 4, 2004
+### Revised: Apr 23, 2007
###
-my $PM_VERSION = "IM::Recipient.pm version 20031028(IM146)";
+my $PM_VERSION = "IM::Recipient.pm version 20100215(IM150)";
package IM::Recipient;
require 5.003;
diff --git a/img/lib/IM/Scan.pm b/img/lib/IM/Scan.pm
index 5cc2ca2e..c3891678 100644
--- a/img/lib/IM/Scan.pm
+++ b/img/lib/IM/Scan.pm
@@ -5,10 +5,10 @@
###
### Author: Internet Message Group <img@mew.org>
### Created: Apr 23, 1997
-### Revised: Jul 4, 2004
+### Revised: Apr 23, 2007
###
-my $PM_VERSION = "IM::Scan.pm version 20031028(IM146)";
+my $PM_VERSION = "IM::Scan.pm version 20100215(IM150)";
package IM::Scan;
require 5.003;
@@ -907,7 +907,7 @@ header-type as you want. Default valid header-types are
or raw Newsgroups: is displayed in 'To:xxx' or 'Ng:xxx'
format, respectively. Otherwise, friendly From: field is
displayed.
- %P Similar to %A, but diplay raw address of mail sender
+ %P Similar to %A, but display raw address of mail sender
instead of friendly From: field, just like mh-e.
%i indent to display thread
%s MIME decoded Subject: field
diff --git a/img/lib/IM/Smtp.pm b/img/lib/IM/Smtp.pm
index 0478e9a5..8fda7ca8 100644
--- a/img/lib/IM/Smtp.pm
+++ b/img/lib/IM/Smtp.pm
@@ -5,10 +5,10 @@
###
### Author: Internet Message Group <img@mew.org>
### Created: Apr 23, 1997
-### Revised: Jul 4, 2004
+### Revised: Apr 23, 2007
###
-my $PM_VERSION = "IM::Smtp.pm version 20031028(IM146)";
+my $PM_VERSION = "IM::Smtp.pm version 20100215(IM150)";
package IM::Smtp;
require 5.003;
diff --git a/img/lib/IM/Ssh.pm b/img/lib/IM/Ssh.pm
index f430e266..f727b283 100644
--- a/img/lib/IM/Ssh.pm
+++ b/img/lib/IM/Ssh.pm
@@ -6,10 +6,10 @@
### Author: Masatoshi Tsuchiya <tsuchiya@pine.kuee.kyoto-u.ac.jp>
### Internet Message Group <img@mew.org>
### Created: Oct 05, 1999
-### Revised: Jul 4, 2004
+### Revised: Apr 23, 2007
###
-my $PM_VERSION = "IM::Ssh.pm version 20031028(IM146)";
+my $PM_VERSION = "IM::Ssh.pm version 20100215(IM150)";
package IM::Ssh;
require 5.003;
diff --git a/img/lib/IM/Stdio.pm b/img/lib/IM/Stdio.pm
index 05dab79c..a6034221 100644
--- a/img/lib/IM/Stdio.pm
+++ b/img/lib/IM/Stdio.pm
@@ -5,10 +5,10 @@
###
### Author: Internet Message Group <img@mew.org>
### Created: May 7, 1997
-### Revised: Jul 4, 2004
+### Revised: Apr 23, 2007
###
-my $PM_VERSION = "IM::Stdio.pm version 20031028(IM146)";
+my $PM_VERSION = "IM::Stdio.pm version 20100215(IM150)";
package IM::Stdio;
require 5.003;
diff --git a/img/lib/IM/TcpTransaction.pm b/img/lib/IM/TcpTransaction.pm
index 06f16178..e424810e 100644
--- a/img/lib/IM/TcpTransaction.pm
+++ b/img/lib/IM/TcpTransaction.pm
@@ -5,10 +5,10 @@
###
### Author: Internet Message Group <img@mew.org>
### Created: Apr 23, 1997
-### Revised: Jul 4, 2004
+### Revised: Apr 23, 2007
###
-my $PM_VERSION = "IM::TcpTransaction.pm version 20031028(IM146)";
+my $PM_VERSION = "IM::TcpTransaction.pm version 20100215(IM150)";
package IM::TcpTransaction;
require 5.003;
diff --git a/img/lib/IM/Util.pm b/img/lib/IM/Util.pm
index 03d9521e..772bf457 100644
--- a/img/lib/IM/Util.pm
+++ b/img/lib/IM/Util.pm
@@ -5,10 +5,10 @@
###
### Author: Internet Message Group <img@mew.org>
### Created: Apr 23, 1997
-### Revised: Jul 4, 2004
+### Revised: Apr 23, 2007
###
-my $PM_VERSION = "IM::Util.pm version 20031028(IM146)";
+my $PM_VERSION = "IM::Util.pm version 20100215(IM150)";
package IM::Util;
require 5.003;
generated by cgit v1.2.1 (git 2.18.0) at 2026-09-10 19:31:28 +0000