(setq rp-color-MIU "#AA60AA")

;(replace-regexp "\\(?:^\\|[–-]\\s-*\\)MIU:\\(.*:\\s-)\\(.+?\\)\\($\\|\\s-+[-–]\\s-+\\)" (concat "–<font style=\"color:" rp-color-miu "\"> \\2 </font>\\3"))
(defun xess ()
  (interactive)
  (message "%s" (eval(intern-soft "rp-color-MIU")))
)

(defun rp-dialogue ()
  (interactive)
  (setq last-point (point))
  (move-beginning-of-line 1)
  (replace-regexp "\\(?:^\\|[–-]\\s-*\\)\\(.*\\): \\(.+?\\)\\($\\|\\s-+[-–]\\s-+\\)" (concat "–<font style=\"color:"(eval(intern-soft "rp-color-\\\\\\1"))"\">\\2 </font>\\3"))
  (goto-char last-point)
)
