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

diff --git a/lisp/nnshimbun.el b/lisp/nnshimbun.el
index 1439fe1..051692f 100644 (file)
--- 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))))