From 221c3f9b1288509efb8ee3e3b5987e3aceacd5ee Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 29 May 2001 19:32:39 +0000
Subject: [PATCH] Change M-x imail so that it only runs M-x imail-get-new-mail
 if the folder status is OFFLINE.

---
 v7/src/imail/imail-top.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index d6af4db87..63fe53426 100644
--- a/v7/src/imail/imail-top.scm
+++ b/v7/src/imail/imail-top.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-top.scm,v 1.256 2001/05/26 03:09:36 cph Exp $
+;;; $Id: imail-top.scm,v 1.257 2001/05/29 19:32:39 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2001 Massachusetts Institute of Technology
 ;;;
@@ -239,7 +239,8 @@ regardless of the folder type."
 	(if buffer
 	    (begin
 	      (select-buffer buffer)
-	      ((ref-command imail-get-new-mail) #f))
+	      (if (eq? (folder-connection-status folder) 'OFFLINE)
+		  ((ref-command imail-get-new-mail) #f)))
 	    (begin
 	      (let ((buffer
 		     (new-buffer
-- 
2.25.1