+(defun riece-log-get-directory-1 (identity)
+ (let ((prefix (riece-identity-canonicalize-prefix
+ (riece-identity-prefix identity)))
+ (server (riece-identity-server identity))
+ (map (assoc (riece-format-identity identity) riece-log-directory-map))
+ name)
+ (if map
+ (setq name (cdr map))
+ (expand-file-name (riece-log-encode-file-name prefix)
+ (expand-file-name
+ (riece-log-encode-file-name (concat "." server))
+ riece-log-directory)))))
+