sb-zeit-de.el patch

[Andreas Seltenreich <seltenreich@xxxxxx>]

Hi,

Attached is an update for sb-zeit-de.el.

Regarding the pending release: sb-welt-de, sb-n24-de and sb-laut-de
are currently dysfunctional too, however I don't think I can manage to
update them in time. Feel free to dispose them.

regards,
andreas

2006-12-13  Andreas Seltenreich  <uwi7@xxxxxxxxxxxxxxxxxxx>

	* shimbun/sb-zeit-de.el: Adapt to markup and group changes.


Index: sb-zeit-de.el
===================================================================
RCS file: /storage/cvsroot/emacs-w3m/shimbun/sb-zeit-de.el,v
retrieving revision 1.11
diff -c -r1.11 sb-zeit-de.el
*** sb-zeit-de.el	6 Jun 2006 03:35:50 -0000	1.11
--- sb-zeit-de.el	13 Dec 2006 05:37:01 -0000
***************
*** 21,26 ****
--- 21,32 ----
  ;; program's maintainer or write to: The Free Software Foundation,
  ;; Inc.; 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
  
+ ;;; Commentary:
+ 
+ ;; Macro used to extract groups from the overview-page
+ ;; (fset 'sb-zeit-de-macro [?\C-s ?d ?e ?/ ?\C-m ?\C-  ?\C-a ?\C-w ?\"
+ ;; 			       ?\M-f ?\" ?\C-k ?\C-k ?\C-k return ?\C-k])
+ 
  ;;; Code:
  
  (require 'shimbun)
***************
*** 29,38 ****
  (luna-define-class shimbun-zeit-de (shimbun-rss) ())
  
  (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[^>]+>\\)?")
--- 35,43 ----
  (luna-define-class shimbun-zeit-de (shimbun-rss) ())
  
  (defvar shimbun-zeit-de-groups
!   '("auto" "computer" "deutschland" "feuilleton" "gesundheit"
!     "international" "leben" "literatur" "musik" "news" "reisen"
!     "schule" "sport" "studium" "wirtschaft" "wissen" "zuender"))
  
  (defvar shimbun-zeit-de-content-start
    "title\">\\|<!--content starts here-->\\(?:<table[^>]+>\\)?")
***************
*** 40,46 ****
  (defvar shimbun-zeit-de-content-end
    (concat
     "</body>\\|</html>\\|navigation[^><]*>[^A]\\|"
!    "<script language=\"JavaScript1\.2\" type=\"text/javascript\">"))
  
  (defvar shimbun-zeit-de-from-address "DieZeit@xxxxxxx")
  
--- 45,52 ----
  (defvar shimbun-zeit-de-content-end
    (concat
     "</body>\\|</html>\\|navigation[^><]*>[^A]\\|"
!    "<script language=\"JavaScript1\.2\" type=\"text/javascript\">\\|"
!    "<div[^>]+class=\"comments"))
  
  (defvar shimbun-zeit-de-from-address "DieZeit@xxxxxxx")
  
***************
*** 95,100 ****
--- 101,107 ----
  						    header)
  
    ;;  remove advertisements and 1-pixel-images aka webbugs
+   (shimbun-remove-tags "<div[^>]*class=\"?\\(?:ad\\|most_read\\)" "</div>")
    (shimbun-remove-tags "<a[^>]*doubleclick.net" "</a>")
    (shimbun-remove-tags "<IFRAME[^>]*doubleclick.net[^>]*>")
    (shimbun-remove-tags "<img[^>]*doubleclick.net[^>]*>")