# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 948231005 0
# Node ID 7d643cf235ad2bd979c149238730c6bf96ad0bd7
# Parent  3fcd19033f0c629b8e6aecf29fe32405c766c478
(rmail-digest-end-regexp): New user option.
(undigestify-rmail-message): Use it.

diff -r 3fcd19033f0c -r 7d643cf235ad lisp/mail/undigest.el
--- a/lisp/mail/undigest.el	Tue Jan 18 20:11:41 2000 +0000
+++ b/lisp/mail/undigest.el	Tue Jan 18 21:30:05 2000 +0000
@@ -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 @@
 		    ;; 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"))))