(mm-decode-content-transfer-encoding): Preserve mailing list junk at

end of part.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e0baeff..54bad8a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-12-24  Simon Josefsson  <sj@extundo.com>
+
+       * mm-bodies.el (mm-decode-content-transfer-encoding): Preserve
+       mailing list junk at end of part.
+
 2000-12-23  Simon Josefsson  <sj@extundo.com>
 
        * nnimap.el (nnimap-expiry-target): New function.

diff --git a/lisp/mm-bodies.el b/lisp/mm-bodies.el
index f7440c7..9983a8f 100644 (file)
--- a/lisp/mm-bodies.el
+++ b/lisp/mm-bodies.el
@@ -183,9 +183,8 @@ If no encoding was done, nil is returned."
                 (delete-region (match-beginning 0) (match-end 0)))
               (goto-char (point-max))
               (when (re-search-backward "^[A-Za-z0-9+/]+=*[\t ]*$" nil t)
-                (forward-line)
-                (delete-region (point) (point-max)))
-              (point-max))))
+                (forward-line))
+              (point))))
           ((memq encoding '(7bit 8bit binary))
            ;; Do nothing.
            )