[Date Prev][Date Next][Thread Prev][][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