*** empty log message ***

[gnus] / lisp / mailheader.el

diff --git a/lisp/mailheader.el b/lisp/mailheader.el
index 5f6f60f..5e2b097 100644 (file)
--- 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)
-               (= (char-after (point)) ?:)
+               (= (following-char) ?:)
                (setq end (point))
                (progn (forward-char)
                       (> (skip-chars-forward " \t") 0)))