[Emacs-diffs] Changes to emacs/lisp/gnus/nnweb.el

[Juanma Barranquero]

Index: emacs/lisp/gnus/nnweb.el
diff -c emacs/lisp/gnus/nnweb.el:1.9 emacs/lisp/gnus/nnweb.el:1.10
*** emacs/lisp/gnus/nnweb.el:1.9        Tue Oct 30 23:16:51 2001
--- emacs/lisp/gnus/nnweb.el    Fri Oct 18 04:33:46 2002
***************
*** 391,397 ****
  ;;;
  
  (defun nnweb-dejanews-create-mapping ()
!   "Perform the search and create an number-to-url alist."
    (save-excursion
      (set-buffer nnweb-buffer)
      (erase-buffer)
--- 391,397 ----
  ;;;
  
  (defun nnweb-dejanews-create-mapping ()
!   "Perform the search and create a number-to-url alist."
    (save-excursion
      (set-buffer nnweb-buffer)
      (erase-buffer)
***************
*** 499,505 ****
  ;;;
  
  (defun nnweb-reference-create-mapping ()
!   "Perform the search and create an number-to-url alist."
    (save-excursion
      (set-buffer nnweb-buffer)
      (erase-buffer)
--- 499,505 ----
  ;;;
  
  (defun nnweb-reference-create-mapping ()
!   "Perform the search and create a number-to-url alist."
    (save-excursion
      (set-buffer nnweb-buffer)
      (erase-buffer)
***************
*** 627,633 ****
  ;;;
  
  (defun nnweb-altavista-create-mapping ()
!   "Perform the search and create an number-to-url alist."
    (save-excursion
      (set-buffer nnweb-buffer)
      (erase-buffer)
--- 627,633 ----
  ;;;
  
  (defun nnweb-altavista-create-mapping ()
!   "Perform the search and create a number-to-url alist."
    (save-excursion
      (set-buffer nnweb-buffer)
      (erase-buffer)
***************
*** 759,765 ****
      (while (re-search-forward
            "a href=/groups\\(\\?[^ \">]*selm=\\([^ &\">]+\\)\\)" nil t)
        (setq mid (match-string 2)
!           url (format 
                 "http://groups.google.com/groups?selm=%s&output=gplain"; mid))
        (narrow-to-region (search-forward ">" nil t)
                        (search-forward "</a>" nil t))
--- 759,765 ----
      (while (re-search-forward
            "a href=/groups\\(\\?[^ \">]*selm=\\([^ &\">]+\\)\\)" nil t)
        (setq mid (match-string 2)
!           url (format
                 "http://groups.google.com/groups?selm=%s&output=gplain"; mid))
        (narrow-to-region (search-forward ">" nil t)
                        (search-forward "</a>" nil t))
***************
*** 811,817 ****
        (caar map))))
  
  (defun nnweb-google-create-mapping ()
!   "Perform the search and create an number-to-url alist."
    (save-excursion
      (set-buffer nnweb-buffer)
      (erase-buffer)
--- 811,817 ----
        (caar map))))
  
  (defun nnweb-google-create-mapping ()
!   "Perform the search and create a number-to-url alist."
    (save-excursion
      (set-buffer nnweb-buffer)
      (erase-buffer)
***************
*** 925,931 ****
    "Insert the contents from an URL in the current buffer.
  If FOLLOW-REFRESH is non-nil, redirect refresh url in META."
    (let ((name buffer-file-name))
!     (if follow-refresh 
        (save-restriction
          (narrow-to-region (point) (point))
          (url-insert-file-contents url)
--- 925,931 ----
    "Insert the contents from an URL in the current buffer.
  If FOLLOW-REFRESH is non-nil, redirect refresh url in META."
    (let ((name buffer-file-name))
!     (if follow-refresh
        (save-restriction
          (narrow-to-region (point) (point))
          (url-insert-file-contents url)