(message-fetch-field): Mention narrow-to-headers

requirement.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7449c1d..37bb236 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-06-03  Kai Gro\e,A_\e(Bjohann  <kai.grossjohann@gmx.net>
+
+       * message.el (message-fetch-field): Mention narrow-to-headers
+       requirement.
+
 2003-06-03  Jesper Harder  <harder@ifa.au.dk>
 
        * gnus-xmas.el (gnus-xmas-create-image): Use

diff --git a/lisp/message.el b/lisp/message.el
index 88ab666..cfd4324 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -1533,7 +1533,9 @@ is used by default."
       (looking-at message-unix-mail-delimiter))))
 
 (defun message-fetch-field (header &optional not-all)
-  "The same as `mail-fetch-field', only remove all newlines."
+  "The same as `mail-fetch-field', only remove all newlines.
+Note that the buffer should be narrowed to the headers; see
+function `message-narrow-to-headers-or-head'."
   (let* ((inhibit-point-motion-hooks t)
         (case-fold-search t)
         (value (mail-fetch-field header nil (not not-all))))