From 2fe481a32f815b76ece2ea48c93ae4a6f37021c6 Mon Sep 17 00:00:00 2001 From: ueno Date: Tue, 5 Aug 2003 20:47:45 +0000 Subject: [PATCH] (riece-unread-update-channel-list-buffer): Call riece-parse-identity. --- lisp/ChangeLog | 5 +++++ lisp/riece-unread.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5564fca..d4aa581 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2003-08-06 Daiki Ueno + + * riece-unread.el (riece-unread-update-channel-list-buffer): Call + riece-parse-identity. + 2003-08-04 Daiki Ueno * riece-server.el (riece-find-server-name): Abolish. diff --git a/lisp/riece-unread.el b/lisp/riece-unread.el index d03024d..21a8771 100644 --- a/lisp/riece-unread.el +++ b/lisp/riece-unread.el @@ -59,7 +59,8 @@ (goto-char (point-min)) (while (not (eobp)) (if (looking-at "\\( ?[0-9]+:\\)\\([ !]\\)\\(.+\\)") - (let ((channel (match-string 3))) + (let ((channel (save-match-data + (riece-parse-identity (match-string 3))))) (replace-match (concat "\\1" (if (member channel riece-unread-channels) -- 1.7.10.4