(mm-inline-text): Use equal instead of equalp.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f27e6af..f8bf778 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2006-04-19  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * mm-view.el (mm-inline-text): Use equal instead of equalp.
+
 2006-04-18  Teodor Zlatanov  <tzz@lifelogs.com>
 
        * gnus-registry.el (gnus-registry-cache-save): remove text

diff --git a/lisp/mm-view.el b/lisp/mm-view.el
index 675d4e3..7bf57e1 100644 (file)
--- a/lisp/mm-view.el
+++ b/lisp/mm-view.el
@@ -422,8 +422,8 @@
       (save-restriction
        (narrow-to-region b (point))
        (goto-char b)
-       (fill-flowed nil (equalp (cdr (assoc 'delsp (mm-handle-type handle)))
-                                "yes"))
+       (fill-flowed nil (equal (cdr (assoc 'delsp (mm-handle-type handle)))
+                               "yes"))
        (goto-char (point-max))))
     (save-restriction
       (narrow-to-region b (point))