Mercurial > emacs
comparison lisp/gnus/nnlistserv.el @ 53875:cb0bc8ce8e5a
(nnlistserv-kk-wash-article): Fix paren nesting.
author | Andreas Schwab <schwab@suse.de> |
---|---|
date | Sun, 08 Feb 2004 22:44:43 +0000 |
parents | 695cf19ef79e |
children | 55fd4f77387a 0fde48feb604 |
comparison
equal
deleted
inserted
replaced
53874:978c77351d66 | 53875:cb0bc8ce8e5a |
---|---|
1 ;;; nnlistserv.el --- retrieving articles via web mailing list archives | 1 ;;; nnlistserv.el --- retrieving articles via web mailing list archives |
2 | 2 |
3 ;; Copyright (C) 1997, 1998, 1999, 2000 Free Software Foundation, Inc. | 3 ;; Copyright (C) 1997, 1998, 1999, 2000, 2004 Free Software Foundation, Inc. |
4 | 4 |
5 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> | 5 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
6 ;; Keywords: news, mail | 6 ;; Keywords: news, mail |
7 | 7 |
8 ;; This file is part of GNU Emacs. | 8 ;; This file is part of GNU Emacs. |
125 (headers '(sent name email subject id)) | 125 (headers '(sent name email subject id)) |
126 sent name email subject id) | 126 sent name email subject id) |
127 (nnweb-decode-entities) | 127 (nnweb-decode-entities) |
128 (while headers | 128 (while headers |
129 (goto-char (point-min)) | 129 (goto-char (point-min)) |
130 (re-search-forward (format "<!-- %s=\"\\([^\"]+\\)" (car headers) nil t)) | 130 (re-search-forward (format "<!-- %s=\"\\([^\"]+\\)" (car headers)) nil t) |
131 (set (pop headers) (match-string 1))) | 131 (set (pop headers) (match-string 1))) |
132 (goto-char (point-min)) | 132 (goto-char (point-min)) |
133 (search-forward "<!-- body" nil t) | 133 (search-forward "<!-- body" nil t) |
134 (delete-region (point-min) (progn (forward-line 1) (point))) | 134 (delete-region (point-min) (progn (forward-line 1) (point))) |
135 (goto-char (point-max)) | 135 (goto-char (point-max)) |