removed som useless code I just checked in...

src/ChangeLog

 2000-08-31  Ulrik Haugen  <qha@lysator.liu.se>
 
-	* lyskom-rest.el (lyskom-trim-buffer): saves point and mark and
+	* lyskom-rest.el (lyskom-trim-buffer): Saves point and mark and
 	resets point, mark and lyskom-last-viewed after taking into
 	consideration lyskom-trim-buffer-delete-to.
+	(lyskom-trim-buffer): Except point and mark doesn't need this
+	treatment.
 
 Thu Aug 31 14:38:34 2000  David Byers  <davby@sen2.ida.liu.se>
 

src/lyskom-rest.el

@@ -781,8 +781,6 @@ returns t if it trimmed the buffer, nil otherwise."
     (lyskom-save-excursion
       (let ((lyskom-trim-buffer-delete-to (- (buffer-size)
 					     kom-max-buffer-size))
-	    (old-point (point))
-	    (old-mark (mark))
 	    (inhibit-read-only t))
 	(goto-char (point-min))
 	(while (< (point) lyskom-trim-buffer-delete-to)
@@ -790,11 +788,8 @@ returns t if it trimmed the buffer, nil otherwise."
 	(setq lyskom-trim-buffer-delete-to (point))
 	(run-hooks 'lyskom-trim-buffer-hook)
 	(delete-region (point-min) lyskom-trim-buffer-delete-to)
-	
 	(setq lyskom-last-viewed
-	      (- (+ lyskom-last-viewed 1) lyskom-trim-buffer-delete-to))
-	(set-mark (- (+ old-mark 1) lyskom-trim-buffer-delete-to))
-	(goto-char (- (+ old-point 1) lyskom-trim-buffer-delete-to))))
+	      (- lyskom-last-viewed -1 lyskom-trim-buffer-delete-to))))
       t))
 
 (defun lyskom-garb-lyskom-buffer-to-file ()