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 |