From: Michael Albinus <michael.albinus@gmx.de>
Date: Mon, 26 Oct 2009 09:05:09 +0000 (+0000)
Subject: * net/tramp-imap.el (tramp-imap-file-name-handler-alist): Ignore
X-Git-Tag: emacs-pretest-23.1.90~650
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=36f1267e808dcc3ff406da564a29c0b7180315d9;p=emacs.git

* net/tramp-imap.el (tramp-imap-file-name-handler-alist): Ignore
`dired-call-process'.
(tramp-imap-make-iht): Use `user' and `ssl' with `imap-hash-make'.
---

diff --git a/lisp/net/tramp-imap.el b/lisp/net/tramp-imap.el
index 5365a5a6054..65024b8b396 100644
--- a/lisp/net/tramp-imap.el
+++ b/lisp/net/tramp-imap.el
@@ -92,6 +92,7 @@
     ;; `access-file' performed by default handler
     (add-name-to-file . ignore)
     ;; `byte-compiler-base-file-name' performed by default handler
+    ;; `copy-directory' performed by default handler
     (copy-file . tramp-imap-handle-copy-file)
     (delete-directory . ignore) ;; tramp-imap-handle-delete-directory)
     (delete-file . tramp-imap-handle-delete-file)
@@ -100,7 +101,7 @@
     (directory-files . tramp-handle-directory-files)
     (directory-files-and-attributes
      . tramp-imap-handle-directory-files-and-attributes)
-    ;; `dired-call-process' performed by default handler
+    (dired-call-process . ignore)
     ;; `dired-compress-file' performed by default handler
     ;; `dired-uncache' performed by default handler
     (expand-file-name . tramp-imap-handle-expand-file-name)
@@ -718,16 +719,14 @@ With NEEDED-SUBJECT, alters the imap-hash test accordingly."
 	 (ssl (string-equal method tramp-imaps-method))
 	 (port (or (tramp-file-name-port vec)
 		   (tramp-get-method-parameter method 'tramp-default-port)))
-	 (result (imap-hash-make server port mbox)))
+	 (result (imap-hash-make server port mbox user nil ssl)))
     ;; Return the IHT with a test override to look for the subject
-    ;; marker.  Set also user and ssl tags.
-    (setq result (plist-put result :user user)
-	  result (plist-put result :ssl ssl)
-	  result (plist-put
-		  result
-		  :test (format "^%s%s"
-				tramp-imap-subject-marker
-				(if needed-subject needed-subject ""))))))
+    ;; marker.
+    (plist-put
+     result
+     :test (format "^%s%s"
+		   tramp-imap-subject-marker
+		   (if needed-subject needed-subject "")))))
 
 ;;; TODO:
 
@@ -747,7 +746,22 @@ With NEEDED-SUBJECT, alters the imap-hash test accordingly."
 
 ;; * imaps works for local IMAP servers.  Accessing
 ;;   "/imaps:imap.gmail.com:/INBOX.test/" results in error
-;;   "error in process filter: Internal error, tag 5 status BAD code nil text UNSELECT not allowed now.
+;;   "error in process filter: Internal error, tag 5 status BAD code nil text UNSELECT not allowed now."
+
+;; * Improve `tramp-imap-handle-file-attributes'
+;;   - size
+;;   - modification time
+;;   - user
+;;   - Return info for directories.
+
+;; * Saving a file creates a second one, instead of overwriting.
+
+;; * Backup files: just *one* is kept.
+
+;; * Password requests shall have a descriptive prompt.
+
+;; * Exiting Emacs, there are running IMAP processes.  Make them quiet
+;;   by `set-process-query-on-exit-flag'.
 
 (provide 'tramp-imap)
 ;;; tramp-imap.el ends here