(rmail-digest-end-regexp): New user option.

(undigestify-rmail-message): Use it.

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