(smiley-region): Bind `inhibit-point-motion-hooks' to t, so that we

don't get stuck while trying to smilefy intangible text.

2 files changed, 7 insertions, 0 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 6ce304d9978..4636cf3dd25 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,9 @@
+2000-12-13  Miles Bader  <miles@gnu.org>
+
+        * smiley-ems.el (smiley-region): Bind `inhibit-point-motion-hooks'
+        to t, so that we don't get stuck while trying to smilefy
+        intangible text.
+
 2000-12-12  Gerd Moellmann  <gerd@gnu.org>
 
         * smiley-ems.el (smiley-regexp-alist): Make regexps match
diff --git a/lisp/gnus/smiley-ems.el b/lisp/gnus/smiley-ems.el
index 4b54197c40e..e3bc261bb96 100644
--- a/lisp/gnus/smiley-ems.el
+++ b/lisp/gnus/smiley-ems.el
@@ -108,6 +108,7 @@ which smileys to operate on and which images to use for them."
       (smiley-update-cache))
     (save-excursion
       (let ((beg (or start (point-min)))
+            (inhibit-point-motion-hooks t)
             group overlay image)
         (dolist (entry smiley-cached-regexp-alist)
           (setq group (nth 1 entry)