[Date Prev][Date Next][Thread Prev][][Date Index][Thread Index]

sb-asahi-mytown.el



http://mytown.asahi.com/ibaraki/http://mytown.asahi.com/kitakyu/
を読めるようにしてみました。よろしくおねがいします。
Index: sb-asahi-mytown.el
===================================================================
RCS file: /storage/cvsroot/emacs-w3m/shimbun/sb-asahi-mytown.el,v
retrieving revision 1.2
diff -u -r1.2 sb-asahi-mytown.el
--- sb-asahi-mytown.el	12 Aug 2003 04:22:54 -0000	1.2
+++ sb-asahi-mytown.el	5 Nov 2003 06:05:38 -0000
@@ -126,6 +126,9 @@
   "Return a list of headers."
   (let ((group (shimbun-current-group-internal shimbun))
 	(from (shimbun-from-address shimbun))
+	(ibaraki-or-kitakyu-p
+	 (string-match
+	  "ibaraki\\|kitakyu" (shimbun-current-group-internal shimbun)))
 	(case-fold-search t)
 	cyear cmonth start href artnum limit month day subject year headers)
     (setq cyear (decode-time)
@@ -142,9 +145,15 @@
 		      month (string-to-number (match-string 1))
 		      day (string-to-number (match-string 2)))
 		(goto-char start)
-		(re-search-forward ">\\([\t\n\r ]*<[^<>]+>\\)*[\t\n\r ]*\
+		(if ibaraki-or-kitakyu-p
+		    (progn
+		      (re-search-forward
+		       ">\\([^<>]+\\)" limit t)
+		      (setq subject (match-string 1)))
+		  (progn
+		    (re-search-forward ">\\([\t\n\r ]*<[^<>]+>\\)*[\t\n\r ]*\
 \\([^<>]+\\)[\t\n\r ]*<" limit t)
-		(setq subject (match-string 2)))
+		    (setq subject (match-string 2)))))
       (setq year (cond ((and (= 12 month) (= 1 cmonth))
 			(1- cyear))
 		       ((and (= 1 month) (= 12 cmonth))
-- 
Hiroshi Fujishima