[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
sb-asahi-mytown.el
- From: Hiroshi Fujishima <pooh@xxxxxxxxxxxxxxxxxxxx>
- Date: Wed, 05 Nov 2003 15:17:39 +0900
- X-ml-name: emacs-w3m
- X-mail-count: 06016
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