procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(rmail-digest-parse-rfc1153sloppy): Be even sloppier, for the sake of

Browse source 
GNU Mailman.
(rmail-digest-rfc1153): Initialize `result' correctly.
This commit is contained in:
Glenn Morris 2007-08-15 03:09:28 +00:00
parent 9f70cc1b59
commit 980d5def28
1 changed files with 10 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/mail/undigest.el
View file

@ -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))