From ab5e716a866e016a542fad3d2a6a16f197f7393f Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 15 Jun 2004 06:05:29 +0000 Subject: [PATCH] Synch to No Gnus 200406150605. --- lisp/ChangeLog | 5 +++++ lisp/nnheader.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) 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 + + * nnheader.el (nnheader-nov-read-message-id): Pass the optional + arg to nnheader-generate-fake-message-id. + 2004-06-14 Teodor Zlatanov * 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)) -- 1.7.10.4