* 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 (file)
--- 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 (file)
--- 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 ()