Mercurial > emacs
changeset 47934:79f5c0e65980
(nnweb-dejanews-create-mapping, nnweb-reference-create-mapping,
nnweb-altavista-create-mapping, nnweb-google-create-mapping): Fix typos.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Fri, 18 Oct 2002 08:33:46 +0000 |
| parents | b5ddbda34d8e |
| children | 70d7c96ed22f |
| files | lisp/gnus/nnweb.el |
| diffstat | 1 files changed, 6 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/nnweb.el Fri Oct 18 08:30:49 2002 +0000 +++ b/lisp/gnus/nnweb.el Fri Oct 18 08:33:46 2002 +0000 @@ -391,7 +391,7 @@ ;;; (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 @@ ;;; (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 @@ ;;; (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 @@ (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 "</a>" nil t)) @@ -811,7 +811,7 @@ (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 @@ "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)