From: Taylor R Campbell <campbell@mumble.net>
Date: Tue, 12 Oct 2010 02:31:58 +0000 (+0000)
Subject: Fix harmless typo in recent change to cache IMAIL message properties.
X-Git-Tag: 20101212-Gtk~44
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d85e6ab0a7293cd252f54e304ef121e02059dc85;p=mit-scheme.git

Fix harmless typo in recent change to cache IMAIL message properties.
---

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)