[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/net tramp-imap.el
From: |
Michael Albinus |
Subject: |
[Emacs-diffs] emacs/lisp/net tramp-imap.el |
Date: |
Mon, 26 Oct 2009 09:05:09 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Michael Albinus <albinus> 09/10/26 09:05:09
Modified files:
lisp/net : tramp-imap.el
Log message:
* 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'.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/net/tramp-imap.el?cvsroot=emacs&r1=1.2&r2=1.3
Patches:
Index: tramp-imap.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/tramp-imap.el,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- tramp-imap.el 2 Oct 2009 10:53:37 -0000 1.2
+++ tramp-imap.el 26 Oct 2009 09:05:09 -0000 1.3
@@ -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
+ ;; marker.
+ (plist-put
result
:test (format "^%s%s"
tramp-imap-subject-marker
- (if needed-subject needed-subject ""))))))
+ (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
- [Emacs-diffs] emacs/lisp/net tramp-imap.el,
Michael Albinus <=