diff options
| -rw-r--r-- | bookmark-conf.el | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/bookmark-conf.el b/bookmark-conf.el index cd88eae..4745abf 100644 --- a/bookmark-conf.el +++ b/bookmark-conf.el @@ -139,7 +139,20 @@ (cond ((and (null handler-name) location (string-match "\\.\\([^.]+\\)\\'" location)) - (setq handler-name (match-string 1 location)))) + (setq handler-name (match-string 1 location)) + (let ((new-location location)) + (while (and handler-name + (durand-member + handler-name (list "gpg") #'string=)) + (setq new-location + (substring new-location nil (max 0 (1- (match-beginning 1))))) + (cond + ((string= location "~/.authinfo.gpg") + (message new-location))) + (cond + ((string-match "\\.\\([^.]+\\)\\'" new-location) + (setq handler-name (match-string 1 new-location))) + ((setq handler-name nil))))))) (cond (handler-name (cond |