1 |
;;; nnlistserv.el --- retrieving articles via web mailing list archives |
;;; nnlistserv.el --- retrieving articles via web mailing list archives |
2 |
|
|
3 |
;; Copyright (C) 1997, 1998, 1999, 2000 Free Software Foundation, Inc. |
;; Copyright (C) 1997, 1998, 1999, 2000, 2004 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
6 |
;; Keywords: news, mail |
;; Keywords: news, mail |
122 |
(mm-url-decode-entities) |
(mm-url-decode-entities) |
123 |
(while headers |
(while headers |
124 |
(goto-char (point-min)) |
(goto-char (point-min)) |
125 |
(re-search-forward (format "<!-- %s=\"\\([^\"]+\\)" (car headers) nil t)) |
(re-search-forward (format "<!-- %s=\"\\([^\"]+\\)" (car headers)) nil t) |
126 |
(set (pop headers) (match-string 1))) |
(set (pop headers) (match-string 1))) |
127 |
(goto-char (point-min)) |
(goto-char (point-min)) |
128 |
(search-forward "<!-- body" nil t) |
(search-forward "<!-- body" nil t) |