From 8bebbc7755935fa156ca9e6b0b449101941898e1 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 17 May 2000 17:20:14 +0000
Subject: [PATCH] Set buffer default directory to something sensible.

---
 v7/src/imail/imail-top.scm | 7 ++++++-
 v7/src/imail/todo.txt      | 4 +---
 2 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index 630af193f..6d3def2dd 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.52 2000/05/17 17:15:22 cph Exp $
+;;; $Id: imail-top.scm,v 1.53 2000/05/17 17:20:01 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -138,6 +138,11 @@ May be called with an IMAIL folder URL as argument;
      (buffer-put! buffer 'IMAIL-FOLDER folder)
      (buffer-put! buffer 'IMAIL-MESSAGE message)
      (folder-put! folder 'BUFFER buffer)
+     (set-buffer-default-directory!
+      buffer
+      (if (file-folder? folder)
+	  (directory-pathname (file-folder-pathname folder))
+	  (user-homedir-pathname)))
      (add-event-receiver! (folder-modification-event folder)
        (lambda (folder)
 	 (maybe-add-command-suffix! notice-folder-modifications folder))))))
diff --git a/v7/src/imail/todo.txt b/v7/src/imail/todo.txt
index a9277fd18..8063fadc4 100644
--- a/v7/src/imail/todo.txt
+++ b/v7/src/imail/todo.txt
@@ -1,11 +1,9 @@
 IMAIL To-Do List
-$Id: todo.txt,v 1.16 2000/05/17 16:25:06 cph Exp $
+$Id: todo.txt,v 1.17 2000/05/17 17:20:14 cph Exp $
 
 Bug fixes
 ---------
 
-* Set imail buffer directory to home directory for IMAP folders.
-
 * Implement operations for IMAP: FOLDER-VALID?.
 
 * Implement background thread to periodically send NOOP to IMAP server
-- 
2.25.1