From 980d5def28a1abe890fb29a7e31b43f9faf5b139 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Wed, 15 Aug 2007 03:09:28 +0000 Subject: [PATCH] (rmail-digest-parse-rfc1153sloppy): Be even sloppier, for the sake of GNU Mailman. (rmail-digest-rfc1153): Initialize `result' correctly. --- lisp/mail/undigest.el | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) diff --git a/lisp/mail/undigest.el b/lisp/mail/undigest.el index 5b01f711176..5d6f266b3b0 100644 --- a/lisp/mail/undigest.el +++ b/lisp/mail/undigest.el @@ -93,7 +93,15 @@ See rmail-digest-methods." (rmail-digest-rfc1153 "^-\\{55,\\}\n\n" "^\n-\\{27,\\}\n\n" - "^\n-\\{27,\\}\n\nEnd of")) + ;; GNU Mailman knowingly (see comment at line 353 of ToDigest.py in + ;; Mailman source) produces non-conformant rfc 1153 digests, in that + ;; the trailer contains a "digest footer" like this: + ;; _______________________________________________ + ;; + ;; + ;; End of Foo Digest... + ;; ************************************** + "^\nEnd of")) (defun rmail-digest-rfc1153 (prolog-sep message-sep trailer-sep) (goto-char (point-min)) @@ -104,7 +112,7 @@ See rmail-digest-methods." separator result) (move-marker start (match-beginning 0)) (move-marker end (match-end 0)) - (setq result (cons (copy-marker start) (copy-marker end t))) + (setq result (list (cons (copy-marker start) (copy-marker end t)))) (when (re-search-forward message-sep nil t) ;; Ok, at least one message separator found (setq separator (match-string 0)) -- 2.39.2