From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 26 Oct 2000 02:31:12 +0000 (+0000)
Subject: Comment out call to ADD-PRE-SELECT-BUFFER-HOOK.  This procedure is
X-Git-Tag: 20090517-FFI~3232
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=06279538f99d6eaa0512dc4133af12e1bdb007fe;p=mit-scheme.git

Comment out call to ADD-PRE-SELECT-BUFFER-HOOK.  This procedure is
about to be removed from Edwin.  It will shortly be replaced by a
different mechanism.
---

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index ee5732c61..1a756ddec 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.216 2000/10/20 04:07:53 cph Exp $
+;;; $Id: imail-top.scm,v 1.217 2000/10/26 02:31:12 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -289,7 +289,7 @@ regardless of the folder type."
   (lambda (buffer)
     (buffer-put! buffer 'REVERT-BUFFER-METHOD imail-revert-buffer)
     (add-kill-buffer-hook buffer imail-kill-buffer)
-    (add-pre-select-buffer-hook buffer imail-pre-select-buffer-hook)
+    ;;(add-pre-select-buffer-hook buffer imail-pre-select-buffer-hook)
     (buffer-put! buffer 'MAIL-YANK-ORIGINAL-METHOD imail-yank-original)
     (local-set-variable! mode-line-modified "--- " buffer)
     (imail-adjust-adaptive-fill buffer)