(mml-attach-file): Strip text properties from file name.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 542db0b..513964c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2008-12-18  Reiner Steib  <Reiner.Steib@gmx.de>
+
+       * mml.el (mml-attach-file): Strip text properties from file name.
+
 2008-12-15  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * mml.el (mml-generate-mime-1): Prefer the MIME charset that Emacs

diff --git a/lisp/mml.el b/lisp/mml.el
index 3e3cb2c..51d0753 100644 (file)
--- a/lisp/mml.el
+++ b/lisp/mml.el
@@ -1289,7 +1289,9 @@ body) or \"attachment\" (separate from the body)."
     (unless (message-in-body-p) (goto-char (point-max)))
     (mml-insert-empty-tag 'part
                          'type type
-                         'filename file
+                         ;; icicles redefines read-file-name and returns a
+                         ;; string w/ text properties :-/
+                         'filename (substring-no-properties file)
                          'disposition (or disposition "attachment")
                          'description description)))