From 4d464e5f7ae83795521a4dc747da7eca9063da0b Mon Sep 17 00:00:00 2001 From: kaoru Date: Sun, 5 Aug 2007 01:11:55 +0000 Subject: [PATCH] wl-score.el (wl-score-insert-header): Add guard for `std11-unfold-string'. --- wl/ChangeLog | 5 +++++ wl/wl-score.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) 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 + + * wl-score.el (wl-score-insert-header): Add guard for + `std11-unfold-string'. + 2007-04-06 Hiroya Murata * 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. -- 1.7.10.4