From: ueno <ueno>
Date: Sun, 4 Jan 2004 06:22:15 +0000 (+0000)
Subject: * riece-lsdb.el (riece-lsdb-add-user): Always pass canonical
X-Git-Tag: riece-0_1_8~8
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5a7da5eb0c0723052dce3d76de7845a803c89627;p=elisp%2Friece.git

* riece-lsdb.el (riece-lsdb-add-user): Always pass canonical
address for 'net entry.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 018ea23..2fafafa 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-01-04  Daiki Ueno  <ueno@unixuser.org>
+
+	* riece-lsdb.el (riece-lsdb-add-user): Always pass canonical
+	address for 'net entry.
+
 2004-01-04  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
 	* riece-300.el (riece-handle-317-message): Fix regexp for signon
diff --git a/lisp/riece-lsdb.el b/lisp/riece-lsdb.el
index 4d1044f..b477adc 100644
--- a/lisp/riece-lsdb.el
+++ b/lisp/riece-lsdb.el
@@ -97,7 +97,11 @@
     ;; Remove all properties before adding entry.
     (set-text-properties 0 (length irc) nil irc)
     (unless (member irc old)
-      (lsdb-update-record (list full-name)
+      (lsdb-update-record (list full-name
+				;; LSDB does not allow empty 'net entry.
+				(or (nth 1 (assq 'net (lsdb-lookup-records
+						       full-name)))
+				    ""))
 			  (list (cons 'irc (cons irc old)))))))
 
 (defun riece-lsdb-insinuate ()