(mml-default-directory): New variable.

(mml-minibuffer-read-file): Use it.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 17f0039..8b1a9da 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2006-04-26  Reiner Steib  <Reiner.Steib@gmx.de>
 
+       * mml.el (mml-default-directory): New variable.
+       (mml-minibuffer-read-file): Use it.
+
        * message.el (message-citation-line-format): New variable.
        (message-insert-formated-citation-line): New function.
        (message-citation-line-function): Add

diff --git a/lisp/mml.el b/lisp/mml.el
index 157b748..f721e1e 100644 (file)
--- a/lisp/mml.el
+++ b/lisp/mml.el
@@ -1015,9 +1015,18 @@ See Info node `(emacs-mime)Composing'.
 ;;; inserting stuff to the buffer.
 ;;;
 
+(defcustom mml-default-directory mm-default-directory
+  "The default directory where mml will find files.
+If not set, `default-directory' will be used."
+  :type '(choice directory (const :tag "Default" nil))
+  :version "23.0" ;; No Gnus
+  :group 'message)
+
 (defun mml-minibuffer-read-file (prompt)
   (let* ((completion-ignored-extensions nil)
-        (file (read-file-name prompt nil nil t)))
+        (file (read-file-name prompt
+                              (or mml-default-directory default-directory)
+                              nil t)))
     ;; Prevent some common errors.  This is inspired by similar code in
     ;; VM.
     (when (file-directory-p file)