Ett antal smärre fixar.

doc/elisp-client.texinfo

@@ -27,7 +27,7 @@ $Id$
 @hyphenation{data-bas-filen default-prio-ri-tet}
 @hyphenation{email-adress even-tu-ella}
 @hyphenation{emacs-lisp-biblioteket}
-@hypgenation{emacs-lisp-program}
+@hyphenation{emacs-lisp-program}
 @hyphenation{förut-sätt-ningar}
 @hyphenation{inlogg-ningarna}
 @hyphenation{klient-modell}
@@ -1491,7 +1491,7 @@ I n
 olika möten beroende på om mötet är skrivskyddat eller kommentarsskyddat.
 @end table
 
-@node Meddelande, Prioritera, Ändra mötesuppgifter, Kommandon
+@node Meddelande, Filtrera, Ändra mötesuppgifter, Kommandon
 @comment  node-name,  next,  previous,  up
 @subsection Meddelande
 
@@ -1571,10 +1571,10 @@ Radera den rad mark
 @item @kbd{D, M-d}
 Radera det filter markören står i.
 
-@item @kbd{i}
+@item @kbd{i, I}
 Lägg till en rad i ett filter. Frågar efter filterfunktion.
 
-@item @kbd{I, M-i}
+@item @kbd{M-i}
 Lägg till ett filter. Frågar efter filtertyp och tidsbegränsning.
 
 @item @kbd{a}
@@ -2123,7 +2123,7 @@ funktionen. En knapp skapas p
 REGEXP innehåller en @code{\(\)}-konstruktion, den text som matchas av
 den första sådana konstruktionen.
 
-@item{kom-mosaic-command}
+@item @code{kom-mosaic-command}
 @itemx @code{"/usr/local/bin/mosaic"} (@code{elisp})
 @vindex kom-mosaic-command
 Variabeln anger var mosaic finns.

src/commands2.el

