anchor.diff:                   (asetf (getf status :read)
                           (push mailbox it))
                    (asetf (getf status :unread)
  -                        (push mailbox it)))))
  +                        (push mailbox it)))
  +                 (asetf mailboxes
  +                       (push (list mailbox) it))))
              (modify-db id :status status
                            :mailboxes mailboxes)))
           (setf status (list :read nil :unread nil)
  
positive.code:                 (copy-list (getf mailbox :unread))))
         ((string= "unread" filter)
          (getf mailbox :unread))
         ((string= "comboxt" filter)
          (getf mailbox :compost)))
      #'> :key #'message-time)))
  
  
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)
  