(browse-url-of-buffer): Add ".html" to filename.

2 files changed, 7 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c38eb58672c..1c342460f41 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-10-25  Reiner Steib  <Reiner.Steib@gmx.de>
+
+        * net/browse-url.el (browse-url-of-buffer): Add ".html" to
+        filename.
+
 2005-10-25  Masatake YAMATO  <jet@gyve.org>
 
         * dired-x.el (dired-virtual): Don't use `dired-insert-headerline'.
diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el
index 74bace58958..54fddf9261c 100644
--- a/lisp/net/browse-url.el
+++ b/lisp/net/browse-url.el
@@ -713,7 +713,8 @@ narrowed."
                 (setq browse-url-temp-file-name
                       (convert-standard-filename
                        (make-temp-file
-                        (expand-file-name "burl" browse-url-temp-dir)))))
+                        (expand-file-name "burl" browse-url-temp-dir)
+                        nil ".html"))))
             (setq file-name browse-url-temp-file-name)
             (write-region (point-min) (point-max) file-name nil 'no-message)))
       (browse-url-of-file file-name))))