(riece-doctor-buffer-name): Qualify patient names.

diff --git a/lisp/riece-doctor.el b/lisp/riece-doctor.el
index 022366e..eef7278 100644 (file)
--- a/lisp/riece-doctor.el
+++ b/lisp/riece-doctor.el
@@ -35,7 +35,9 @@
 (defvar riece-doctor-patients nil)
 
 (defun riece-doctor-buffer-name (user)
-  (concat " *riece-doctor*" (riece-identity-canonicalize-prefix user)))
+  (concat " *riece-doctor*"
+         (riece-decode-identity (riece-make-identity user
+                                                     riece-server-name))))
 
 (defun riece-doctor-reply (target string)
   (riece-send-string (format "NOTICE %s :%s\r\n" target string))