2000-05-07 Florian Weimer <fw@deneb.cygnus.argh.org>

	* mailcap.el (mailcap-maybe-eval): Honor user request not to
	evaluate the Lisp code.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f485789..632589f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-05-07  Florian Weimer  <fw@deneb.cygnus.argh.org>
+
+       * mailcap.el (mailcap-maybe-eval): Honor user request not to
+       evaluate the Lisp code.
+
 2000-05-06 17:40:20  Shenghuo ZHU  <zsh@cs.rochester.edu>
 
        * gnus-art.el (article-wash-html): New function.

diff --git a/lisp/mailcap.el b/lisp/mailcap.el
index 565b555..407c67e 100644 (file)
--- a/lisp/mailcap.el
+++ b/lisp/mailcap.el
@@ -303,8 +303,8 @@ Gnus might fail to display all of it.")
 (defun mailcap-maybe-eval ()
   "Maybe evaluate a buffer of emacs lisp code."
   (let ((lisp-buffer (current-buffer)))
+    (goto-char (point-min))
     (when
-       (goto-char (point-min))
        (save-window-excursion
          (delete-other-windows)
          (let ((buffer (get-buffer-create (generate-new-buffer-name