+
+
+(cond ((and (>= (string-to-int emacs-version) 19) window-system)
+ (require 'hilit19)
+ (defun mime/set-face-region (b e face)
+ (let ((sym (intern face)))
+ (if (eq sym 'italic)
+ (setq sym 'modeline)
+ )
+ (if (member sym (face-list))
+ (progn
+ (hilit-unhighlight-region b e)
+ (hilit-region-set-face b e sym)
+ ))))
+ )
+ ((and (boundp 'NEMACS) NEMACS)
+ (setq mime/available-face-list
+ '("bold" "italic" "underline"))
+ (setq mime/available-face-attribute-alist
+ '(("bold" . inversed-region)
+ ("italic" . underlined-region)
+ ("underline" . underlined-region)
+ ))
+ (defun mime/set-face-region (beg end sym)
+ (attribute-add-narrow-attribute
+ (cdr (assoc sym mime/available-face-attribute-alist))
+ beg end))
+ )
+ (t
+ (setq mime/text/richtext-face-list
+ nil)
+ (defun mime/set-face-region (beg end sym)
+ )
+ ))
+
+
+;;; @ text/richtext
+;;;
+
+(defun mime/decode-text/richtext-region (beg end)