--- mm-bodies.el.orig	Tue Jan 11 23:51:31 2000
+++ mm-bodies.el	Tue Jan 11 23:52:28 2000
@@ -154,8 +154,12 @@
 				  ;; Some mailers insert whitespace
 				  ;; junk at the end which
 				  ;; base64-decode-region dislikes.
+				  ;; Also remove possible junk which could
+				  ;; have been added by mailing list software.
 				  (save-excursion
-				    (goto-char (point-max))
+				    (goto-char (point-min))
+				    (re-search-forward "^[\t ]*$")
+				    (delete-region (point) (point-max))
 				    (skip-chars-backward "\n\t ")
 				    (delete-region (point) (point-max))
 				    (point))))