[Mew-dist 2342] Re: imget の返り値

[Motonori Nakamura]

>>>>> On Thu, 25 Sep 1997 20:16:36 +0900 (JST), YOKOTA Kazuya(横田和也) <yokota.k at example.com> said:

k> 	特に機能的に問題がある訳ではないのですが、imget すると新規メー
k> 	ルがあってもなくても、常に $msgs=0、exit $EXIT_SUCCESS; で
k> 	返るようなのですが、何かインストール等を間違えているのでしょう
k> 	か?

これでどうでしょう?
ところで、メールがあったときに ERROR ってのもなんか変な気がしますね。

- motonori

*** IM.in/Pop.pm.in.orig	Wed Sep 17 14:31:56 1997
--- IM.in/Pop.pm.in	Thu Oct  2 21:31:21 1997
***************
*** 528,539 ****
  	}
      }
  
      im_notice("accessing POP/$auth:$user\@$host for $how\n");
      my $rc = &pop_open($auth, $host, $user, $pass);
      unless ($rc) {
  	&savepass('pop', $auth, $host, $user, $pass)
  	    if ($auth ne 'RPOP' && $interact && $pass ne '' && &usepwagent());
! 	if (&pop_process($how, $host, $dst) < 0) {
  	    im_warn("POP processing error.\n");
  	}
  	&pop_close();
--- 528,541 ----
  	}
      }
  
+     my $msgs = 0;
      im_notice("accessing POP/$auth:$user\@$host for $how\n");
      my $rc = &pop_open($auth, $host, $user, $pass);
      unless ($rc) {
  	&savepass('pop', $auth, $host, $user, $pass)
  	    if ($auth ne 'RPOP' && $interact && $pass ne '' && &usepwagent());
! 	$msgs = &pop_process($how, $host, $dst);
! 	if ($msgs < 0) {
  	    im_warn("POP processing error.\n");
  	}
  	&pop_close();
***************
*** 542,547 ****
--- 544,550 ----
  	&savepass('pop', $auth, $host, $user, '')
  	    if ($auth ne 'RPOP' && $agtfound && &usepwagent());
      }
+     return $msgs;
  }
  
  # POP folder (--src=pop[:user][/auth][@server])