- (when (riece-identity-member-no-server user riece-doctor-patients)
- (riece-doctor-reply
- (car targets)
- (save-excursion
- (set-buffer (get-buffer (riece-doctor-buffer-name user)))
- (goto-char (point-max))
- (insert message "\n")
- (let ((point (point))
- string)
- (doctor-read-print)
- (setq string (buffer-substring (1+ point)(- (point) 2)))
- (with-temp-buffer
- (insert string)
- (subst-char-in-region (point-min) (point-max) ?\n ? )
- (buffer-string))))))))))
+ (if (riece-identity-member user riece-doctor-patients)
+ (let (string)
+ (save-excursion
+ (set-buffer (get-buffer (riece-doctor-buffer-name user)))
+ (goto-char (point-max))
+ (insert message "\n")
+ (let ((point (point)))
+ (doctor-read-print)
+ (setq string (buffer-substring (1+ point) (- (point) 2))))
+ (with-temp-buffer
+ (insert string)
+ (subst-char-in-region (point-min) (point-max) ?\n ? )
+ (setq string (buffer-string))))
+ (riece-doctor-reply (car targets) string)))))))