From b00bc87ff64638dffe321cf45c038c9bad2c1894 Mon Sep 17 00:00:00 2001 From: ueno Date: Sat, 5 Feb 2005 13:03:00 +0000 Subject: [PATCH] Fixed. --- lisp/riece-filter.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/riece-filter.el b/lisp/riece-filter.el index dc72e92..71a8bc1 100644 --- a/lisp/riece-filter.el +++ b/lisp/riece-filter.el @@ -65,7 +65,7 @@ (run-hook-with-args-until-success after-hook prefix string))))) (defun riece-chomp-string (string) - (if (string-match "\r?\n\\'" string) + (if (string-match "\r\\'" string) (substring string 0 (match-beginning 0)) string)) @@ -84,13 +84,13 @@ (looking-at ".*\n")) ;the input line is not finished (save-excursion (if (looking-at - ":\\([^ ]+\\) +\\([0-5][0-9][0-9]\\) +\\([^ ]+\\) +\\(.*\\)\n") + ":\\([^ ]+\\) +\\([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 "\\(:\\([^ ]+\\) +\\)?\\([^ ]+\\) +\\(.*\\)\n") + (if (looking-at "\\(:\\([^ ]+\\) +\\)?\\([^ ]+\\) +\\(.*\\)") (riece-handle-message (match-string 2) ;optional prefix (match-string 3) ;command -- 1.7.10.4