Fixade buggen som gjorde att den hängde på inlägg med långa rader.

doc/NEWS-0.41

@@ -8,6 +8,9 @@ ett par nya finesser.
 
 * Fitjurs och förbättringar
 
+** Allting går fortare, på grund av lite intelligentare
+   parser. Inloggningsfasen går t.ex. ungefär tre gånger så fort.
+
 ** Innehållet i bufferten scrollas mer kontinuerligt allteftersom
    utmatning kommer. Tidigare scrollade den bara när man fick en
    prompt. Med det nyare beteendet är det lättare att se att något

src/ChangeLog

+Sun Apr 28 04:01:34 1996  David Kgedal  <davidk@lysator.liu.se>
+
+	* parse.el (lyskom-parse-unparsed): Flyttade terstartning av
+	strngar...
+
+	* lyskom-rest.el (lyskom-filter): ...hit
+
 Sat Apr 27 02:48:51 1996  David Kgedal  <davidk@lysator.liu.se>
 
 	* commands1.el (kom-send-letter): Ta bort confstatet ur cachen.

src/TODO

@@ -4,7 +4,7 @@ Att g
 Buggar
 
     Om ett namn som fylls i i efterhand gör att raden blir för lång,
-    så scrollar klienten fel ibland.
+    så scrollar inte klienten trots att den ibland borde.
 
     åm -> lä -> åh --- Sen får man läsa markerade iaf. (FIXAT?)
 

src/parse.el

@@ -819,31 +819,27 @@ functions and variables that are connected with the lyskom-buffer."
 	      (message ""))))
     (lyskom-save-excursion
      (set-buffer lyskom-unparsed-buffer)
-     (if (and (> lyskom-string-bytes-missing 0)
-	      (< (length output) lyskom-string-bytes-missing))
-	 (setq lyskom-string-bytes-missing
-	       (- lyskom-string-bytes-missing (length output)))
-       (setq lyskom-string-bytes-missing 0)
-       (while (not (zerop (1- (point-max)))) ;Parse while replies.
-	 (let* ((lyskom-parse-pos 1)
-		(key (lyskom-parse-nonwhite-char)))
-	   (condition-case err
-	       (let ((inhibit-quit nil))
-		 (cond
-		  ((eq key ?=)		;The call succeeded.
-		   (lyskom-parse-success (lyskom-parse-num) lyskom-buffer))
-		  ((eq key ?%)		;The call was not successful.
-		   (lyskom-parse-error (lyskom-parse-num) lyskom-buffer))
-		   ((eq key ?:)		;An asynchronous message.
-		    (lyskom-parse-async (lyskom-parse-num) lyskom-buffer)))
-		 (delete-region (point-min) lyskom-parse-pos))
-	     ;; One reply is now parsed.
-	     (lyskom-protocol-error
-	      (delete-region (point-min) (1+ lyskom-parse-pos))
-	      (signal 'lyskom-protocol-error err)))
-	   (goto-char (point-min))
-	   (while (looking-at "[ \t\n\r]")
-	     (delete-char 1))
-	   ))))
+     (setq lyskom-string-bytes-missing 0)
+     (while (not (zerop (1- (point-max)))) ;Parse while replies.
+       (let* ((lyskom-parse-pos 1)
+	      (key (lyskom-parse-nonwhite-char)))
+	 (condition-case err
+	     (let ((inhibit-quit nil))
+	       (cond
+		((eq key ?=)		;The call succeeded.
+		 (lyskom-parse-success (lyskom-parse-num) lyskom-buffer))
+		((eq key ?%)		;The call was not successful.
+		 (lyskom-parse-error (lyskom-parse-num) lyskom-buffer))
+		((eq key ?:)		;An asynchronous message.
+		 (lyskom-parse-async (lyskom-parse-num) lyskom-buffer)))
+	       (delete-region (point-min) lyskom-parse-pos))
+	   ;; One reply is now parsed.
+	   (lyskom-protocol-error
+	    (delete-region (point-min) (1+ lyskom-parse-pos))
+	    (signal 'lyskom-protocol-error err)))
+	 (goto-char (point-min))
+	 (while (looking-at "[ \t\n\r]")
+	   (delete-char 1))
+	 )))
     (store-match-data match-data)))