From 4ff9a4cac7015f1780c7b85a8d9dcdac1370b0bc Mon Sep 17 00:00:00 2001 From: tsuchiya Date: Wed, 24 May 2000 02:56:38 +0000 Subject: [PATCH] (nnshimbun-asahi-get-headers): Fix last change. --- lisp/nnshimbun.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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)))) -- 1.7.10.4