diff options
| author | Glenn Morris <rgm@gnu.org> | 2007-08-15 03:09:28 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2007-08-15 03:09:28 +0000 |
| commit | 980d5def28a1abe890fb29a7e31b43f9faf5b139 (patch) | |
| tree | 78604af8df1abaf4504088b9e128a48015f5d87c /lisp/mail/undigest.el | |
| parent | 9f70cc1b597be990de98b1c84eabba7f5ab2f576 (diff) | |
| download | emacs-980d5def28a1abe890fb29a7e31b43f9faf5b139.tar.gz | |
(rmail-digest-parse-rfc1153sloppy): Be even sloppier, for the sake of
GNU Mailman.
(rmail-digest-rfc1153): Initialize `result' correctly.
Diffstat (limited to 'lisp/mail/undigest.el')
| -rw-r--r-- | lisp/mail/undigest.el | 12 |
1 files 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: + ;; _______________________________________________ + ;; <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)) |