# HG changeset patch
# User Michael Albinus <michael.albinus@gmx.de>
# Date 1256547909 0
# Node ID bbf5bbea0d695455ac00d4f7019312f12ba359dd
# Parent  db5e4a5897ec8cc369ed39ece772d75d82a98323
* 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 -r db5e4a5897ec -r bbf5bbea0d69 lisp/net/tramp-imap.el
--- a/lisp/net/tramp-imap.el	Mon Oct 26 06:43:36 2009 +0000
+++ b/lisp/net/tramp-imap.el	Mon Oct 26 09:05:09 2009 +0000
@@ -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 @@
 	 (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 @@
 
 ;; * 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