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

Small sb-weeklyworldnews.el patch



Hello,

2005-07-15  David Hansen  <david.hansen@physik.fu-berlin.de>

        * shimbun/sb-weeklyworldnews.el (shimbun-get-headers): Remove HTML
          tags from headlines; removed forgotten debug code.

David
--- scratch/src/emacs-w3m/shimbun/sb-weeklyworldnews.el	2005-07-15 15:27:33.234950000 +0200
+++ sb-weeklyworldnews.el	2005-07-15 15:24:03.114950000 +0200
@@ -1,6 +1,6 @@
 ;;; sb-weeklyworldnews.el --- weekly world news shimbun backend
 
-;; Copyright (C) 2004 David Hansen
+;; Copyright (C) 2004, 2005 David Hansen
 
 ;; Author: David Hansen <david.hansen@physik.fu-berlin.de>
 ;; Keywords: news
@@ -57,7 +57,6 @@
 
   "From: header for the Weekly World News shimbun")
 
-
 (luna-define-method shimbun-get-headers
   ((shimbun shimbun-weeklyworldnews) &optional range)
   (let ((date "") (id) (url) (subject) (headers))
@@ -71,10 +70,9 @@
 		  (shimbun-replace-in-string (match-string 1) "/" "-")
 		  "-" (match-string 2)
 		  "@weeklyworldnews.com>"))
-	(setq subject (match-string 3))
+	(setq subject (w3m-replace-in-string (match-string 3) "</?[a-zA-Z]+>" ""))
 	(when (shimbun-search-id shimbun id)
 	  (throw 'stop nil))
-	(message id)
 	(push (shimbun-make-header
 	       0 (shimbun-mime-encode-string subject)
 	       (shimbun-mime-encode-string shimbun-weeklyworldnews-from)