+(defmacro mime-put-keymap-region (start end keymap)
+ `(put-text-property ,start ,end
+ ',(if (featurep 'xemacs)
+ 'keymap
+ 'local-map)
+ ,keymap))
+
+(defmacro mime-save-background-color (&rest body)
+ (if (featurep 'xemacs)
+ `(let ((color (color-name (face-background 'default))))
+ (prog1
+ (progn ,@body)
+ (font-set-face-background 'default color (current-buffer))
+ ))
+ (cons 'progn body)))
+