the file name before using to avoid setting mm-default-directory to
nil.
2010-10-07 Lars Magne Ingebrigtsen <larsi@gnus.org>
2010-10-07 Lars Magne Ingebrigtsen <larsi@gnus.org>
+ * mm-decode.el (mm-save-part): If given a non-directory result, expand
+ the file name before using to avoid setting mm-default-directory to
+ nil.
+
* gnus-start.el (gnus-get-unread-articles): Require gnus-agent before
bidning gnus-agent variables.
* gnus-start.el (gnus-get-unread-articles): Require gnus-agent before
bidning gnus-agent variables.
(or filename "")))
(or mm-default-directory default-directory)
(or filename "")))
(or filename "")))
(or mm-default-directory default-directory)
(or filename "")))
- (when (file-directory-p file)
- (setq file (expand-file-name filename file)))
+ (if (file-directory-p file)
+ (setq file (expand-file-name filename file))
+ (setq file (expand-file-name
+ file (or mm-default-directory default-directory))))
(setq mm-default-directory (file-name-directory file))
(and (or (not (file-exists-p file))
(yes-or-no-p (format "File %s already exists; overwrite? "
(setq mm-default-directory (file-name-directory file))
(and (or (not (file-exists-p file))
(yes-or-no-p (format "File %s already exists; overwrite? "