anchor.diff:  				       " GMT"
   				       "")))))
   	       		  (setf last-date (cons (cons ut time-zone) result))
  -			  result)))))+			  result)))))
  
positive.code: 	    (if start
  		(incf start)
  		(return addresses))
  	    )))))
  
  (defun address (address-designator)
  
negative.code: 		  next-index)
  		 (mime-parse-error "parsing mailbox-address: no local-part"))))))))
  
  (defun white-space-p (c)
    (case c
      ((#\space #\linefeed #\return #\tab) t)
      (otherwise nil)))
  
  (defun parse-mailbox-list (string  &key (start 0) (end (length string)))
    (let (mailboxes)
      (nreverse
  