On Mon, Sep 20, 2010 at 12:34:22AM +0200, Sebastian Rose wrote:
> (let ((opt-plist
>        (org-export-process-option-filters
>         (org-combine-plists (org-default-export-plist)
>          (org-publish-get-project-from-filename buffer-file-name)
>          (org-infile-export-plist)))))
> 
>   ;; the calculated style:
>   (message "%s" (plist-get opt-plist :style))
> 
>   ;; or show the entire content of the property list:
>   (message "%S" opt-plist))

Thanks a ton!  That works well for me.

--Aidan