;;; Code:
-(require 'cl)
+(eval-when-compile (require 'cl))
;; Make the byte-compiler shut up.
(defvar headers)
start end)
(while (and (setq start (point))
(> (skip-chars-forward "^\0- :") 0)
- (= (following-char) ?:)
+ (eq (char-after) ?:)
(setq end (point))
(progn (forward-char)
(> (skip-chars-forward " \t") 0)))