From debad045d26e0bbd87c7a04b1911000cadc153c5 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Fri, 18 Oct 2002 08:33:46 +0000 Subject: [PATCH] (nnweb-dejanews-create-mapping, nnweb-reference-create-mapping, nnweb-altavista-create-mapping, nnweb-google-create-mapping): Fix typos. --- lisp/gnus/nnweb.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/lisp/gnus/nnweb.el b/lisp/gnus/nnweb.el index 740b182639f..e62dec067e9 100644 --- a/lisp/gnus/nnweb.el +++ b/lisp/gnus/nnweb.el @@ -391,7 +391,7 @@ and `altavista'.") ;;; (defun nnweb-dejanews-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) (erase-buffer) @@ -499,7 +499,7 @@ and `altavista'.") ;;; (defun nnweb-reference-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) (erase-buffer) @@ -627,7 +627,7 @@ and `altavista'.") ;;; (defun nnweb-altavista-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) (erase-buffer) @@ -759,7 +759,7 @@ and `altavista'.") (while (re-search-forward "a href=/groups\\(\\?[^ \">]*selm=\\([^ &\">]+\\)\\)" nil t) (setq mid (match-string 2) - url (format + url (format "http://groups.google.com/groups?selm=%s&output=gplain" mid)) (narrow-to-region (search-forward ">" nil t) (search-forward "" nil t)) @@ -811,7 +811,7 @@ and `altavista'.") (caar map)))) (defun nnweb-google-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) (erase-buffer) @@ -925,7 +925,7 @@ and `altavista'.") "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 + (if follow-refresh (save-restriction (narrow-to-region (point) (point)) (url-insert-file-contents url) -- 2.39.2