diff --git a/lisp/htmlfontify.el b/lisp/htmlfontify.el
index f60e7e8..cdad960 100644
--- a/lisp/htmlfontify.el
+++ b/lisp/htmlfontify.el
@@ -373,6 +373,18 @@ commands in `hfy-etags-cmd-alist'."
:tag "shell-file-name"
:type '(file))
+(defcustom hfy-ignored-properties '(read-only
+ intangible
+ modification-hooks
+ insert-in-front-hooks
+ insert-behind-hooks
+ point-entered
+ point-left)
+ "Properties to omit when copying a fontified buffer for html transformation."
+ :group 'htmlfontify
+ :tag "ignored-properties"
+ :type '(repeat symbol))
+
(defun hfy-which-etags ()
"Return a string indicating which flavour of etags we are using."
(let ((v (shell-command-to-string (concat hfy-etags-bin " --version"))))
@@ -1623,6 +1635,8 @@ FILE, if set, is the file name."
(delete-overlay rovl))
(copy-to-buffer html-buffer (point-min) (point-max))
(set-buffer html-buffer)
+ ;; rip out props that could interfere with our htmlisation of the buffer:
+ (remove-text-properties (point-min) (point-max) hfy-ignored-properties)
;; Apply overlay invisible spec
(setq orig-ovls
(sort orig-ovls