[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/mail/undigest.el, v [EMACS_22_BASE]
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/mail/undigest.el, v [EMACS_22_BASE] |
Date: |
Wed, 15 Aug 2007 03:09:53 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Branch: EMACS_22_BASE
Changes by: Glenn Morris <gm> 07/08/15 03:09:52
Index: undigest.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/undigest.el,v
retrieving revision 1.40.2.1
retrieving revision 1.40.2.2
diff -u -b -r1.40.2.1 -r1.40.2.2
--- undigest.el 25 Jul 2007 04:27:21 -0000 1.40.2.1
+++ undigest.el 15 Aug 2007 03:09:52 -0000 1.40.2.2
@@ -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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/mail/undigest.el, v [EMACS_22_BASE],
Glenn Morris <=