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

shimbun sb-zeit-de.el updates 

Hi,

the attached patch to sb-zeit-de adds some groups and fixes a bug with
missing <base href> tags.

regards,
Andreas

--8<---------------cut here---------------start------------->8---
2005-07-13  Andreas Seltenreich  <seltenreich@gmx.de>

	* shimbun/sb-zeit-de.el (shimbun-zeit-de-groups): Add new groups.
        (shimbun-zeit-de-content-start): Adjusted for new groups.
        (shimbun-index-url): Ditto.
        (shimbun-clear-contents): Always return non-nil, otherwise
        shimbun-make-html-contents won't add add proper <head> tags.

        * doc/emacs-w3m.texi (News Sites Supported by Shimbun): Update.

        * doc/emacs-w3m-ja.texi (News Sites Supported by Shimbun): Ditto.
--8<---------------cut here---------------end--------------->8---

Index: doc/emacs-w3m-ja.texi
===================================================================
RCS file: /storage/cvsroot/emacs-w3m/doc/emacs-w3m-ja.texi,v
retrieving revision 1.305
diff -u -r1.305 emacs-w3m-ja.texi
--- doc/emacs-w3m-ja.texi	12 Jul 2005 11:04:54 -0000	1.305
+++ doc/emacs-w3m-ja.texi	13 Jul 2005 21:44:39 -0000
@@ -4735,7 +4735,10 @@
 zdnet-jp.news.system zdnet-jp.column zdnet-jp.channel.security
 
 @item @uref{http://www.zeit.de/, Die Zeit}
-zeit-de.news
+zeit-de.chancen zeit-de.dossier zeit-de.hochschule zeit-de.leben
+zeit-de.literatur zeit-de.media zeit-de.news zeit-de.politik
+zeit-de.reden zeit-de.reisen zeit-de.wirtschaft zeit-de.wissen
+zeit-de.wohlfuehlen zeit-de.zeitlaeufte
 @end table
 
 @node Mailing Lists Supported by Shimbun
Index: doc/emacs-w3m.texi
===================================================================
RCS file: /storage/cvsroot/emacs-w3m/doc/emacs-w3m.texi,v
retrieving revision 1.284
diff -u -r1.284 emacs-w3m.texi
--- doc/emacs-w3m.texi	12 Jul 2005 11:04:54 -0000	1.284
+++ doc/emacs-w3m.texi	13 Jul 2005 21:44:43 -0000
@@ -4683,7 +4683,10 @@
 zdnet-jp.news.system zdnet-jp.column zdnet-jp.channel.security
 
 @item @uref{http://www.zeit.de/, Die Zeit}
-zeit-de.news
+zeit-de.chancen zeit-de.dossier zeit-de.hochschule zeit-de.leben
+zeit-de.literatur zeit-de.media zeit-de.news zeit-de.politik
+zeit-de.reden zeit-de.reisen zeit-de.wirtschaft zeit-de.wissen
+zeit-de.wohlfuehlen zeit-de.zeitlaeufte
 @end table
 
 @node Mailing Lists Supported by Shimbun
Index: shimbun/sb-zeit-de.el
===================================================================
RCS file: /storage/cvsroot/emacs-w3m/shimbun/sb-zeit-de.el,v
retrieving revision 1.7
diff -u -r1.7 sb-zeit-de.el
--- shimbun/sb-zeit-de.el	5 Jul 2005 23:52:29 -0000	1.7
+++ shimbun/sb-zeit-de.el	13 Jul 2005 21:44:43 -0000
@@ -28,10 +28,15 @@
 
 (luna-define-class shimbun-zeit-de (shimbun-rss) ())
 
-(defvar shimbun-zeit-de-groups
-  '("news"))
+(defvar shimbun-zeit-de-groups 
+  '("chancen" "dossier" "hochschule" "leben" "literatur" "media"
+    "news" "politik" "reden" "reisen" "wirtschaft" "wissen"
+    "wohlfuehlen" "zeitlaeufte"
+))
+
+(defvar shimbun-zeit-de-content-start
+  "title\">\\|<!--content starts here-->\\(?:<table[^>]+>\\)?")
 
-(defvar shimbun-zeit-de-content-start "title\">")
 (defvar shimbun-zeit-de-content-end
   (concat
    "</body>\\|</html>\\|navigation[^><]*>[^A]\\|"
@@ -90,7 +95,10 @@
       (goto-char (point-min)))))
 
 (luna-define-method shimbun-index-url ((shimbun shimbun-zeit-de))
-  "http://newsfeed.zeit.de/")
+  (let ((group (shimbun-current-group shimbun)))
+    (if (equal group "news")
+	"http://newsfeed.zeit.de/")
+    (concat "http://newsfeed.zeit.de/" group "/index")))
 
 (luna-define-method shimbun-clear-contents :after ((shimbun shimbun-zeit-de)
 						    header)
@@ -100,7 +108,8 @@
   (shimbun-remove-tags "<IFRAME[^>]*doubleclick.net[^>]*>")
   (shimbun-remove-tags "<img[^>]*doubleclick.net[^>]*>")
   (shimbun-remove-tags "<img[^>]*\\(width\\|height\\)=\"1px\"[^>]*>")
-  (shimbun-remove-tags "<tr><td[^>]*>Anzeige</td></tr>"))
+  (shimbun-remove-tags "<tr><td[^>]*>Anzeige</td></tr>")
+  t)
 
 (provide 'sb-zeit-de)