* riece-doctor.el (riece-doctor-hello-regexp): Changed regexp.

[riece] / lisp / riece-doctor.el

diff --git a/lisp/riece-doctor.el b/lisp/riece-doctor.el
index a7fbdd7..6541157 100644 (file)
--- 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))