From: tsuchiya <tsuchiya>
Date: Wed, 24 May 2000 02:56:38 +0000 (+0000)
Subject: (nnshimbun-asahi-get-headers): Fix last change.
X-Git-Tag: t-gnus-6_14_4-03~18
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=4ff9a4cac7015f1780c7b85a8d9dcdac1370b0bc;p=elisp%2Fgnus.git-

(nnshimbun-asahi-get-headers): Fix last change.
---

diff --git a/lisp/nnshimbun.el b/lisp/nnshimbun.el
index 1439fe1..051692f 100644
--- a/lisp/nnshimbun.el
+++ b/lisp/nnshimbun.el
@@ -573,14 +573,15 @@
 			(re-search-forward
 			 "^\\[\\([0-9][0-9]\\)/\\([0-9][0-9]\\) \\([0-9][0-9]:[0-9][0-9]\\)\\]"
 			 nil t))
-	      (let ((date (decode-time (current-time))))
+	      (let ((month (string-to-number (match-string 1)))
+		    (date (decode-time (current-time))))
 		(mail-header-set-date
 		 (nth i headers)
 		 (nnshimbun-make-date-string
 		  (if (and (eq 12 month) (eq 1 (nth 4 date)))
 		      (1- (nth 5 date))
 		    (nth 5 date))
-		  (string-to-number (match-string 1))
+		  month
 		  (string-to-number (match-string 2))
 		  (match-string 3))))
 	      (setq i (1+ i))))