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