about summary refs log tree commit diff
path: root/users/sterni/mblog/note.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'users/sterni/mblog/note.lisp')
-rw-r--r--users/sterni/mblog/note.lisp8
1 files changed, 4 insertions, 4 deletions
diff --git a/users/sterni/mblog/note.lisp b/users/sterni/mblog/note.lisp
index fa4de0956ffb..660b4826b1ad 100644
--- a/users/sterni/mblog/note.lisp
+++ b/users/sterni/mblog/note.lisp
@@ -23,8 +23,8 @@
   to determine if a given mime message is an Apple Note."
   (when-let (uniform-id (assoc "X-Uniform-Type-Identifier"
                                (mime:mime-message-headers msg)
-                               :test #'string=))
-    (string= (cdr uniform-id) "com.apple.mail-note")))
+                               :test #'string-equal))
+    (string-equal (cdr uniform-id) "com.apple.mail-note")))
 
 (defun apple-note-html-fragment (msg out)
   "Takes a MIME:MIME-MESSAGE and writes its text content as HTML to
@@ -42,10 +42,10 @@
       ((not text) (error "Malformed Apple Note: no text part"))
       ;; notemap creates text/plain notes we need to handle properly.
       ;; Additionally we *could* check X-Mailer which notemap sets
-      ((string= (mime:mime-subtype text) "plain")
+      ((string-equal (mime:mime-subtype text) "plain")
        (html-escape-stream (mime:mime-body-stream text :binary nil) out))
       ;; Notes.app creates text/html parts
-      ((string= (mime:mime-subtype text) "html")
+      ((string-equal (mime:mime-subtype text) "html")
        (closure-html:parse
         (mime:mime-body-stream text)
         (make-instance