X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fietf-drums.el;h=6ef4fc1ba03184356cfd91e65710e7942bcf33e3;hb=027a90912122f2cb3e36d82310f32962e3ce2f71;hp=c28c942d2883e7449bfdae61a71d778537cf95c5;hpb=82300762c3419b73fc2e994b14e3d520fe88b0a9;p=elisp%2Fgnus.git-

diff --git a/lisp/ietf-drums.el b/lisp/ietf-drums.el
index c28c942..6ef4fc1 100644
--- a/lisp/ietf-drums.el
+++ b/lisp/ietf-drums.el
@@ -228,8 +228,8 @@
   "Narrow to the header section in the current buffer."
   (narrow-to-region
    (goto-char (point-min))
-   (if (re-search-forward "^\n" nil 1)
-       (1- (point))
+   (if (re-search-forward "^\r?$" nil 1)
+       (match-beginning 0)
      (point-max)))
   (goto-char (point-min)))