* nnheader.el (mail-narrow-to-head): Copy from ietf-drums.el;

 it should go to the beginning of the header after narrowing.

diff --git a/ChangeLog b/ChangeLog
index bcb078c..b1d53d1 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,7 +1,8 @@
 2002-01-08  Katsumi Yamaoka <yamaoka@jpl.org>
 
-       * lisp/nnheader.el (std11-extract-addresses-components): Protect
-       against nil argument.
+       * lisp/nnheader.el (mail-narrow-to-head): Copy from ietf-drums.el;
+       it should go to the beginning of the header after narrowing.
+       (std11-extract-addresses-components): Protect against nil argument.
 
 2002-01-08  Katsumi Yamaoka <yamaoka@jpl.org>
 

diff --git a/lisp/nnheader.el b/lisp/nnheader.el
index c97891b..16d5469 100644 (file)
--- a/lisp/nnheader.el
+++ b/lisp/nnheader.el
@@ -1223,7 +1223,14 @@ find-file-hooks, etc.
 
   (defalias 'mail-header-narrow-to-field 'std11-narrow-to-field)
 
-  (defalias 'mail-narrow-to-head 'std11-narrow-to-header)
+  (defun mail-narrow-to-head ()
+    "Narrow to the header section in the current buffer."
+    (narrow-to-region
+     (goto-char (point-min))
+     (if (re-search-forward "^\r?$" nil 1)
+        (match-beginning 0)
+       (point-max)))
+    (goto-char (point-min)))
 
   (defun-maybe std11-fold-field ()
     "Fold the current line."