emacs-diffs
[Top][All Lists]
Advanced

[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)




reply via email to

[Prev in Thread] Current Thread [Next in Thread]