From 9e0f68e32f8ce8f5b2eae0b8f6b5a6aa0c783216 Mon Sep 17 00:00:00 2001
From: ueno <ueno>
Date: Wed, 12 Apr 2000 13:52:05 +0000
Subject: [PATCH] (liece-url-add-buttons): Fix local binding.

---
 lisp/liece-url.el |   14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/lisp/liece-url.el b/lisp/liece-url.el
index c02065b..3f478cf 100644
--- a/lisp/liece-url.el
+++ b/lisp/liece-url.el
@@ -69,13 +69,13 @@
   (save-excursion
     (goto-char start)
     (while (re-search-forward liece-url-regexp end t)
-      (if liece-highlight-mode
-	  (liece-widget-convert-button 'url-link
-				       (match-beginning 0)(match-end 0)
-				       (match-string 0)))
-      (unless (assoc url liece-url-alist)
-	(push (list url) liece-url-alist)
-	(run-hook-with-args 'liece-url-add-hook url)))))
+      (let ((url (match-string 0)))
+	(if liece-highlight-mode
+	    (liece-widget-convert-button
+	     'url-link (match-beginning 0)(match-end 0) url))
+	(unless (assoc url liece-url-alist)
+	  (push (list url) liece-url-alist)
+	  (run-hook-with-args 'liece-url-add-hook url))))))
 
 (defun liece-command-browse-url (&optional url)
   (interactive
-- 
1.7.10.4