[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: sb-ruby.el
From: NAKAJIMA Mikio <minakaji@osaka.email.ne.jp>
Subject: [emacs-w3m:02947] Re: sb-ruby.el
Date: Wed, 13 Mar 2002 06:10:04 +0900
> どっちが一貫性があるかないかの理屈はともかく、ユーザとしては全部記事
> が読めた方が良いので、直しましょう。パッチ & ChangeLog お待ちします。
ChangeLogには私の名前で追加して頂いているようなので、日付、名前も付けます。
2002-03-13 SAITO Takuya <reed@lily.freemail.ne.jp>
* shimbun/sb-ruby.el (shimbun-get-headers): Make regexp
more flexible.
--
SAITO Takuya <reed@lily.freemail.ne.jp>
--- sb-ruby.el.orig Wed Mar 13 16:27:03 2002
+++ sb-ruby.el Wed Mar 13 17:22:33 2002
@@ -94,16 +94,16 @@
id url date subject from)
(goto-char (point-max))
(while (re-search-backward
- "^<DT><A NAME=\"[0-9]+\"></A><A HREF=\"\\([^>]+\\)\">\\([0-9]+\\)</A> \\([ /:0-9]+\\) \\[\\([^[]+\\)\\] \\(.+\\)$"
+ "^<DT><A NAME=\"[0-9]+\">\\(</A>\\)?<A HREF=\"\\([^>]+\\)\">\\([0-9]+\\)</A> \\([ /:0-9]+\\) \\[\\([^[]+\\)\\][ !]\\(.+\\)$"
nil t)
- (setq url (concat shimbun-ruby-url (match-string 1))
+ (setq url (concat shimbun-ruby-url (match-string 2))
id (format "<%s%05d%%%s>"
aux
- (string-to-number (match-string 2))
+ (string-to-number (match-string 3))
(shimbun-current-group-internal shimbun))
- date (shimbun-ruby-parse-time (match-string 3))
- from (match-string 4)
- subject (match-string 5))
+ date (shimbun-ruby-parse-time (match-string 4))
+ from (match-string 5)
+ subject (match-string 6))
(if (shimbun-search-id shimbun id)
(throw 'stop nil))
(push (shimbun-make-header