+2011-02-17 Lars Ingebrigtsen <larsi@gnus.org>
+
+ * nnimap.el (nnimap-open-connection-1): Delete duplicate server names
+ when getting credentials.
+
+ * gnus-util.el (gnus-delete-duplicates): New function.
+
2011-02-17 Teodor Zlatanov <tzz@lifelogs.com>
* nnimap.el (nnimap-credentials): Instead of picking the first port as
- a creation default, pass the whole port list down. It will be completed.
+ a creation default, pass the whole port list down. It will be
+ completed.
* auth-source.el (auth-source-search): Updated docs to talk about
multiple creation choices.
(when (file-exists-p file)
(delete-file file)))
+(defun gnus-delete-duplicates (list)
+ "Remove duplicate entries from LIST."
+ (let ((result nil))
+ (while list
+ (unless (member (car list) result)
+ (push (car list) result))
+ (pop list))
+ (nreverse result)))
+
(defun gnus-delete-directory (directory)
"Delete files in DIRECTORY. Subdirectories remain.
If there's no subdirectory, delete DIRECTORY as well."
;; Look for the credentials based on
;; the virtual server name and the address
(nnimap-credentials
- (list
- nnimap-address
- (nnoo-current-server 'nnimap))
+ (gnus-delete-duplicates
+ (list
+ nnimap-address
+ (nnoo-current-server 'nnimap)))
ports))))
(setq nnimap-object nil)
(let ((nnimap-inhibit-logging t))