Synch to No Gnus 200406170516.

[elisp/gnus.git-] / lisp / nnheader.el

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))