From 51ee83ac34cc23014fc05d6379023d1c1f999954 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Tue, 18 Jan 2000 21:30:05 +0000 Subject: [PATCH] (rmail-digest-end-regexp): New user option. (undigestify-rmail-message): Use it. --- lisp/mail/undigest.el | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/lisp/mail/undigest.el b/lisp/mail/undigest.el index 9ddfccac83e..a85d280022d 100644 --- a/lisp/mail/undigest.el +++ b/lisp/mail/undigest.el @@ -30,6 +30,13 @@ (require 'rmail) +(defcustom rmail-digest-end-regexp (concat "End of.*Digest.*\n" + (regexp-quote "*********") "*" + "\\(\n------*\\)*") + "*Regexp matching the end of a digest message." + :group 'rmail + :type 'regexp) + ;;;###autoload (defun undigestify-rmail-message () "Break up a digest message into its constituent messages. @@ -78,9 +85,7 @@ Leaves original message, deleted, before the undigestified messages." ;; compensate for broken un*x digestifiers. Sigh Sigh. (while (and (> (point) start) (not found)) (forward-line -1) - (if (looking-at (concat "End of.*Digest.*\n" - (regexp-quote "*********") "*" - "\\(\n------*\\)*")) + (if (looking-at rmail-digest-end-regexp) (setq found t))) (if (not found) (error "Message is not a digest--no end line")))) -- 2.39.5