diff options
| author | Glenn Morris <rgm@gnu.org> | 2007-08-15 03:09:52 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2007-08-15 03:09:52 +0000 |
| commit | ef831bd0dc9c8567a4f4907cf26b9887bc9f6be1 (patch) | |
| tree | b7bfb93b96d710394abfbc6516b738768dc52771 /lisp/mail/undigest.el | |
| parent | 1502ed91e1c725e4c7d9a25a3282ebe814aba556 (diff) | |
| download | emacs-ef831bd0dc9c8567a4f4907cf26b9887bc9f6be1.tar.gz emacs-ef831bd0dc9c8567a4f4907cf26b9887bc9f6be1.tar.bz2 emacs-ef831bd0dc9c8567a4f4907cf26b9887bc9f6be1.zip | |
(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)) |