Tweak previous mailcap patch (for external viewers)

* lisp/net/mailcap.el (mailcap-view-mime): Delete contents of the
buffer in the external case, too.

diff --git a/lisp/net/mailcap.el b/lisp/net/mailcap.el
index e84fe5f2e0940ec4a9a652765ef9252481d64fbb..94cd9e21566d12e1165b33f4f69e1950c4651d8f 100644 (file)
--- a/lisp/net/mailcap.el
+++ b/lisp/net/mailcap.el
@@ -1138,6 +1138,7 @@ For instance, \"foo.png\" will result in \"image/png\"."
           (unwind-protect
               (let ((coding-system-for-write 'binary))
                 (write-region (point-min) (point-max) file nil 'silent)
+                (delete-region (point-min) (point-max))
                 (shell-command (format method file)))
             (when (file-exists-p file)
               (delete-file file))))