`mailpeek': implement from(1) in elisp

Recommended for gnus users:
    (add-hook 'gnus-get-new-news-hook
	      (lambda ()
		(delete-windows-on mailpeek-buffer 'visible)))