From 640de0549e75c623a71602627979094defcf5d9c Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 20 Sep 2001 21:12:03 +0000 Subject: [PATCH] Put up message while generating summary buffer. Use fixnum arithmetic here to speed things up slightly. --- v7/src/imail/imail-summary.scm | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/v7/src/imail/imail-summary.scm b/v7/src/imail/imail-summary.scm index e956937f1..6bcdcfb27 100644 --- a/v7/src/imail/imail-summary.scm +++ b/v7/src/imail/imail-summary.scm @@ -1,6 +1,6 @@ ;;; -*-Scheme-*- ;;; -;;; $Id: imail-summary.scm,v 1.46 2001/09/20 18:13:01 cph Exp $ +;;; $Id: imail-summary.scm,v 1.47 2001/09/20 21:12:03 cph Exp $ ;;; ;;; Copyright (c) 2000-2001 Massachusetts Institute of Technology ;;; @@ -248,7 +248,8 @@ SUBJECT is a string of regexps separated by commas." (define (rebuild-imail-summary-buffer buffer) (let ((folder (selected-folder #f buffer))) (if folder - (begin + (let ((msg "Generating summary buffer...")) + (message msg) (buffer-widen! buffer) (with-read-only-defeated (buffer-start buffer) (lambda () @@ -261,6 +262,7 @@ SUBJECT is a string of regexps separated by commas." (set-buffer-major-mode! buffer (ref-mode-object imail-summary)) (buffer-not-modified! buffer) (set-buffer-point! buffer (imail-summary-first-line buffer)) + (message msg "done") (let ((message (selected-message #f (buffer-get buffer @@ -327,12 +329,12 @@ SUBJECT is a string of regexps separated by commas." (insert-string (message-summary-date-string message) mark))) (insert-string " " mark) (let ((target-column - (+ (mark-column mark) (imail-summary-subject-width mark)))) + (fix:+ (mark-column mark) (imail-summary-subject-width mark)))) (insert-string (message-summary-subject-string message) mark) - (if (> (mark-column mark) target-column) + (if (fix:> (mark-column mark) target-column) (delete-string (move-to-column mark target-column) mark)) - (if (< (mark-column mark) target-column) - (insert-chars #\space (- target-column (mark-column mark)) mark))) + (if (fix:< (mark-column mark) target-column) + (insert-chars #\space (fix:- target-column (mark-column mark)) mark))) (insert-string " " mark) (insert-string (message-summary-from-string message) mark) (insert-newline mark)) -- 2.25.1