anchor.diff:                  (copy-list (getf mailbox :unread))))
          ((string= "unread" filter)
           (getf mailbox :unread))
  -       ((string= "comboxt" filter)
  +       ((string= "compost" filter)
           (getf mailbox :compost)))
       #'> :key #'message-time)))
   
  
positive.code:                                        :test #'equal)
                                 :unread))))
                 (htm
                   (:div :class (s+ (case status
                                      (:read "read")
                                      (:unread "unread"))
                                    " mail card")
                     (:input :type "checkbox"
                             :name "message-id"
                             :value (message-id item))
                     (:div :class "message-content"
                       (case (message-type item)
                         (:conversation
                           (str (conversation-inbox-item item item-data)))
                         (:reply
                           (str (reply-inbox-item item item-data)))
                         (:contact-n
                           (htm
                             (str (h3-timestamp (message-time item)))
                             (:p (str (person-link (getf item-data :subject)))
                              " added you as a contact.")))
  
                         (:gratitude
                           (unless (eql (getf item-data :author) *userid*)
                             (htm
                               (str (h3-timestamp (message-time item)))
                               (:p (str (person-link (getf item-data :author)))
                                   " shared "
                                   (:a :href (strcat "/gratitude/"
                                                     (message-id item))
                                       "gratitude")
                                   " for you.")))))))))
               (setf items (cdr items)))
  
              ((and (eql i start)
  
negative.code:         (:input :type "hidden" :name "mailbox" :value string-mailbox)
          (:input :type "hidden" :name "filter" :value filter)
          (:div :class "mail card menu"
            (if (string= filter "compost")
              (htm
                (:button :class "cancel small" :type "submit" :name "mark-read"
                  "move to inbox")
                (:button :class "cancel small" :type "submit" :name "delete"
                  "delete"))
              (htm
                (:button :class "cancel small" :type "submit" :name "mark-read"
                  "mark read")
                (:button :class "cancel small" :type "submit" :name "mark-unread"
                  "mark unread")
                (:button :class "cancel small" :type "submit" :name "discard"
                  "discard"))))
          (iter (for i from 0 to (+ start count))
            (cond
              ((< i start)
  