[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Small sb-weeklyworldnews.el patch
- From: David Hansen <david.hansen@xxxxxxx>
- Date: Sat, 16 Jul 2005 12:10:07 +0200
- X-ml-name: emacs-w3m
- X-mail-count: 08334
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)