X-Git-Url: https://cgit.sxemacs.org/?p=riece;a=blobdiff_plain;f=lisp%2Friece-doctor.el;h=6541157a5f49ca41ba5a94afbcd50cd568e14a6c;hp=a7fbdd722c37745c4e0462af99eba082591ddd4d;hb=71cfc726e9ef6ae459a3e490df9c307d5204acb2;hpb=e181f1a7f1ea36733e4604ffb97814d50c4e2295

diff --git a/lisp/riece-doctor.el b/lisp/riece-doctor.el
index a7fbdd7..6541157 100644
--- a/lisp/riece-doctor.el
+++ b/lisp/riece-doctor.el
@@ -40,12 +40,12 @@
   :prefix "riece-"
   :group 'riece)
 
-(defcustom riece-doctor-hello-regexp "^, doctor"
+(defcustom riece-doctor-hello-regexp "^,doctor$"
   "Pattern of string patients start consultation."
   :type 'string
   :group 'riece-doctor)
 
-(defcustom riece-doctor-bye-regexp "^, bye doctor"
+(defcustom riece-doctor-bye-regexp "^,doctor bye$"
   "Pattern of string patients end consultation."
   :type 'string
   :group 'riece-doctor)
@@ -93,13 +93,13 @@
 		(doctor-mode))
 	      (setq riece-doctor-patients (cons user riece-doctor-patients))
 	      (riece-doctor-reply
-	       (car targets)	   
+	       (car targets)
 	       (format
 		"%s: I am the psychotherapist.  \
 Please, describe your problems."
 		user)))
 	  (if (string-match riece-doctor-bye-regexp message)
-	      (let ((pointer (riece-identity-member user 
+	      (let ((pointer (riece-identity-member user
 						    riece-doctor-patients t)))
 		(when pointer
 		  (kill-buffer (riece-doctor-buffer-name user))