diff options
| author | fukachan <fukachan> | 2003-03-23 15:06:22 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2003-03-23 15:06:22 +0000 |
| commit | bf112251f43696e90733e499e7401bbeecd31d3d (patch) | |
| tree | 6a0177f7570450cfdf3b03500b82537da90bebeb /img/lib/IM/Nntp.pm | |
| parent | 4d22e01c81b228d4103d0407513e02cb2d155663 (diff) | |
| download | fml8-im-144.tar.gz fml8-im-144.tar.bz2 fml8-im-144.zip | |
import im-144im-144
Diffstat (limited to 'img/lib/IM/Nntp.pm')
| -rw-r--r-- | img/lib/IM/Nntp.pm | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/img/lib/IM/Nntp.pm b/img/lib/IM/Nntp.pm index 9751d9c5..23b569ac 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: Dec 7, 2002 +### Revised: Mar 22, 2003 ### -my $PM_VERSION = "IM::Nntp.pm version 20021207(IM142)"; +my $PM_VERSION = "IM::Nntp.pm version 20030322(IM144)"; package IM::Nntp; require 5.003; @@ -97,7 +97,7 @@ sub nntp_close() { # group: news group to be posted in # part: part number to be sent in partial message mode # total: total number of partial messages -# authuser: User name for NNTP authentication +# authuser: User name for NNTP authentication # return value: # 0: success # 1: recoverable error (should be retried) @@ -558,13 +558,13 @@ sub nntp_get_msg($$$$) { if ($how eq 'from') { if ($msgs > 0) { - $msgs = &nntp_xover ($art_start, $art_end); - $msgs = &nntp_head ($art_start, $art_end) if ($msgs < 0); + $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"); return -1; } - im_info("$msgs article(s) in $group at $servers.\n"); + im_info("$msgs article(s) in $group at $servers.\n"); } else { im_info("no news in $group at $servers.\n"); } @@ -575,8 +575,7 @@ sub nntp_get_msg($$$$) { if ($how eq 'get') { my($last); if ($msgs > 0) { - im_info("Getting new messages from $group at $servers " - . "into $dst....\n"); + 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"); |