Fix: inhibit point motion hooks when encoding an enriched document.

* lisp/textmodes/enriched.el (enriched-encode): Use
inhibit-point-motion-hooks in addition to inhibit-read-only.

Fixes: debbugs:18246

lisp/ChangeLog

@@ -10,6 +10,10 @@
 	in place of the file name while working on non-file buffers, just
 	like hack-dir-local-variables already does.  (Bug#19140)
 
+	* textmodes/enriched.el (enriched-encode): Use
+	inhibit-point-motion-hooks in addition to inhibit-read-only.
+	(Bug#18246)
+
 2015-01-17  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* emacs-lisp/eieio-core.el (eieio--class-constructor): Rename from

lisp/textmodes/enriched.el

@@ -314,7 +314,8 @@ the region, and the START and END of each region."
 ;;;###autoload
 (defun enriched-encode (from to orig-buf)
   (if enriched-verbose (message "Enriched: encoding document..."))
-  (let ((inhibit-read-only t))
+  (let ((inhibit-read-only t)
+	(inhibit-point-motion-hooks t))
     (save-restriction
       (narrow-to-region from to)
       (delete-to-left-margin)