From a2002d54075d5466034e217acabc2bfb8213d3c8 Mon Sep 17 00:00:00 2001 From: tsuchiya Date: Fri, 8 Jun 2001 12:39:55 +0000 Subject: [PATCH] * lisp/nnshimbun.el (nnshimbun-request-article-1): Replace a date string in `gnus-newsgroup-data' only when article header has non-nil value. --- ChangeLog | 2 ++ lisp/nnshimbun.el | 5 +++-- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 791d45f..e65d8da 100644 --- a/ChangeLog +++ b/ChangeLog @@ -8,6 +8,8 @@ `nnshimbun-index-range' as the second parameter of `shimbun-headers'. (shimbun-mua-use-entire-index): Removed. + (nnshimbun-request-article-1): Replace a date string in + `gnus-newsgroup-data' only when article header has non-nil value. 2001-06-08 Katsumi Yamaoka diff --git a/lisp/nnshimbun.el b/lisp/nnshimbun.el index 9f92c68..76f7908 100644 --- a/lisp/nnshimbun.el +++ b/lisp/nnshimbun.el @@ -220,8 +220,9 @@ (shimbun-article nnshimbun-shimbun header) ;; Kludge! replace a date string in `gnus-newsgroup-data' ;; based on the newly retrieved article. - (mail-header-set-date (gnus-summary-article-header article) - (shimbun-header-date header)) + (let ((x (gnus-summary-article-header article))) + (when x + (mail-header-set-date x (shimbun-header-date header)))) (when (> (buffer-size) 0) (nnshimbun-replace-nov-entry group article header original-id) (nnshimbun-backlog -- 1.7.10.4