From: Glenn Morris <rgm@gnu.org>
Date: Wed, 15 Aug 2007 03:09:52 +0000 (+0000)
Subject: (rmail-digest-parse-rfc1153sloppy): Be even sloppier, for the sake of
X-Git-Tag: emacs-pretest-22.1.90~995
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ef831bd0dc9c8567a4f4907cf26b9887bc9f6be1;p=emacs.git

(rmail-digest-parse-rfc1153sloppy): Be even sloppier, for the sake of
GNU Mailman.
(rmail-digest-rfc1153): Initialize `result' correctly.
---

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:
+  ;; _______________________________________________
+  ;; <one or more lines of list blurb>
+  ;;
+  ;; 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))