Keep viewed text in cache a bit longer so that it won't be prefetched a second time.

src/ChangeLog

+2001-01-18  Joel Rosdahl  <joel@rosdahl.net>
+
+	* view-text.el (lyskom-print-text): Keep viewed text in cache a
+	bit longer so that it won't be prefetched a second time.
+	(lyskom-view-text): Ditto.
+
 2001-01-02  Ulrik Haugen  <qha@lysator.liu.se>
 
 	* All files changed when I replaced

src/view-text.el

@@ -325,6 +325,8 @@ Note that this function must not be called asynchronously."
 			 (lyskom-follow-comments text-stat
 						 conf-stat mark-as-read
 						 priority build-review-tree)))
+                   (if (lyskom-text-p (cache-get-text text-no))
+                       (cache-del-text text-no))
 		   ))
 	       (lyskom-format-insert 'no-such-text-no text-no))
              (let ((aux-items (text-stat->aux-items text-stat)))
@@ -841,8 +843,6 @@ Args: TEXT-STAT TEXT MARK-AS-READ TEXT-NO FLAT-REVIEW."
           (lyskom-insert "\n")
           (lyskom-format-insert "%#1t\n" (cons text-stat str))
           (setq lyskom-current-subject "")))
-        (if (lyskom-text-p (cache-get-text (text->text-no text)))
-            (cache-del-text (text->text-no text)))
         (sit-for 0)
         (let* ((lyskom-current-function-phase 'footer)
                (mx-from (car (lyskom-get-aux-item (text-stat->aux-items text-stat) 17)))