Copy ptexinfmt.el from emacs-w3m/doc.

[riece] / lisp / riece-naming.el

diff --git a/lisp/riece-naming.el b/lisp/riece-naming.el
index afd7f7e..51f8029 100644 (file)
--- a/lisp/riece-naming.el
+++ b/lisp/riece-naming.el
@@ -24,21 +24,19 @@
 
 ;;; Code:
 
-(eval-when-compile (require 'riece-inlines))
-
 (require 'riece-globals)
 (require 'riece-channel)
 (require 'riece-user)
 (require 'riece-display)
 
 (defun riece-naming-assert-join (user-name channel-name)
-  (if (scandinavian-equal-ignore-case user-name riece-real-nickname)
+  (if (riece-identity-equal-no-server user-name riece-real-nickname)
       (riece-join-channel channel-name))
   (riece-user-toggle-channel user-name channel-name t)
   (riece-channel-toggle-user channel-name user-name t))
 
 (defun riece-naming-assert-part (user-name channel-name)
-  (if (scandinavian-equal-ignore-case user-name riece-real-nickname)
+  (if (riece-identity-equal-no-server user-name riece-real-nickname)
       (progn
        (riece-part-channel channel-name)
        (riece-forget-channel channel-name))
@@ -54,7 +52,7 @@
              (setcar pointer nil))))))
 
 (defun riece-naming-assert-rename (old-name new-name)
-  (if (scandinavian-equal-ignore-case old-name riece-real-nickname)
+  (if (riece-identity-equal-no-server old-name riece-real-nickname)
       (setq riece-last-nickname riece-real-nickname
            riece-real-nickname new-name))
   (let* ((old (riece-get-user old-name))