(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)
+ (map (assoc (riece-format-identity identity) riece-log-directory-map)))
(if map
- (setq name (cdr map))
+ (expand-file-name (cdr map) riece-log-directory)
(expand-file-name (riece-log-encode-file-name prefix)
(expand-file-name
(concat "." (riece-log-encode-file-name server))
(buffer-string)))
(goto-char point)
(while (re-search-forward
- "^[0-9][0-9]:[0-9][0-9] [<>]\\([^<>]+\\)[<>] " nil t)
- (put-text-property (match-beginning 1) (match-end 1)
+ (concat "^" riece-time-prefix-regexp
+ "\\(<[^>]+>\\|>[^<]+<\\|([^)]+)\\|{[^}]+}\\|=[^=]+=\\)")
+ nil t)
+ (put-text-property (1+ (match-beginning 1)) (1- (match-end 1))
'riece-identity
(riece-make-identity
(riece-match-string-no-properties 1)