#201 Patch to ignore directories in Mail Boxes

[Gary L. Howell]

The simple mailbox database provided with tcllib pop3d fails if a subdirectory is in a mailbox directory. This is the case when a mailbox database for application tests is placed under version control like CVS.

A simple change allows pop3d::dbox to ignore directories in the mailbox path.

For file pop3d_dbox.tcl with id:

RCS: @(#) $Id: pop3d_dbox.tcl,v 1.12 2005/09/28 04:51:23 andreas_kupries Exp $

modify line #299 from:

set state($dir) [lsort [glob -nocomplain [file join $dir *]]]

to:

set state($dir) [lsort [glob -nocomplain -type { f r w } [file join $dir *]]]

[Andreas Kupries]

Logged In: YES
user_id=75003
Originator: NO

Check ... Is the -type feature supported by Tcl 8.3 ? The 'file join' can be replaced '-directory $dir *' as well. Also a feature not likely present in 8.3. Work on that.