* liece-url.el (liece-url-regexp): Fix regexp.

* liece-vars.el (liece-display-unread-mark): Set default to t.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 241969b..a284b62 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2001-06-19  OHASHI Akira  <bg66@koka-in.org>
+
+        * liece-url.el (liece-url-regexp): Fix regexp.
+
+        * liece-vars.el (liece-display-unread-mark): Set default to t.
+
 2001-06-14  OHASHI Akira  <bg66@koka-in.org>
 
         * liece-channel.el (liece-channel-add-buttons): Fix regexp.

diff --git a/lisp/liece-url.el b/lisp/liece-url.el
index d7d3abe..664614e 100644 (file)
--- a/lisp/liece-url.el
+++ b/lisp/liece-url.el
@@ -40,7 +40,7 @@
   "URL Browsing in IRC buffer."
   :group 'liece-vars)
 
-(defcustom liece-url-regexp  "\\b\\(s?https?\\|ftp\\|file\\|gopher\\|news\\|telnet\\|wais\\|mailto\\):\\(//[-a-zA-Z0-9_.]+:[0-9]*\\)?[-a-zA-Z0-9_=?#$@~`%&*+|\\/.,]*[-a-zA-Z0-9_=#$@~`%&*+|\\/]"
+(defcustom liece-url-regexp  "\\b\\(s?https?\\|ftp\\|file\\|gopher\\|news\\|telnet\\|wais\\|mailto\\):\\(//[-a-zA-Z0-9_.]+:[0-9]*\\)?[-a-zA-Z0-9_=?#$@~`%&*+|\\/.,:;]*[-a-zA-Z0-9_=#$@~`%&*+|\\/]"
   "Regular expression that matches URLs."
   :group 'liece-url
   :type 'regexp)

diff --git a/lisp/liece-vars.el b/lisp/liece-vars.el
index 839d048..9d5876a 100644 (file)
--- a/lisp/liece-vars.el
+++ b/lisp/liece-vars.el
@@ -80,7 +80,7 @@
   :type 'boolean
   :group 'liece-look)
 
-(defcustom liece-display-unread-mark nil
+(defcustom liece-display-unread-mark t
   "If non-nil, display unread mark as XEmacs glyphs or character to channel
 list buffer."
   :type 'boolean