Mercurial > emacs

comparison lisp/mail/undigest.el @ 13088:d383abe2f9f3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(undigestify-rmail-message): Better error messages.
author Richard M. Stallman <rms@gnu.org>
date Wed, 27 Sep 1995 15:26:15 +0000
parents 21a1494b450c
children 83f275dcd93a
comparison
equal deleted inserted replaced
13087:226c90611902 13088:d383abe2f9f3
65 (goto-char (point-max)) 65 (goto-char (point-max))
66 (or (mail-fetch-field "Reply-To") 66 (or (mail-fetch-field "Reply-To")
67 (mail-fetch-field "To") 67 (mail-fetch-field "To")
68 (mail-fetch-field "Apparently-To") 68 (mail-fetch-field "Apparently-To")
69 (mail-fetch-field "From"))) 69 (mail-fetch-field "From")))
70 (error "Message is not a digest"))))) 70 (error "Message is not a digest--bad header")))))
71 (save-excursion 71 (save-excursion
72 (goto-char (point-max)) 72 (goto-char (point-max))
73 (skip-chars-backward " \t\n") 73 (skip-chars-backward " \t\n")
74 (let (found) 74 (let (found)
75 ;; compensate for broken un*x digestifiers. Sigh Sigh. 75 ;; compensate for broken un*x digestifiers. Sigh Sigh.
77 (forward-line -1) 77 (forward-line -1)
78 (if (looking-at (concat "End of.*Digest.*\n" 78 (if (looking-at (concat "End of.*Digest.*\n"
79 (regexp-quote "*********") "*" 79 (regexp-quote "*********") "*"
80 "\\(\n------*\\)*")) 80 "\\(\n------*\\)*"))
81 (setq found t))) 81 (setq found t)))
82 (if (not found) (error "Message is not a digest")))) 82 (if (not found)
83 (error "Message is not a digest--no end line"))))
83 (re-search-forward (concat "^" (make-string 55 ?-) "-*\n*")) 84 (re-search-forward (concat "^" (make-string 55 ?-) "-*\n*"))
84 (replace-match "\^_\^L\n0, unseen,,\n*** EOOH ***\n") 85 (replace-match "\^_\^L\n0, unseen,,\n*** EOOH ***\n")
85 (save-restriction 86 (save-restriction
86 (narrow-to-region (point) 87 (narrow-to-region (point)
87 (progn (search-forward "\n\n") 88 (progn (search-forward "\n\n")