From d85e6ab0a7293cd252f54e304ef121e02059dc85 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Tue, 12 Oct 2010 02:31:58 +0000 Subject: [PATCH] Fix harmless typo in recent change to cache IMAIL message properties. --- src/imail/imail-core.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/imail/imail-core.scm b/src/imail/imail-core.scm index 9dad4147d..d78e59836 100644 --- a/src/imail/imail-core.scm +++ b/src/imail/imail-core.scm @@ -638,7 +638,7 @@ USA. (parse-header-field-date date)))))) (define (message-subject message) - (intern-property! message '|#[(edwin imail)message-subject| + (intern-property! message '|#[(edwin imail)message-subject]| (lambda (message) (cond ((get-first-header-field-value message "subject" #f) => strip-subject-re) @@ -657,7 +657,7 @@ USA. (define char-set:subject-content (char-set-invert (char-set #\space #\tab))) (define (message-author message) - (intern-property! message '|#[(edwin imail)message-author| + (intern-property! message '|#[(edwin imail)message-author]| (lambda (message) (or (get-first-header-field-address message "from" #f) (get-first-header-field-address message "sender" #f) -- 2.25.1