[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/nnlistserv.el [lexbind]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/nnlistserv.el [lexbind] |
Date: |
Wed, 15 Sep 2004 20:34:41 -0400 |
Index: emacs/lisp/gnus/nnlistserv.el
diff -c emacs/lisp/gnus/nnlistserv.el:1.4.18.3
emacs/lisp/gnus/nnlistserv.el:1.4.18.4
*** emacs/lisp/gnus/nnlistserv.el:1.4.18.3 Mon Feb 9 14:14:11 2004
--- emacs/lisp/gnus/nnlistserv.el Thu Sep 16 00:12:16 2004
***************
*** 24,41 ****
;;; Commentary:
- ;; Note: You need to have `url' and `w3' installed for this
- ;; backend to work.
-
;;; Code:
(eval-when-compile (require 'cl))
(require 'nnoo)
! (eval-when-compile
! (ignore-errors
! (require 'nnweb)) ; requires W3
! (autoload 'url-insert-file-contents "nnweb"))
(nnoo-declare nnlistserv
nnweb)
--- 24,36 ----
;;; Commentary:
;;; Code:
(eval-when-compile (require 'cl))
(require 'nnoo)
! (require 'mm-url)
! (require 'nnweb)
(nnoo-declare nnlistserv
nnweb)
***************
*** 98,104 ****
(when (funcall (nnweb-definition 'search) page)
;; Go through all the article hits on this page.
(goto-char (point-min))
! (nnweb-decode-entities)
(goto-char (point-min))
(while (re-search-forward "^<li> *<a
href=\"\\([^\"]+\\)\"><b>\\([^\\>]+\\)</b></a> *<[^>]+><i>\\([^>]+\\)<" nil t)
(setq url (match-string 1)
--- 93,99 ----
(when (funcall (nnweb-definition 'search) page)
;; Go through all the article hits on this page.
(goto-char (point-min))
! (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)
***************
*** 124,130 ****
(let ((case-fold-search t)
(headers '(sent name email subject id))
sent name email subject id)
! (nnweb-decode-entities)
(while headers
(goto-char (point-min))
(re-search-forward (format "<!-- %s=\"\\([^\"]+\\)" (car headers)) nil
t)
--- 119,125 ----
(let ((case-fold-search t)
(headers '(sent name email subject id))
sent name email subject id)
! (mm-url-decode-entities)
(while headers
(goto-char (point-min))
(re-search-forward (format "<!-- %s=\"\\([^\"]+\\)" (car headers)) nil
t)
***************
*** 135,141 ****
(goto-char (point-max))
(search-backward "<!-- body" nil t)
(delete-region (point-max) (progn (beginning-of-line) (point)))
! (nnweb-remove-markup)
(goto-char (point-min))
(insert (format "From: %s <%s>\n" name email)
(format "Subject: %s\n" subject)
--- 130,136 ----
(goto-char (point-max))
(search-backward "<!-- body" nil t)
(delete-region (point-max) (progn (beginning-of-line) (point)))
! (mm-url-remove-markup)
(goto-char (point-min))
(insert (format "From: %s <%s>\n" name email)
(format "Subject: %s\n" subject)
***************
*** 143,149 ****
(format "Date: %s\n\n" sent))))
(defun nnlistserv-kk-search (search)
! (url-insert-file-contents
(concat (format (nnweb-definition 'address) search)
(nnweb-definition 'index)))
t)
--- 138,144 ----
(format "Date: %s\n\n" sent))))
(defun nnlistserv-kk-search (search)
! (mm-url-insert
(concat (format (nnweb-definition 'address) search)
(nnweb-definition 'index)))
t)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/gnus/nnlistserv.el [lexbind],
Miles Bader <=