diff options
author | Francesco Potortì <pot@gnu.org> | 2002-12-16 16:45:49 +0000 |
---|---|---|
committer | Francesco Potortì <pot@gnu.org> | 2002-12-16 16:45:49 +0000 |
commit | 9881dfec63ed570be5c7ae98db6e3097c1e840b3 (patch) | |
tree | d24a234f153453232e87b534c54140908919877e | |
parent | d8030c35937da66c0d7553ea18ca1838a2f8cec2 (diff) | |
download | emacs-9881dfec63ed570be5c7ae98db6e3097c1e840b3.tar.gz |
Bringup to date with 1.24
-rw-r--r-- | lisp/mail/undigest.el | 16 |
1 files changed, 5 insertions, 11 deletions
diff --git a/lisp/mail/undigest.el b/lisp/mail/undigest.el index 365c040e2da..619c906a8b5 100644 --- a/lisp/mail/undigest.el +++ b/lisp/mail/undigest.el @@ -31,11 +31,7 @@ (require 'rmail) (defcustom rmail-digest-end-regexps - (list (concat "End of.*Digest.*\n" - (regexp-quote "*********") "*" - "\\(\n------*\\)*") - (concat "End of.*\n" - (regexp-quote "*") "*")) + (list "End of.*Digest.*\n" "End of.*\n") "*Regexps matching the end of a digest message." :group 'rmail :type '(repeat regexp)) @@ -86,13 +82,11 @@ Leaves original message, deleted, before the undigestified messages." (regexps rmail-digest-end-regexps)) (while (and regexps (not found)) (goto-char (point-max)) - (skip-chars-backward " \t\n") ;; compensate for broken un*x digestifiers. Sigh Sigh. - (while (and (> (point) start) (not found)) - (forward-line -1) - (if (looking-at (car regexps)) - (setq found t)) - (setq regexps (cdr regexps)))) + (setq found (re-search-backward + (concat "^\\(?:" (car regexps) "\\)") + start t)) + (setq regexps (cdr regexps))) (unless found (error "Message is not a digest--no end line")))) (re-search-forward (concat "^" (make-string 55 ?-) "-*\n*")) |