Mercurial > emacs
comparison lisp/mail/rmailsum.el @ 68399:38032f41ea5b
(rmail-make-summary-line-1): Don't set global binding of `line'.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 26 Jan 2006 17:54:01 +0000 |
| parents | 9b341a563aea |
| children | 067115a6e738 7432ca837c8d |
comparison
equal
deleted
inserted
replaced
| 68398:cec05baae14f | 68399:38032f41ea5b |
|---|---|
| 330 (progn | 330 (progn |
| 331 (forward-line 1) | 331 (forward-line 1) |
| 332 (if (looking-at "Summary-line: ") | 332 (if (looking-at "Summary-line: ") |
| 333 (progn | 333 (progn |
| 334 (goto-char (match-end 0)) | 334 (goto-char (match-end 0)) |
| 335 (setq line | 335 (buffer-substring (point) |
| 336 (buffer-substring (point) | 336 (progn (forward-line 1) (point)))))))) |
| 337 (progn (forward-line 1) (point))))))))) | |
| 338 ;; Obsolete status lines lacking a # should be flushed. | 337 ;; Obsolete status lines lacking a # should be flushed. |
| 339 (and line | 338 (and line |
| 340 (not (string-match "#" line)) | 339 (not (string-match "#" line)) |
| 341 (progn | 340 (progn |
| 342 (delete-region (point) | 341 (delete-region (point) |