create-animated-image: Don't add heuristic mask to image (Bug#6839).

2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e9712bd80dd..6a92ea844aa 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-08-18  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+        * image.el (create-animated-image): Don't add heuristic mask to image
+        (Bug#6839).
+
 2010-08-18  Jan Djärv  <jan.h.d@swipnet.se>
 
         * term/ns-win.el (ns-get-pasteboard, ns-set-pasteboard): Use
diff --git a/lisp/image.el b/lisp/image.el
index 287cca81570..4a68b4999ea 100644
--- a/lisp/image.el
+++ b/lisp/image.el
@@ -616,7 +616,7 @@ Images should not be larger than specified by `max-image-size'."
     (let* ((animate (memq type image-animated-types))
            (image
             (append (list 'image :type type (if data-p :data :file) file-or-data)
-                    (if animate '(:index 0 :mask heuristic))
+                    (if animate '(:index 0))
                     props)))
       (if animate
           (image-animate-start image))