X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fmailheader.el;h=5e2b097bb50df8e624ef411c3668b95f3a59f632;hb=c72dc1baf88de9ea6daddf1f210ec174691bc95f;hp=6eb56695243cb7a6cb43028c4b40200679f31cfd;hpb=3744aa624a1af97f360196755fdeeb6382da8aca;p=elisp%2Fgnus.git-

diff --git a/lisp/mailheader.el b/lisp/mailheader.el
index 6eb5669..5e2b097 100644
--- a/lisp/mailheader.el
+++ b/lisp/mailheader.el
@@ -60,7 +60,7 @@ that name."
 	start end)
     (while (and (setq start (point))
 		(> (skip-chars-forward "^\0- :") 0)
-		(eq (char-after) ?:)
+		(= (following-char) ?:)
 		(setq end (point))
 		(progn (forward-char)
 		       (> (skip-chars-forward " \t") 0)))