[nongnu] elpa/base32 56b160f436 005/103: Handle .netrc style backends containing otpauth url secrets

[ELPA Syncer]

branch: elpa/base32
commit 56b160f436b8da7a40ce4e3b0fc90acc46ec0ca5
Author: Vivek Das Mohapatra <vivek@collabora.co.uk>
Commit: Vivek Das Mohapatra <vivek@collabora.co.uk>

    Handle .netrc style backends containing otpauth url secrets
    
    Since the otpauth URL scheme encodes information not handled
    by the netrc format we allow the stored secret to be an otpauth
    URL (even though this means that there is redundant/duplicated
    information in both the netrc format and the stored secret).
---
 totp.el | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/totp.el b/totp.el
index 94479b8db8..5831797b6a 100644
--- a/totp.el
+++ b/totp.el
@@ -193,9 +193,7 @@ TOTP secret."
                 (setq label (concat user "@" host))
               (setq label (or user host)))
             (if (functionp secret) (setq secret (funcall secret)))
-            (setq otpmeta `((:service . ,host)
-                            (:user    . ,user)
-                            (:secret  . ,secret))
+            (setq otpmeta (totp-unwrap-otp-blob secret label)
                   found   (cons (cons label otpmeta) found)))
           (auth-source-search-backends (list source)
                                        (list :port "totp")