anchor.diff:             (on-id (post-parameter-integer "on-id"))
              (text (post-parameter-string "text"))
              (next (post-parameter-string "next"))
  -           (subjects (parse-subject-list
  -                       (format nil "~A,~A" (post-parameter "add")
  -                                           (post-parameter "subject"))
  -                       :remove (write-to-string *userid*)))
  +           (subjects (remove (post-parameter-integer "remove")
  +                             (parse-subject-list
  +                               (format nil "~A,~A" (post-parameter "add")
  +                                                   (post-parameter "subject"))
  +                               :remove (write-to-string *userid*))))
              (single-recipient (or (post-parameter-integer "single-recipient")
                                    (when (= (length subjects) 1)
                                      (car subjects))))
  
positive.code:           ((post-parameter "add")
             (if (string= (post-parameter "add") "new")
               (g-add-subject
                 :subjects (parse-subject-list (post-parameter "subject")))
               (g-compose
                 :single-recipient (post-parameter "single-recipient")
                 :subjects subjects)))
  
negative.code:          (:input :type "submit" :class "cancel" :name "cancel" :value "Back")
  
           (when groupid
             (htm (:input :type "hidden" :name "identity-selection" :value groupid)))
           (when subjects
             (htm (:input :type "hidden" :name "subject" :value (format nil "~{~A~^,~}" subjects))))
           (when next
  