diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2000-01-18 21:30:05 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2000-01-18 21:30:05 +0000 |
| commit | 51ee83ac34cc23014fc05d6379023d1c1f999954 (patch) | |
| tree | 68c97f5ecdf211d71a155544fa2562a8b4b309fd /lisp/mail/undigest.el | |
| parent | c3975772b826c52e5b284b288d1e1c78065c964e (diff) | |
| download | emacs-51ee83ac34cc23014fc05d6379023d1c1f999954.tar.gz | |
(rmail-digest-end-regexp): New user option.
(undigestify-rmail-message): Use it.
Diffstat (limited to 'lisp/mail/undigest.el')
| -rw-r--r-- | lisp/mail/undigest.el | 11 |
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")))) |