From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 29 May 2001 19:32:39 +0000 (+0000)
Subject: Change M-x imail so that it only runs M-x imail-get-new-mail if the
X-Git-Tag: 20090517-FFI~2769
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=221c3f9b1288509efb8ee3e3b5987e3aceacd5ee;p=mit-scheme.git

Change M-x imail so that it only runs M-x imail-get-new-mail if the
folder status is OFFLINE.
---

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