From: yamaoka <yamaoka>
Date: Tue, 15 Jun 2004 06:05:29 +0000 (+0000)
Subject: Synch to No Gnus 200406150605.
X-Git-Tag: t-gnus-6_17_4-quimby-~861
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=ab5e716a866e016a542fad3d2a6a16f197f7393f;p=elisp%2Fgnus.git-

Synch to No Gnus 200406150605.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 57de3a9..1608795 100644
--- 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
--- 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))