Searched refs:uidl (Results 1 – 1 of 1) sorted by relevance
298 sub uidl { subroutine301 my $uidl;306 $uidl = ($me->message =~ /\d+\s+([\041-\176]+)/)[0];311 $uidl = {};314 $uidl->{$msg} = $uid;317 return $uidl;