@@ -628,28 +628,43 @@ to be read, give the priority as a prefix argument.
 When a text is received the new text is displayed."
   (interactive "P")
   (lyskom-start-of-command 'kom-busy-wait)
-  (if (not (read-list-isempty lyskom-reading-list))
-      (set-read-list-empty lyskom-reading-list))
-  (let ((waitfor (or (cond
-		      ((integerp arg) arg)
-		      ((listp arg) (car arg)))
-		     (read-info->priority
-		      (read-list->first lyskom-to-do-list))
-		     -2)))
-    (lyskom-tell-server kom-mercial)
-    (if (= waitfor -2)
-	(lyskom-insert-string 'waiting-for-anything)
-      (lyskom-format-insert 'waiting-higher-than waitfor))
-    (lyskom-scroll)
-    (setq lyskom-is-waiting
-	  (list '>
-		'(or (read-info->priority
-		      (read-list->first lyskom-reading-list))
-		     (read-info->priority
-		      (read-list->first lyskom-to-do-list))
-		     257)
-		waitfor))))
-
+  (unwind-protect
+      (let ((waitfor (or (cond
+			  ((integerp arg) arg)
+			  ((listp arg) (car arg)))
+			 (read-info->priority
+			  (read-list->first lyskom-to-do-list))
+			 -2)))
+	(lyskom-tell-server kom-mercial)
+	(if (not (read-list-isempty lyskom-reading-list))
+	    (set-read-list-empty lyskom-reading-list))
+	(if (= waitfor -2)
+	    (lyskom-insert-string 'waiting-for-anything)
+	  (lyskom-format-insert 'waiting-higher-than waitfor))
+	(lyskom-scroll)
+	(setq lyskom-is-waiting
+	      (list '>
+		    '(or (read-info->priority
+			  (read-list->first lyskom-reading-list))
+			 (read-info->priority
+			  (read-list->first lyskom-to-do-list))
+			 257)
+		    waitfor))
+	(while lyskom-is-waiting
+	  ;; This is a bit trial-and-error stuff at the momemt.
+	  ;; o How to make personal messages appear *fast*
+	  ;; o How to enable C-g with a quick response
+	  (accept-process-output nil 1)
+	  (sit-for 0)
+	  (if lyskom-quit-flag
+	      (signal 'quit nil))))
+    (lyskom-end-of-command))
+  ;; We are done waiting
+  (ding)
+  (if (read-list-isempty lyskom-reading-list)
+      (kom-go-to-next-conf))
+  (kom-next-command))
+  
 
 
 (defun lyskom-time-greater (time1 time2)
@@ -1298,8 +1313,8 @@ membership info."
   (interactive)
   (let ((session-name (buffer-name (current-buffer)))
 	(buffer (current-buffer)))
-    (if lyskom-debug-communications-to-buffer
-	(bury-buffer lyskom-debug-communications-to-buffer))
+;;;    (if lyskom-debug-communications-to-buffer
+;;;	(bury-buffer lyskom-debug-communications-to-buffer-buffer))
     (if lyskom-who-info-buffer
 	(bury-buffer lyskom-who-info-buffer))
     (bury-buffer)

src/edit-text.el

@@ -692,8 +692,10 @@ Point must be located on the line where the subject is."
       (initiate-get-text-stat 'background 'lyskom-mark-as-read
 			      text-no)
       (lyskom-run 'background 'set 'lyskom-dont-change-prompt nil)
-      (lyskom-run 'background 'lyskom-set-mode-line)))
-
+      (lyskom-run 'background 'lyskom-set-mode-line))
+     (t
+      (setq lyskom-dont-change-prompt nil)))
+    
     (set-buffer edit-buffer)		;Need local variables.
 
     ;; Select the old configuration.

src/internal.el

@@ -357,15 +357,17 @@ with big strings."
 		 nil)
 	(file-error
 	 (if lyskom-debug-communications-to-buffer
-	     (save-excursion
-	       (set-buffer (get-buffer-create
-			    lyskom-debug-communications-to-buffer-buffer))
-	       (save-excursion
-		 (goto-char (point-max))
-		 (insert "\n" 
-			 (format "%s" process)
-			 (concat "Error: " (format "%s" err))))
-	       (set-buffer (process-buffer process))))
+	     (lyskom-debug-insert process "Error: " (format "%s" err))
+;;;	     (save-excursion
+;;;	       (set-buffer (get-buffer-create
+;;;			    lyskom-debug-communications-to-buffer-buffer))
+;;;	       (save-excursion
+;;;		 (goto-char (point-max))
+;;;		 (insert "\n" 
+;;;			 (format "%s" process)
+;;;			 (concat "Error: " (format "%s" err))))
+;;;	       (set-buffer (process-buffer process)))
+	   )
 	 (cond
 	  ((and (string= "writing to process" (car (cdr err)))
 		(or (string= "message too long" (car (cdr (cdr err))))
@@ -401,15 +403,16 @@ is sent with each packet. If STRING is longer it is splitted."
      process
      (progn
        (if lyskom-debug-communications-to-buffer
-	   (save-excursion
-	     (set-buffer (get-buffer-create 
-			  lyskom-debug-communications-to-buffer-buffer))
-	     (save-excursion
-	       (goto-char (point-max))
-	       (insert "\n"
-		       (format "%s" process)
-		       (concat ">>>>>> " string)))
-	     (set-buffer (process-buffer process))))
+	   (lyskom-debug-insert process ">>>>>> " string))
+;;;       (save-excursion
+;;;	 (set-buffer (get-buffer-create 
+;;;		      lyskom-debug-communications-to-buffer-buffer))
+;;;	 (save-excursion
+;;;	   (goto-char (point-max))
+;;;	   (insert "\n"
+;;;		   (format "%s" process)
+;;;		   (concat ">>>>>> " string)))
+;;;	 (set-buffer (process-buffer process)))
        string)))
    (t
     (let ((i 0))

src/startup.el

@@ -136,11 +136,13 @@ See lyskom-mode for details."
 (defun lyskom-connect-filter (proc output)
   "Receive connection acknowledgement from server."
   (if lyskom-debug-communications-to-buffer
-      (save-excursion
-	(set-buffer
-	 (get-buffer-create lyskom-debug-communications-to-buffer-buffer))
-	(goto-char (point-max))
-	(insert "\n" (format "%s" proc) "-----> " output)))
+      (lyskom-debug-insert proc "-----> " output)
+;;;      (save-excursion
+;;;	(set-buffer
+;;;	 (get-buffer-create lyskom-debug-communications-to-buffer-buffer))
+;;;	(goto-char (point-max))
+;;;	(insert "\n" (format "%s" proc) "-----> " output))
+    )
   (cond
    ((string-match "^LysKOM\n" output)
     (set-process-filter proc 'lyskom-filter))))
@@ -564,4 +566,5 @@ to see, set of call."
     (setq lyskom-do-when-done (cons kom-do-when-done kom-do-when-done))
     (setq lyskom-output-queue (lyskom-queue-create))
     (setq lyskom-list-of-edit-buffers nil)
+    (setq lyskom-pending-calls nil)
     (lyskom-set-mode-line (lyskom-get-string 'not-present-anywhere))))

src/vars.el.in

@@ -115,6 +115,9 @@ If the value is 'express then texts are allowed to break in the middle of a
 comment chain.  Otherwise we dont let them in until the end of the comment
 tree.")
 
+(defvar kom-after-load-hook nil
+  "Hook to run once after lyskom is loaded.")
+
 (defvar kom-login-hook nil
   "*What to do when logged in.
 This is a list of commands that are executed after we have logged in but before

src/view-text.el

@@ -55,6 +55,7 @@ lyskom-reading-list to read the comments to this."
 	(todo nil))
     (cond ((eq filter 'skip-text) (lyskom-filter-prompt text-no 'filter-text)
 	   (setq todo 'next-text)
+	   (lyskom-mark-as-read (blocking-do 'get-text-stat text-no))
 	   'next-text)
 	  ((eq filter 'skip-tree)
 	   (lyskom-filter-prompt text-no 'filter-tree)