Attachment "490151.diff" to
ticket [490151ffff]
added by
andreas_kupries
2001-12-12 00:57:39.
? 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 <[email protected]>
+
+ * pop3: Bugfix for item #490151.
+
2001-12-10 Andreas Kupries <[email protected]>
* 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 <[email protected]>
+
+ * 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 <[email protected]>
* 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]
}
}
