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

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

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 6ce304d9978787604afc0931e0172a9bf11e1fe6..4636cf3dd25eeb3a03fad8fed8087f7479a9d56a 100644 (file)
--- 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 4b54197c40e95f1535cf00fb895d7af30884b3f1..e3bc261bb962c6ce179bead82400b22a73c2357d 100644 (file)
--- 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)