? modules/fileinput
? modules/ftp/example
? modules/ftpd/examples
Index: ChangeLog
===================================================================
RCS file: /cvsroot/tcllib/tcllib/ChangeLog,v
retrieving revision 1.92
diff -u -r1.92 ChangeLog
--- ChangeLog	2001/12/11 05:54:21	1.92
+++ ChangeLog	2001/12/11 17:55:53
@@ -1,3 +1,7 @@
+2001-12-11  Andreas Kupries  <andreas_kupries@users.sourceforge.net>
+
+	* pop3: Bugfix for item #490151.
+
 2001-12-10  Andreas Kupries  <andreas_kupries@users.sourceforge.net>
 
 	* textutil: Update from William, 'evalcmd' callback.
Index: modules/pop3/ChangeLog
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/pop3/ChangeLog,v
retrieving revision 1.9
diff -u -r1.9 ChangeLog
--- modules/pop3/ChangeLog	2001/10/17 17:27:26	1.9
+++ modules/pop3/ChangeLog	2001/12/11 17:55:53
@@ -1,3 +1,9 @@
+2001-12-11  Andreas Kupries  <andreas_kupries@users.sourceforge.net>
+
+	* pop3.tcl (retrieve): Forgot several 'RETR $index'
+	  commands. Fixed now. This is tcllib bug item #490151 reported by
+	  an unknown person.
+
 2001-10-16  Andreas Kupries  <andreas_kupries@users.sourceforge.net>
 
 	* pop3.n:
Index: modules/pop3/pop3.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/pop3/pop3.tcl,v
retrieving revision 1.15
diff -u -r1.15 pop3.tcl
--- modules/pop3/pop3.tcl	2001/10/17 17:27:26	1.15
+++ modules/pop3/pop3.tcl	2001/12/11 17:55:53
@@ -380,6 +380,8 @@
 		    set cstate(retr_mode) slow
 		    set state($chan) [array get cstate]
 
+		    ::pop3::send $chan "RETR $index"
+
 		    # Retrieve in slow motion.
 		    set msgBuffer [RetrSlow $chan]
 		} else {
@@ -394,6 +396,7 @@
 	    slow {
 		# Retrieve in slow motion.
 
+		::pop3::send $chan "RETR $index"
 		set msgBuffer [RetrSlow $chan]
 	    }
 	}
