aamine

* lib/net/protocol.rb: Command#critical_ok
* lib/net/smtp.rb: clear critical flag before go to SMTP


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@1016 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

ChangeLog

@@ -1,3 +1,9 @@
+Thu Oct 26 02:42:50 2000  Minero Aoki  <aamine@dp.u-netsurf.ne.jp>
+
+	* lib/net/protocol.rb: Command#critical_ok
+
+	* lib/net/smtp.rb: clear critical flag before go to SMTP
+
 Wed Oct 25 12:30:19 2000  Yukihiro Matsumoto  <matz@ruby-lang.org>
 
 	* array.c (rb_ary_concat): replacing array might be the receiver

lib/net/protocol.rb

@@ -402,9 +402,9 @@ module Net
     def critical
       return if @critical
       @critical = true
-      r = yield
+      ret = yield
       @critical = false
-      r
+      ret
     end
 
     def critical?
@@ -421,6 +421,11 @@ module Net
       @critical = false
     end
 
+    def critical_ok
+      @critical = false
+    end
+    public :critical_ok
+
   end
 
 

lib/net/smtp.rb

@@ -146,6 +146,7 @@ module Net
       rescue ProtocolError
         if @esmtp then
           @esmtp = false
+          @command.critical_ok
           retry
         else
           raise