From: kaoru <kaoru>
Date: Sun, 5 Aug 2007 01:11:55 +0000 (+0000)
Subject: wl-score.el (wl-score-insert-header): Add guard for `std11-unfold-string'.
X-Git-Tag: wl-2_15_6-fixes~80
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4d464e5f7ae83795521a4dc747da7eca9063da0b;p=elisp%2Fwanderlust.git

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
--- 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
--- 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.