If M-x imail finds existing buffer visiting the folder, it just

selects it and runs M-x imail-get-new-mail.

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index 69f15dafbd2bfef8d41001d6dc33f507e47aed4f..7ccc99799bf8303457a4fc971057ff7ff851c0f6 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.110 2000/05/25 22:16:42 cph Exp $
+;;; $Id: imail-top.scm,v 1.111 2000/05/25 22:24:09 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -155,19 +155,21 @@ regardless of the folder type."
            (if url-string
                (imail-parse-partial-url url-string)
                (imail-default-url)))))
-      (select-buffer
-       (let ((buffer
-             (or (imail-folder->buffer folder #f)
-                 (let ((buffer
-                        (new-buffer
-                         (url-presentation-name (folder-url folder)))))
-                   (associate-imail-with-buffer buffer folder #f)
-                   buffer))))
-        (select-message folder
-                        (or (first-unseen-message folder)
-                            (selected-message #f buffer))
-                        #t)
-        buffer)))))
+      (let ((buffer (imail-folder->buffer folder #f)))
+       (if buffer
+           (begin
+             (select-buffer buffer)
+             ((ref-command imail-get-new-mail)))
+           (begin
+             (let ((buffer
+                    (new-buffer
+                     (url-presentation-name (folder-url folder)))))
+               (associate-imail-with-buffer buffer folder #f)
+               (select-buffer buffer))
+             (select-message folder
+                             (or (first-unseen-message folder)
+                                 (selected-message #f))
+                             #t)))))))
 
 (define (prompt-for-imail-url-string prompt . options)
   (let ((get-option
@@ -474,7 +476,7 @@ variable's documentation (using \\[describe-variable]) for details:
 (define-key 'imail #\-         'imail-delete-folder)
 (define-key 'imail #\q         'imail-quit)
 (define-key 'imail #\?         'describe-mode)
-
+\f
 (define (imail-revert-buffer buffer dont-use-auto-save? dont-confirm?)
   dont-use-auto-save?
   (let ((folder (selected-folder #t buffer)))

diff --git a/v7/src/imail/todo.txt b/v7/src/imail/todo.txt
index a3efafcf8da0bdc2567c579dca1d6d22189d1d2e..69d5c5178441c42c9d3ab224b616576bf4250803 100644 (file)
--- a/v7/src/imail/todo.txt
+++ b/v7/src/imail/todo.txt
@@ -1,12 +1,9 @@
 IMAIL To-Do List
-$Id: todo.txt,v 1.51 2000/05/25 22:16:53 cph Exp $
+$Id: todo.txt,v 1.52 2000/05/25 22:24:20 cph Exp $
 
 Bug fixes
 ---------
 
-* M-x imail should run M-x imail-get-new-mail when started.  This
-  probably means that OPEN-FOLDER need not initiate a connection.
-
 * M-x imail-copy-messages re-reads the target folder UIDs for each
   message that is written, when the target folder is not being
   visited.  [I haven't seen this lately.  Maybe it's fixed?]