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 d6af4db87d7ba4794d98ced7d382f5043b3f752c..63fe53426e9136d1ffea4fb8598f5bf0c5a59e2f 100644 (file)
--- 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