Mercurial > emacs

changeset 27360:7d643cf235ad

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rmail-digest-end-regexp): New user option. (undigestify-rmail-message): Use it.
author Gerd Moellmann <gerd@gnu.org>
date Tue, 18 Jan 2000 21:30:05 +0000
parents 3fcd19033f0c
children c050e4500d16
files lisp/mail/undigest.el
diffstat 1 files changed, 8 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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"))))