Fixade en liten bug i defer-koden

src/ChangeLog

 Sat May  4 00:07:06 1996  David Kgedal  <davidk@lysator.liu.se>
 
+	* view-text.el (lyskom-insert-header-comm): Ta insert-funktionen
+ 	som parameter.
+
 	* Jag plockade koden fr "Lista (med) regexpar" frn 0.38.2.
 
 	* parse.el (lyskom-parse-conf-z-info-list): Ny funktion.

src/vars.el.in

@@ -144,7 +144,7 @@ This variable is stored in the LysKOM server.")
 
 (defvar kom-continuous-scrolling t
   "*Non-nil means scroll LysKOM window as text is inserted. The last viewed
-position (generally the most recent prompt) will alsways be visisble.
+position (generally the most recent prompt) will always be visible.
 
 This variable is stored in the LysKOM server.")
 

src/view-text.el

@@ -82,7 +82,7 @@ Note that this function must not be called asynchronously."
 	     (if (and text-stat
 		      text)
 		 (progn
-           (setq start (point-max))
+		   (setq start (point-max))
 		   (lyskom-format-insert "%#1n " 
 					 text-stat)
 		   (lyskom-print-date-and-time (text-stat->creation-time
@@ -100,16 +100,16 @@ Note that this function must not be called asynchronously."
 		   
 		   (if (eq filter 'dontshow)
 		       (lyskom-format-insert "%#1P %#2s\n"
-                                     (text-stat->author text-stat)
-                                     (lyskom-get-string 'filtered))
+					     (text-stat->author text-stat)
+					     (lyskom-get-string 'filtered))
 		     (lyskom-format-insert "%#1P\n"
-                                   (text-stat->author text-stat)))
+					   (text-stat->author text-stat)))
 		   
-           (setq end (point-max))
+		   (setq end (point-max))
 
-           (if (and (null filter)
-                    (not (lyskom-face-default-p 'kom-first-line-face)))
-               (add-text-properties start end '(face kom-first-line-face)))
+		   (if (and (null filter)
+			    (not (lyskom-face-default-p 'kom-first-line-face)))
+		       (add-text-properties start end '(face kom-first-line-face)))
 
 		   ;; All recipients and other header lines.
 
@@ -445,7 +445,8 @@ Args: TEXT-STAT of the text being read."
 		     (blocking-do 'get-text-stat text))))
     (if text-stat
 	(progn
-	  (lyskom-insert-header-comm text-stat misc))
+	  (lyskom-insert-header-comm text-stat misc
+				     'lyskom-format-insert))
       (let ((defer-info (lyskom-create-defer-info
 			 'initiate-get-text-stat
 			 text
@@ -461,14 +462,15 @@ Args: TEXT-STAT of the text being read."
 (defun lyskom-insert-deferred-header-comm (text-stat defer-info)
   (save-excursion
     (goto-char (defer-info->pos defer-info))
-    (lyskom-insert-header-comm text-stat (defer-info->data defer-info))
+    (lyskom-insert-header-comm text-stat (defer-info->data defer-info)
+			       'lyskom-format-insert-at-point)
     (let ((inhibit-read-only t))
       (delete-char (defer-info->del-chars defer-info)))
     (set-marker (defer-info->pos defer-info) nil)))
 
 
 
-(defun lyskom-insert-header-comm (text-stat misc)
+(defun lyskom-insert-header-comm (text-stat misc insertfun)
   "Get author of TEXT-NO and print a header line."
   ;;+++ error kommer att se annorlunda ut.
   (let ((author (if text-stat
@@ -477,29 +479,23 @@ Args: TEXT-STAT of the text being read."
 	(type (misc-info->type misc)))
     (cond
      ((eq type 'COMM-TO)
-      (lyskom-format-insert-at-point 'comment-to-text
-				     (misc-info->comm-to misc)))
+      (funcall insertfun 'comment-to-text (misc-info->comm-to misc)))
      ((eq type 'FOOTN-TO)
-      (lyskom-format-insert-at-point 'footnote-to-text
-				     (misc-info->footn-to misc)))
+      (funcall insertfun 'footnote-to-text (misc-info->footn-to misc)))
      ((eq type 'COMM-IN)
-      (lyskom-format-insert-at-point 'comment-in-text
-				     (misc-info->comm-in misc)))
+      (funcall insertfun 'comment-in-text (misc-info->comm-in misc)))
      ((eq type 'FOOTN-IN)
-      (lyskom-format-insert-at-point 'footnote-in-text
-				     (misc-info->footn-in misc))))
+      (funcall insertfun 'footnote-in-text (misc-info->footn-in misc))))
     (if author
-	(lyskom-format-insert-at-point 'written-by author)
+	(funcall insertfun 'written-by author)
       (lyskom-insert-at-point "\n"))
     
     ;; Print information about who added the link
     (if (misc-info->sent-at misc)
-	(lyskom-format-insert-at-point 'send-at
-				       (lyskom-return-date-and-time 
-					(misc-info->sent-at misc))))
+	(funcall insertfun 'send-at (lyskom-return-date-and-time 
+				     (misc-info->sent-at misc))))
     (if (misc-info->sender misc)
-	(lyskom-format-insert-at-point 'sent-by
-				       (misc-info->sender misc)))))
+	(funcall insertfun 'sent-by (misc-info->sender misc)))))