From: Gerd Moellmann <gerd@gnu.org>
Date: Tue, 18 Jan 2000 21:30:05 +0000 (+0000)
Subject: (rmail-digest-end-regexp): New user option.
X-Git-Tag: emacs-pretest-21.0.90~5321
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=51ee83ac34cc23014fc05d6379023d1c1f999954;p=emacs.git

(rmail-digest-end-regexp): New user option.
(undigestify-rmail-message): Use it.
---

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"))))