diff --git a/lib/net/imap.rb b/lib/net/imap.rb
index a00f304c..ecda1075 100644
--- a/lib/net/imap.rb
+++ b/lib/net/imap.rb
@@ -720,8 +720,18 @@ class << self
       alias default_imap_port default_port
       alias default_imaps_port default_tls_port
       alias default_ssl_port default_tls_port
+
+      # Set to true to silence deprecation warnings, e.g. from #responses.
+      # Defaults to false.
+      #
+      # These warnings are concerning thread-safety issues, so it is recommended
+      # to update other code and leave this value.  Deprecated usage will
+      # become errors regardless of this setting, so use this only temporarily.
+      attr_accessor :silence_thread_safety_deprecation_warnings
     end
 
+    self.silence_thread_safety_deprecation_warnings = false
+
     def client_thread # :nodoc:
       warn "Net::IMAP#client_thread is deprecated and will be removed soon."
       @client_thread
@@ -2130,7 +2140,9 @@ def responses(type = nil)
       elsif type
         raise ArgumentError, "Pass a block or use #clear_responses"
       else
-        warn("DEPRECATED: pass a block or use #clear_responses", uplevel: 1)
+        unless IMAP.silence_thread_safety_deprecation_warnings
+          warn("DEPRECATED: pass a block or use #clear_responses", uplevel: 1)
+        end
         @responses
       end
     end
diff --git a/test/net/imap/test_imap.rb b/test/net/imap/test_imap.rb
index 2ad9cde2..073ea433 100644
--- a/test/net/imap/test_imap.rb
+++ b/test/net/imap/test_imap.rb
@@ -963,6 +963,8 @@ def test_enable
   end
 
   def test_responses
+    original_silence = Net::IMAP.silence_thread_safety_deprecation_warnings
+    Net::IMAP.silence_thread_safety_deprecation_warnings = false
     with_fake_server do |server, imap|
       # responses available before SELECT/EXAMINE
       assert_equal(%w[IMAP4REV1 NAMESPACE MOVE IDLE UTF8=ACCEPT],
@@ -981,7 +983,16 @@ def test_responses
         assert_equal(%i[Answered Flagged Deleted Seen Draft],
                      imap.responses["FLAGS"]&.last)
       end
+      Net::IMAP.silence_thread_safety_deprecation_warnings = true
+      # TODO: assert_no_warn?
+      stderr = EnvUtil.verbose_warning {
+        assert_equal(%i[Answered Flagged Deleted Seen Draft],
+                     imap.responses["FLAGS"]&.last)
+      }
+      assert_empty stderr
     end
+  ensure
+    Net::IMAP.silence_thread_safety_deprecation_warnings = original_silence
   end
 
   def test_clear_responses