* lisp/nnshimbun.el (nnshimbun-request-article-1): Replace a date string in

`gnus-newsgroup-data' only when article header has non-nil value.

diff --git a/ChangeLog b/ChangeLog
index 791d45f..e65d8da 100644 (file)
--- 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 <yamaoka@jpl.org>
 

diff --git a/lisp/nnshimbun.el b/lisp/nnshimbun.el
index 9f92c68..76f7908 100644 (file)
--- 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