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) |
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) |
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) |
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)) |
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) |
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) |