(mm-file-name-delete-gotchas): Avoid infloop in

XEmacs.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 587de56..03368e4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-10-10  Jesper Harder  <harder@ifa.au.dk>
+
+       * mm-decode.el (mm-file-name-delete-gotchas): Avoid infloop in
+       XEmacs.
+
 2003-10-10  Teodor Zlatanov  <tzz@lifelogs.com>
 
        * spam.el (spam-initialize): new function, does the spam-face

diff --git a/lisp/mm-decode.el b/lisp/mm-decode.el
index 37e412f..f3e0b5f 100644 (file)
--- a/lisp/mm-decode.el
+++ b/lisp/mm-decode.el
@@ -1037,7 +1037,7 @@ string if you do not like underscores."
 (defun mm-file-name-delete-gotchas (filename)
   "Delete shell gotchas from FILENAME."
   (setq filename (gnus-replace-in-string filename "[<>|]" ""))
-  (gnus-replace-in-string filename "^[.-]*" ""))
+  (gnus-replace-in-string filename "^[.-]+" ""))
 
 (defun mm-save-part (handle)
   "Write HANDLE to a file."