Work with CRLF.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c816450..b5f6df0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+1999-12-12 03:08:15  Shenghuo ZHU  <zsh@cs.rochester.edu>
+
+       * ietf-drums.el (ietf-drums-narrow-to-header): Make it work with
+       CRLF.
+
 1999-12-11 14:42:26  Shenghuo ZHU  <zsh@cs.rochester.edu>
 
        * webmail.el: Require url-cookie.

diff --git a/lisp/ietf-drums.el b/lisp/ietf-drums.el
index c28c942..6ef4fc1 100644 (file)
--- 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)))