Synch to No Gnus 200406240614.

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

diff --git a/lisp/nnheader.el b/lisp/nnheader.el
index 1b81916..547d3b2 100644 (file)
--- a/lisp/nnheader.el
+++ b/lisp/nnheader.el
@@ -789,14 +789,14 @@ 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))
-       (number (nnheader-nov-read-integer)))
+  (let* ((eol (point-at-eol))
+        (number (nnheader-nov-read-integer)))
     (make-full-mail-header
      number                            ; number
      (nnheader-nov-field)              ; subject