(if (search-forward (concat filename ": ") nil t)
(let ((rest mime-file-content-type-alist))
(while (not (let ((cell (car rest)))
(if (search-forward (concat filename ": ") nil t)
(let ((rest mime-file-content-type-alist))
(while (not (let ((cell (car rest)))