diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2002-10-18 08:33:46 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2002-10-18 08:33:46 +0000 |
| commit | debad045d26e0bbd87c7a04b1911000cadc153c5 (patch) | |
| tree | 7f703e447f7d5a6577988be10e969dea9f923ec3 /lisp/gnus/nnweb.el | |
| parent | a9d4efa2390c7c1962ad7ea61f6facfd569ea225 (diff) | |
| download | emacs-debad045d26e0bbd87c7a04b1911000cadc153c5.tar.gz | |
(nnweb-dejanews-create-mapping, nnweb-reference-create-mapping,
nnweb-altavista-create-mapping, nnweb-google-create-mapping): Fix typos.
Diffstat (limited to 'lisp/gnus/nnweb.el')
| -rw-r--r-- | lisp/gnus/nnweb.el | 12 |
1 files 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 "</a>" 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) |