X-Git-Url: https://cgit.sxemacs.org/?p=riece;a=blobdiff_plain;f=lisp%2Friece-highlight.el;h=6b3dbb53b58552c86883fd3130b75c44a43a5e24;hp=b9dd9023692aa1cc23938ce9b743825786c522eb;hb=2b559fc272a39d2dd115a59357eaeafc58374441;hpb=c3cc96e428c05ec5c4bfae36e781367d6cba8c97

diff --git a/lisp/riece-highlight.el b/lisp/riece-highlight.el
index b9dd902..6b3dbb5 100644
--- a/lisp/riece-highlight.el
+++ b/lisp/riece-highlight.el
@@ -203,11 +203,8 @@
   "Highlight IRC buffers")
 
 (defun riece-highlight-server-match (limit)
-  (let ((match-data (match-data)))
-    (if (re-search-forward "(from [^)]+)$" limit t)
-	(if (get-text-property (match-beginning 0) 'riece-server-name)
-	    t
-	  (store-match-data match-data)))))
+  (and (re-search-forward "(from [^)]+)$" limit t)
+       (get-text-property (match-beginning 0) 'riece-server-name)))
 
 (defun riece-highlight-setup-dialogue ()
   (make-local-variable 'font-lock-defaults)