Part 1 in the great prefetch cleanup.

src/ChangeLog

+Sun Jul 26 18:10:38 1992  Inge Wallin  (inge@lysator)
+
+	* cache.el: cleaned up handling of the who info buffer slightly.
+	  This should become very nice once the cookie code is used
+	  instead.
+
+	* async.el: Deleted some unnecessary junk.
+
+	* prefetch.el New functions: lyskom-reset-prefetch,
+	  lyskom-setup-prefetch, lyskom-prefetch-membership,
+	  lyskom-prefetch-all-conf-stats, lyskom-prefetch-marks,
+	  lyskom-prefetch-who-is-on.  Not all of these functions are
+	  working as intended but at least they should do their job.
+
 Sun Jul 19 12:07:22 1992  Linus Tolke Y  (linus@lysator)
 
 	* commands1.el (lyskom-return-who-info-line): Fixed a bug that

src/async.el

@@ -72,8 +72,8 @@ this function shall be with current-buffer the BUFFER."
 ;	      (initiate-get-conf-stat 'follow 
 ;				      'lyskom-show-logged-out-person
 ;				      pno))
-;	  (if (not (zerop lyskom-pers-no))
-;	      (initiate-who-is-on 'who-buffer 'cache-set-who-info-list))))
+;nej:	  (if (not (zerop lyskom-pers-no))
+;nej:	      (initiate-who-is-on 'who-buffer 'cache-set-who-info-list))))
       )
 
      ((eq msg-no 2)			; Login, obsolete.
@@ -148,8 +148,6 @@ this function shall be with current-buffer the BUFFER."
 	      (initiate-get-conf-stat 'follow
 				      'lyskom-show-logged-in-person
 				      pers-no))
-;	  (if (not (zerop lyskom-pers-no))
-;	      (initiate-who-is-on 'who-buffer 'cache-set-who-info-list))
 	  (if (and (not (zerop lyskom-pers-no))
 		   lyskom-who-info-buffer-is-on)
 	      (initiate-get-session-info 'who-buffer 'cache-add-session-info

src/cache.el

@@ -185,7 +185,7 @@ otherwise return nil"
 ;;;                         who-info cache
 
 
-(defun cache-set-who-info-list (who-info-arr)
+(defun cache-initiate-who-info-buffer (who-info-arr)
   "Sets the cache of who-info items."
   (setq lyskom-who-info-cache (list 'WHO-INFO-LIST))
   (lyskom-save-excursion

src/clienttypes.el

@@ -278,21 +278,6 @@ will be inserted before it."
        (t 
 	(setq rlist (cdr rlist)))))))
 
-;; This is the old recursive version.  It can be removed once it is
-;; established that the iterative version is correct.  /Inge
-;;  (cond
-;;   ((null rlist)
-;;    (cons read-info nil))
-;;   ((or (atom (car rlist))		;The dummy element.
-;;	(<= (read-info->priority read-info)
-;;	    (+ (if before -1 0)
-;;	       (read-info->priority (car rlist)))))
-;;    (setcdr rlist (read-list-enter-read-info read-info (cdr rlist) before))
-;;    rlist)
-;;   (t
-;;    (cons read-info rlist))))
-
-
 (defun read-list-delete-read-info (conf-no rlist)
   "Destructively removes all the entries for the conf CONF-NO in RLIST.
 RLIST is a list of read-info."

src/prefetch.el

@@ -23,6 +23,10 @@
 ;;;;; Please mail bug reports to bug-lyskom@lysator.liu.se. 
 ;;;;;
 ;;;; ================================================================
+;;; +++ lyskom-reset-prefetch  to be called on client reset.
+;;;                            must restart everything.
+;;; +++ THIS DOES NOT WORK CURRENTLY
+(defun lyskom-reset-prefetch () nil)
 ;;;; ================================================================
 ;;;;
 ;;;; File: prefetch.el
@@ -193,6 +197,32 @@ lyskom-prefetch-stack."
   (lyskom-continue-prefetch))
   
 
+(defun lyskom-prefetch-membership (pers-no &optional queue)
+  "+++"
+  (initiate-get-membership 'main lyskom-set-membership pers-no)
+  ;; h{mtar medlemsskapet i sm} delar 
+  ;; och d{refter conf-stat f|r m|tena
+  nil)
+
+
+(defun lyskom-prefetch-all-conf-stats (&optional queue)
+  "+++"
+  nil)
+
+
+(defun lyskom-prefetch-marks (&optional queue)
+  "+++"
+  (initiate-get-marks 'main 'cache-set-marked-texts)
+  nil)
+
+
+(defun lyskom-prefetch-who-is-on (&optional queue)
+  "+++"
+  ;;(cache-initiate-who-info-buffer)  +++do it later this way
+  (initiate-who-is-on 'prefetch 'cache-initiate-who-info-buffer)
+  nil)
+
+
 ;;; ================================================================
 ;;;           Functions internal to the prefetch package