From 9c2abc53a2eaeb68f02a50e1b52bb4f252d9e5e1 Mon Sep 17 00:00:00 2001 From: ueno Date: Wed, 11 Jun 2003 09:19:43 +0000 Subject: [PATCH] (riece-doctor-buffer-name): Qualify patient names. --- lisp/riece-doctor.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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)) -- 1.7.10.4