(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 9ddfccac83e9554556d1be5752eb925cde1fc158..a85d280022d1852dfb17cf70b3a2401fb8618ce9 100644 (file)
--- 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"))))