anchor.diff:  		  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
  
positive.code: 	    (if start
  		(incf start)
  		(return mailboxes))
  	    )))))
  
  (defun parse-group-address (string &key (start 0) (end (length string)) (errorp t))
  
negative.code: 				       " GMT"
  				       "")))))
  	       		  (setf last-date (cons (cons ut time-zone) result))
  			  result)))))
  