* mm-bodies.el (mm-decode-content-transfer-encoding): Don't remove

non-base64 text at the end if not found.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2dc212a..7e14e9b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-04-21 19:38:43  Shenghuo ZHU  <zsh@cs.rochester.edu>
+
+       * mm-bodies.el (mm-decode-content-transfer-encoding): Don't remove
+       non-base64 text at the end if not found.
+
 2000-03-01  Simon Josefsson  <jas@pdc.kth.se>
 
        * gnus-sum.el (gnus-read-move-group-name): 

diff --git a/lisp/mm-bodies.el b/lisp/mm-bodies.el
index ead94d4..fa80c8b 100644 (file)
--- a/lisp/mm-bodies.el
+++ b/lisp/mm-bodies.el
@@ -168,8 +168,9 @@ If no encoding was done, nil is returned."
             ;; have been added by mailing list software.
             (save-excursion
               (goto-char (point-min))
-              (re-search-forward "^[\t ]*$")
-              (delete-region (point) (point-max))
+              (if (re-search-forward "^[\t ]*$" nil t)
+                  (delete-region (point) (point-max))
+                (goto-char (point-max)))
               (skip-chars-backward "\n\t ")
               (delete-region (point) (point-max))
               (point))))