From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 26 May 2000 18:47:21 +0000 (+0000)
Subject: Set truncate-lines to #t in buffer that pops up to show messages to be
X-Git-Tag: 20090517-FFI~3674
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d9724511e7a163625c620fe8f7ab0b03479a8d61;p=mit-scheme.git

Set truncate-lines to #t in buffer that pops up to show messages to be
expunged.
---

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index 7ccc99799..0ede75e99 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.111 2000/05/25 22:24:09 cph Exp $
+;;; $Id: imail-top.scm,v 1.112 2000/05/26 18:47:21 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -1080,7 +1080,7 @@ With prefix argument N, undeletes backward N messages,
   (pop-up-temporary-buffer " *imail-message*" '(READ-ONLY SHRINK-WINDOW)
     (lambda (buffer window)
       window
-      (local-set-variable! truncate-partial-width-windows #f buffer)
+      (local-set-variable! truncate-lines #t buffer)
       (let ((mark (mark-left-inserting-copy (buffer-point buffer)))
 	    (n (folder-length folder)))
 	(let ((index-digits (exact-nonnegative-integer-digits (- n 1))))