wl-score.el (wl-score-insert-header): Add guard for `std11-unfold-string'.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 6f88e0d..f9b1500 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2007-08-05  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+       * wl-score.el (wl-score-insert-header): Add guard for
+       `std11-unfold-string'.
+
 2007-04-06  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
        * wl-summary.el (wl-summary-goto-folder-subr): Call

diff --git a/wl/wl-score.el b/wl/wl-score.el
index a236ed4..fd94bbd 100644 (file)
--- a/wl/wl-score.el
+++ b/wl/wl-score.el
@@ -564,7 +564,8 @@ Set `wl-score-cache' nil."
          (setq this (wl-score-ov-entity-get (car art)
                                             wl-score-index
                                             extra-header))
-         (and this (setq this (std11-unfold-string this)))
+         (when (stringp this)
+           (setq this (std11-unfold-string this)))
          (if (equal last this)
              ;; O(N*H) cons-cells used here, where H is the number of
              ;; headers.