Small sb-heise.el fix

[David Hansen <david.hansen@xxxxxxx>]

2008-02-24 David Hansen <david.hansen@xxxxxxx>

        * sb-heise.el: (shimbun-heise-wash-telepolis-article): relax ad
        filtering regexp.

*** sb-heise.el.~1.17.~	2005-08-07 11:48:11.000000000 +0200
--- sb-heise.el	2008-02-24 04:29:23.000000000 +0100
***************
*** 1,6 ****
  ;;; sb-heise.el --- heise online shimbun backend
  
! ;; Copyright (C) 2004, 2005 David Hansen
  
  ;; Author: David Hansen <david.hansen@xxxxxxxxxxxxxxxxxxx>
  ;; Keywords: news
--- 1,6 ----
  ;;; sb-heise.el --- heise online shimbun backend
  
! ;; Copyright (C) 2004, 2005, 2008 David Hansen
  
  ;; Author: David Hansen <david.hansen@xxxxxxxxxxxxxxxxxxx>
  ;; Keywords: news
***************
*** 194,200 ****
      (while (re-search-forward "<TP\\(xBUT\\|:AD\\)>" nil t nil)
        (delete-region (point) (re-search-forward "</TP\\(xBUT\\|:AD\\)>" nil t nil)))
      (goto-char (point-min))
!     (while (re-search-forward "<!--OAS AD=\"Middle[0-9]*\"-->" nil t nil)
        (let ((beg (search-backward "<table" nil t nil))
              (end (search-forward "</table>" nil t nil)))
          (when (and beg end) (delete-region beg end))))))
--- 194,200 ----
      (while (re-search-forward "<TP\\(xBUT\\|:AD\\)>" nil t nil)
        (delete-region (point) (re-search-forward "</TP\\(xBUT\\|:AD\\)>" nil t nil)))
      (goto-char (point-min))
!     (while (re-search-forward "<!--OAS AD=\"Middle[0-9]*" nil t nil)
        (let ((beg (search-backward "<table" nil t nil))
              (end (search-forward "</table>" nil t nil)))
          (when (and beg end) (delete-region beg end))))))