Add no-server option to riece-identity-assoc.
authorueno <ueno>
Thu, 24 Feb 2005 06:11:06 +0000 (06:11 +0000)
committerueno <ueno>
Thu, 24 Feb 2005 06:11:06 +0000 (06:11 +0000)
lisp/riece-300.el

index eea5bdc..0f3d717 100644 (file)
   (make-local-variable 'riece-353-message-alist)      
   (if (string-match "^[=\*@] *\\([^ ]+\\) +:?" string)
       (let* ((channel (match-string 1 string))
-            (entry (riece-identity-assoc channel riece-353-message-alist)))
+            (entry (riece-identity-assoc channel riece-353-message-alist t)))
        (if entry
            (setcdr entry
                    (concat (cdr entry)
             (channel-identity (riece-make-identity channel
                                                    riece-server-name))
             (buffer (riece-channel-buffer channel-identity))
-            (entry (riece-identity-assoc channel riece-353-message-alist))
+            (entry (riece-identity-assoc channel riece-353-message-alist t))
             (string (cdr entry))
             (start 0)
             users)