/[emacs]/emacs/lisp/gnus/nnweb.el
ViewVC logotype

Diff of /emacs/lisp/gnus/nnweb.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.9 by zsh, Wed Oct 31 04:16:51 2001 UTC revision 1.9.4.1 by miles, Fri Apr 4 06:20:21 2003 UTC
# Line 391  and `altavista'.") Line 391  and `altavista'.")
391  ;;;  ;;;
392    
393  (defun nnweb-dejanews-create-mapping ()  (defun nnweb-dejanews-create-mapping ()
394    "Perform the search and create an number-to-url alist."    "Perform the search and create a number-to-url alist."
395    (save-excursion    (save-excursion
396      (set-buffer nnweb-buffer)      (set-buffer nnweb-buffer)
397      (erase-buffer)      (erase-buffer)
# Line 499  and `altavista'.") Line 499  and `altavista'.")
499  ;;;  ;;;
500    
501  (defun nnweb-reference-create-mapping ()  (defun nnweb-reference-create-mapping ()
502    "Perform the search and create an number-to-url alist."    "Perform the search and create a number-to-url alist."
503    (save-excursion    (save-excursion
504      (set-buffer nnweb-buffer)      (set-buffer nnweb-buffer)
505      (erase-buffer)      (erase-buffer)
# Line 627  and `altavista'.") Line 627  and `altavista'.")
627  ;;;  ;;;
628    
629  (defun nnweb-altavista-create-mapping ()  (defun nnweb-altavista-create-mapping ()
630    "Perform the search and create an number-to-url alist."    "Perform the search and create a number-to-url alist."
631    (save-excursion    (save-excursion
632      (set-buffer nnweb-buffer)      (set-buffer nnweb-buffer)
633      (erase-buffer)      (erase-buffer)
# Line 759  and `altavista'.") Line 759  and `altavista'.")
759      (while (re-search-forward      (while (re-search-forward
760              "a href=/groups\\(\\?[^ \">]*selm=\\([^ &\">]+\\)\\)" nil t)              "a href=/groups\\(\\?[^ \">]*selm=\\([^ &\">]+\\)\\)" nil t)
761        (setq mid (match-string 2)        (setq mid (match-string 2)
762              url (format              url (format
763                   "http://groups.google.com/groups?selm=%s&output=gplain" mid))                   "http://groups.google.com/groups?selm=%s&output=gplain" mid))
764        (narrow-to-region (search-forward ">" nil t)        (narrow-to-region (search-forward ">" nil t)
765                          (search-forward "</a>" nil t))                          (search-forward "</a>" nil t))
# Line 811  and `altavista'.") Line 811  and `altavista'.")
811        (caar map))))        (caar map))))
812    
813  (defun nnweb-google-create-mapping ()  (defun nnweb-google-create-mapping ()
814    "Perform the search and create an number-to-url alist."    "Perform the search and create a number-to-url alist."
815    (save-excursion    (save-excursion
816      (set-buffer nnweb-buffer)      (set-buffer nnweb-buffer)
817      (erase-buffer)      (erase-buffer)
# Line 925  and `altavista'.") Line 925  and `altavista'.")
925    "Insert the contents from an URL in the current buffer.    "Insert the contents from an URL in the current buffer.
926  If FOLLOW-REFRESH is non-nil, redirect refresh url in META."  If FOLLOW-REFRESH is non-nil, redirect refresh url in META."
927    (let ((name buffer-file-name))    (let ((name buffer-file-name))
928      (if follow-refresh      (if follow-refresh
929          (save-restriction          (save-restriction
930            (narrow-to-region (point) (point))            (narrow-to-region (point) (point))
931            (url-insert-file-contents url)            (url-insert-file-contents url)

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.9.4.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26