From 65213b1cf1e73823d323a12777823d7d950f1c8e Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 25 May 2000 22:24:20 +0000
Subject: [PATCH] If M-x imail finds existing buffer visiting the folder, it
 just selects it and runs M-x imail-get-new-mail.

---
 v7/src/imail/imail-top.scm | 32 +++++++++++++++++---------------
 v7/src/imail/todo.txt      |  5 +----
 2 files changed, 18 insertions(+), 19 deletions(-)

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index 69f15dafb..7ccc99799 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.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)
-
+
 (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 a3efafcf8..69d5c5178 100644
--- 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?]
-- 
2.25.1