From: ueno <ueno>
Date: Wed, 11 Jun 2003 09:19:43 +0000 (+0000)
Subject: (riece-doctor-buffer-name): Qualify patient names.
X-Git-Tag: strict-naming-mergepoint~17
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9c2abc53a2eaeb68f02a50e1b52bb4f252d9e5e1;p=elisp%2Friece.git

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

diff --git a/lisp/riece-doctor.el b/lisp/riece-doctor.el
index 022366e..eef7278 100644
--- 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))