Mercurial > emacs
comparison lisp/mail/undigest.el @ 27386:549ccf34df84
Fix previous change.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 21 Jan 2000 03:43:45 +0000 |
| parents | 517cdf51989f |
| children | 770c9bc95b39 |
comparison
equal
deleted
inserted
replaced
| 27385:f7b7fdb0f3f4 | 27386:549ccf34df84 |
|---|---|
| 90 ;; compensate for broken un*x digestifiers. Sigh Sigh. | 90 ;; compensate for broken un*x digestifiers. Sigh Sigh. |
| 91 (while (and (> (point) start) (not found)) | 91 (while (and (> (point) start) (not found)) |
| 92 (forward-line -1) | 92 (forward-line -1) |
| 93 (if (looking-at (car regexps)) | 93 (if (looking-at (car regexps)) |
| 94 (setq found t)) | 94 (setq found t)) |
| 95 (setq regexps (cdr regexps))) | 95 (setq regexps (cdr regexps)))) |
| 96 (unless found | 96 (unless found |
| 97 (error "Message is not a digest--no end line")))) | 97 (error "Message is not a digest--no end line")))) |
| 98 (re-search-forward (concat "^" (make-string 55 ?-) "-*\n*")) | 98 (re-search-forward (concat "^" (make-string 55 ?-) "-*\n*")) |
| 99 (replace-match "\^_\^L\n0, unseen,,\n*** EOOH ***\n") | 99 (replace-match "\^_\^L\n0, unseen,,\n*** EOOH ***\n") |
| 100 (save-restriction | 100 (save-restriction |