(gnus-article-browse-html-parts): Remove useless

`substring'.  Shorten tmp-file name.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 26ebc5f..d987674 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2006-02-10  Reiner Steib  <Reiner.Steib@gmx.de>
 
+       * gnus-art.el (gnus-article-browse-html-parts): Remove useless
+       `substring'.  Shorten tmp-file name.
+
        * gnus.el: Remove bogus comment.
 
 2006-02-10  Hynek Schlawack  <hynek@ularx.de>

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 8a3dc92..5435cdc 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -2612,14 +2612,14 @@ Recurse into multiparts."
        (cond ((and (bufferp (car handle))
                    (string-match "text/html" (car (mm-handle-type handle))))
               (let ((tmp-file (mm-make-temp-file
-                               (format "gnus-html-%s-"
-                                       (user-login-name)) nil ".html")))
+                               ;; Do we need to care for 8.3 filenames?
+                               (format "mm-") nil ".html")))
                 (mm-save-part-to-file handle tmp-file)
                 (browse-url tmp-file)
                 (setq showed t)))
              ;; If multipart, recurse
              ((and (stringp (car handle))
-                   (string-match "^multipart/" (substring (car handle) 0 10))
+                   (string-match "^multipart/" (car handle))
                    (setq showed (or showed (hs-show-html-list handle))))))))
     showed))