;; PDFS start with %PDF-1.x as the first few characters.
(if (not (string= (buffer-substring 1 6) "%PDF-"))
(progn
(message "%s" (buffer-string))
;; PDFS start with %PDF-1.x as the first few characters.
(if (not (string= (buffer-substring 1 6) "%PDF-"))
(progn
(message "%s" (buffer-string))