X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fmailheader.el;h=796ae759f5ce20f143c3d0f17a5fe959eba6cb25;hb=afe49bba768037615b6d4795edb7b666c26a8360;hp=5e2b097bb50df8e624ef411c3668b95f3a59f632;hpb=4c2e20a67169654caf07221554d9e637d3f7bbfa;p=elisp%2Fgnus.git-

diff --git a/lisp/mailheader.el b/lisp/mailheader.el
index 5e2b097..796ae75 100644
--- a/lisp/mailheader.el
+++ b/lisp/mailheader.el
@@ -46,7 +46,7 @@
 
 ;;; Code:
 
-(require 'cl)
+(eval-when-compile (require 'cl))
 
 ;; Make the byte-compiler shut up.
 (defvar headers)
@@ -60,7 +60,7 @@ that name."
 	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)))