Synch to No Gnus 200406150605.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 57de3a9..1608795 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-06-15  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * nnheader.el (nnheader-nov-read-message-id): Pass the optional
+       arg to nnheader-generate-fake-message-id.
+
 2004-06-14  Teodor Zlatanov  <tzz@lifelogs.com>
 
        * nnheader.el (nnheader-generate-fake-message-id): accept a

diff --git a/lisp/nnheader.el b/lisp/nnheader.el
index 1b81916..8a2aead 100644 (file)
--- a/lisp/nnheader.el
+++ b/lisp/nnheader.el
@@ -789,10 +789,10 @@ given, the return value will not contain the last newline."
      out))
 
 (defmacro nnheader-nov-read-message-id (&optional number)
-  '(let ((id (nnheader-nov-field)))
+  `(let ((id (nnheader-nov-field)))
      (if (string-match "^<[^>]+>$" id)
         id
-       (nnheader-generate-fake-message-id number))))
+       (nnheader-generate-fake-message-id ,number))))
 
 (defun nnheader-parse-nov ()
   (let ((eol (point-at-eol))