Mercurial > emacs
changeset 82386:11dbda5b0d6d
(rmail-digest-parse-rfc1153sloppy): Be even sloppier, for the sake of
GNU Mailman.
(rmail-digest-rfc1153): Initialize `result' correctly.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Wed, 15 Aug 2007 03:09:28 +0000 |
| parents | 7597b0681f62 |
| children | 69bcf35b14d3 |
| files | lisp/mail/undigest.el |
| diffstat | 1 files changed, 10 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/undigest.el Wed Aug 15 03:09:04 2007 +0000 +++ b/lisp/mail/undigest.el Wed Aug 15 03:09:28 2007 +0000 @@ -93,7 +93,15 @@ (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 @@ 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))