Index: shimbun/sb-palmfan.el
===================================================================
RCS file: /storage/cvsroot/emacs-w3m/shimbun/sb-palmfan.el,v
retrieving revision 1.7
diff -c -r1.7 sb-palmfan.el
*** shimbun/sb-palmfan.el	20 May 2002 11:29:40 -0000	1.7
--- shimbun/sb-palmfan.el	5 Nov 2002 13:05:57 -0000
***************
*** 45,59 ****
  
  (defconst shimbun-palmfan-date-regexp
    ;;<P><A name="Apr,13.2002"></A><B>　Apr,13.2002</B><A href="#Apr,12.2002">▼</A>
!   "^<P><A name=\"\\(Jan\\|Feb\\|Mar\\|Apr\\|May\\|Jun\\|Jul\\|Aug\\|Sep\\|Oct\\|Nov\\|Dec\\|\\),\\([0-9]+\\)\\.\\([0-9]+\\)\"></A><B>.*▼</A>$")
  
  (defconst shimbun-palmfan-palmwarefan-date-regexp
    "<!-- \\([0-9][0-9][0-9][0-9]\\)/\\([0-9][0-9]*\\)/\\([0-9][0-9]*\\) -->$")
  
  (defconst shimbun-palmfan-month-alist
!   '(("Jan" . 1) ("Feb" . 2) ("Mar" . 3) ("Apr" . 4)
!     ("May" . 5) ("Jun" . 6) ("Jul" . 7) ("Aug" . 8)
!     ("Sep" . 9) ("Oct" . 10) ("Nov" . 11) ("Dec" . 12)))
  
  (luna-define-method initialize-instance :after ((shimbun shimbun-palmfan)
  						&rest init-args)
--- 45,60 ----
  
  (defconst shimbun-palmfan-date-regexp
    ;;<P><A name="Apr,13.2002"></A><B>　Apr,13.2002</B><A href="#Apr,12.2002">▼</A>
!   ;;"^<P><A name=\"\\(Jan\\|Feb\\|Mar\\|Apr\\|May\\|Jun\\|Jul\\|Aug\\|Sep\\|Oct\\|Nov\\|Dec\\|\\),\\([0-9]+\\)\\.\\([0-9]+\\)\"></A><B>.*▼</A>$")
!   "^<!-- 日付 -->\n+.*\\(January\\|February\\|March\\|April\\|May\\|Jun\\|July\\|August\\|September\\|October\\|November\\|December\\),\\([0-9]+\\)\\.\\([0-9]+\\)")
  
  (defconst shimbun-palmfan-palmwarefan-date-regexp
    "<!-- \\([0-9][0-9][0-9][0-9]\\)/\\([0-9][0-9]*\\)/\\([0-9][0-9]*\\) -->$")
  
  (defconst shimbun-palmfan-month-alist
!   '(("January" . 1) ("February" . 2) ("March" . 3) ("April" . 4)
!     ("May" . 5) ("June" . 6) ("July" . 7) ("August" . 8)
!     ("September" . 9) ("October" . 10) ("November" . 11) ("December" . 12)))
  
  (luna-define-method initialize-instance :after ((shimbun shimbun-palmfan)
  						&rest init-args)