projects
/
elisp
/
gnus.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
T-gnus 6.15.24 revision 00.
[elisp/gnus.git-]
/
lisp
/
nnlistserv.el
diff --git
a/lisp/nnlistserv.el
b/lisp/nnlistserv.el
index
79b08b8
..
1008141
100644
(file)
--- a/
lisp/nnlistserv.el
+++ b/
lisp/nnlistserv.el
@@
-1,5
+1,6
@@
;;; nnlistserv.el --- retrieving articles via web mailing list archives
;;; nnlistserv.el --- retrieving articles via web mailing list archives
-;; Copyright (C) 1997,98,99 Free Software Foundation, Inc.
+
+;; Copyright (C) 1997, 1998, 1999, 2000 Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; Keywords: news, mail
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; Keywords: news, mail
@@
-23,14
+24,12
@@
;;; Commentary:
;;; Commentary:
-;; Note: You need to have `url' and `w3' installed for this
-;; backend to work.
-
;;; Code:
(eval-when-compile (require 'cl))
(require 'nnoo)
;;; Code:
(eval-when-compile (require 'cl))
(require 'nnoo)
+(require 'mm-url)
(require 'nnweb)
(nnoo-declare nnlistserv
(require 'nnweb)
(nnoo-declare nnlistserv
@@
-81,7
+80,7
@@
;;;
(defun nnlistserv-kk-create-mapping ()
;;;
(defun nnlistserv-kk-create-mapping ()
- "Perform the search and create an number-to-url alist."
+ "Perform the search and create a number-to-url alist."
(save-excursion
(set-buffer nnweb-buffer)
(let ((case-fold-search t)
(save-excursion
(set-buffer nnweb-buffer)
(let ((case-fold-search t)
@@
-94,7
+93,7
@@
(when (funcall (nnweb-definition 'search) page)
;; Go through all the article hits on this page.
(goto-char (point-min))
(when (funcall (nnweb-definition 'search) page)
;; Go through all the article hits on this page.
(goto-char (point-min))
- (nnweb-decode-entities)
+ (mm-url-decode-entities)
(goto-char (point-min))
(while (re-search-forward "^<li> *<a href=\"\\([^\"]+\\)\"><b>\\([^\\>]+\\)</b></a> *<[^>]+><i>\\([^>]+\\)<" nil t)
(setq url (match-string 1)
(goto-char (point-min))
(while (re-search-forward "^<li> *<a href=\"\\([^\"]+\\)\"><b>\\([^\\>]+\\)</b></a> *<[^>]+><i>\\([^>]+\\)<" nil t)
(setq url (match-string 1)
@@
-120,7
+119,7
@@
(let ((case-fold-search t)
(headers '(sent name email subject id))
sent name email subject id)
(let ((case-fold-search t)
(headers '(sent name email subject id))
sent name email subject id)
- (nnweb-decode-entities)
+ (mm-url-decode-entities)
(while headers
(goto-char (point-min))
(re-search-forward (format "<!-- %s=\"\\([^\"]+\\)" (car headers) nil t))
(while headers
(goto-char (point-min))
(re-search-forward (format "<!-- %s=\"\\([^\"]+\\)" (car headers) nil t))
@@
-131,7
+130,7
@@
(goto-char (point-max))
(search-backward "<!-- body" nil t)
(delete-region (point-max) (progn (beginning-of-line) (point)))
(goto-char (point-max))
(search-backward "<!-- body" nil t)
(delete-region (point-max) (progn (beginning-of-line) (point)))
- (nnweb-remove-markup)
+ (mm-url-remove-markup)
(goto-char (point-min))
(insert (format "From: %s <%s>\n" name email)
(format "Subject: %s\n" subject)
(goto-char (point-min))
(insert (format "From: %s <%s>\n" name email)
(format "Subject: %s\n" subject)
@@
-139,7
+138,7
@@
(format "Date: %s\n\n" sent))))
(defun nnlistserv-kk-search (search)
(format "Date: %s\n\n" sent))))
(defun nnlistserv-kk-search (search)
- (url-insert-file-contents
+ (mm-url-insert
(concat (format (nnweb-definition 'address) search)
(nnweb-definition 'index)))
t)
(concat (format (nnweb-definition 'address) search)
(nnweb-definition 'index)))
t)