From 749be2b283298add011f2ca277a43d54aed4953c Mon Sep 17 00:00:00 2001 From: teranisi Date: Thu, 27 Jul 2000 02:32:04 +0000 Subject: [PATCH] 2000-07-26 Takaaki MORIYAMA * elmo-archive.el (elmo-archive-get-archive-name): Fixed problem when dired is used on XEmacs. --- elmo/ChangeLog | 7 ++++++- elmo/elmo-archive.el | 5 ++++- 2 files changed, 10 insertions(+), 2 deletions(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index 6a38333..9147160 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,8 @@ +2000-07-26 Takaaki MORIYAMA + + * elmo-archive.el (elmo-archive-get-archive-name): Fixed problem + when dired is used on XEmacs. + 2000-07-25 OKAZAKI Tetsurou * elmo-imap4.el (elmo-imap4-process-folder-list): Use `nconc' @@ -12,7 +17,7 @@ Use `cons' instead of `append' for updating the connection cache. * elmo-nntp.el (elmo-nntp-get-connection): Likewise. * elmo-imap4.el (elmo-imap4-get-connection): Likewise. - + 2000-07-22 OKAZAKI Tetsurou * elmo-imap4.el (elmo-imap4-read-bytes): Advance diff --git a/elmo/elmo-archive.el b/elmo/elmo-archive.el index bd3163f..a16829f 100644 --- a/elmo/elmo-archive.el +++ b/elmo/elmo-archive.el @@ -307,7 +307,10 @@ TYPE specifies the archiver's symbol." (expand-file-name (concat folder suffix) elmo-archive-folder-path)) - (if (and (not (find-file-name-handler dir 'copy-file)) ; dir is local. + (if (and (let ((handler (find-file-name-handler dir 'copy-file))) ; dir is local. + (or (not handler) + (if (featurep 'xemacs) + (eq handler 'dired-handler-fn)))) (or (not (file-exists-p dir)) (file-directory-p dir))) (expand-file-name -- 1.7.10.4