anchor.diff:      (write-sequence str stream)))
   
   (defun get-attachment (multipart-mime)
  +  ;; we expect the email to be a multipart mime
  +  ;; message, and the test results are in the first
  +  ;; (and the only) attachment.
     (let* ((mime-parts (cl-mime:content multipart-mime))
            (attachment-part (second mime-parts)))
       (cl-base64:base64-string-to-string (cl-mime:content attachment-part))))
   
  -;Gets attachments from all messages in mailbox and shows some information about saved attachments
  -;path and first line (maxsize = 150char)
  -;also creates a file with id that saved letters
   (defun get-all-attachments (host username password work-dir)
  -  "Saves attachments of all the messages in the specified
  -POP3 mailbox as files and returns the list of these files."
  +  "Saves test-results delivered as email attachments in the specified
  +POP3 mailbox as files on local file system, and returns the list of
  +these files. UIDs of all the processed POP3 messages are persisted 
  +using SAVE-LETTER-UIDS function."
     (let ((attachment-files '())
           (message-uids '()))
       (flet ((attachment-str (pop-connection msg-num)
  
positive.code:     (save-letter-uids message-uids work-dir)
      attachment-files))
  
  ;;; Helper for commit message and for email replies.
  ;;; 
  ;;; Breakdown the test resuls by contributors, then for every contributor
  ;;; by quicklisps, and then, for evenry contributor-quicklisp, store
  ;;; list of common lisp implementations.
  
  (defun make-submittions-info-table ()
    (make-hash-table :test 'equal))
  
negative.code:       (cl-pop:delete-pop-message conn msg-num)))
    (length uids))
  
  (defun save-letter-uids (letter-uids work-dir)
    (test-grid::write-to-file letter-uids (merge-pathnames "letter-uids.txt" work-dir))
    letter-uids)
  
  (defun read-letter-uids (work-dir)
    (test-grid::safe-read-file (merge-pathnames "letter-uids.txt" work-dir)))
  