- (catch 'contiguous
- (while (not (eobp))
- (save-excursion
- (if (looking-at
- ":\\([^ ]+\\) +\\([0-5][0-9][0-9]\\) +\\([^ ]+\\) +\\(.*\\)\r\n")
- (riece-handle-numeric-reply
- (match-string 1) ;prefix
- (string-to-number (match-string 2)) ;number
- (match-string 3) ;name
- (match-string 4)) ;reply string
- (if (looking-at "\\(:\\([^ ]+\\) +\\)?\\([^ ]+\\) +\\(.*\\)\r\n")
- (riece-handle-message
- (match-string 2) ;optional prefix
- (match-string 3) ;command
- (match-string 4)) ;params & trailing
- (if (looking-at ".*\r\n")
- (if riece-debug
- (message "Weird message from server: %s"
- (buffer-substring (point) (progn
- (end-of-line)
- (point)))))
- (throw 'contiguous nil)))))
- (forward-line)))))
+ (while (looking-at ".*\n") ;the input line is finished
+ (save-excursion
+ (if (looking-at
+ ":\\([^ ]+\\) +\\([0-5][0-9][0-9]\\) +\\([^ ]+\\) +\\(.*\\)")
+ (riece-handle-numeric-reply
+ (match-string 1) ;prefix
+ (string-to-number (match-string 2)) ;number
+ (match-string 3) ;name
+ (riece-chomp-string (match-string 4))) ;reply string
+ (if (looking-at "\\(:\\([^ ]+\\) +\\)?\\([^ ]+\\) +\\(.*\\)")
+ (riece-handle-message
+ (match-string 2) ;optional prefix
+ (match-string 3) ;command
+ (riece-chomp-string (match-string 4))) ;params & trailing
+ (if riece-debug
+ (message "Weird message from server: %s"
+ (buffer-substring (point) (progn
+ (end-of-line)
+ (point))))))))
+ (forward-line))
+ (unless riece-debug
+ (delete-region (point-min) (point)))
+ (setq riece-read-point (point))))