diff options
| -rw-r--r-- | lisp/auth-source.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/auth-source.el b/lisp/auth-source.el index a049e05e4d8..e608afca2db 100644 --- a/lisp/auth-source.el +++ b/lisp/auth-source.el | |||
| @@ -1168,7 +1168,8 @@ FILE is the file from which we obtained this token." | |||
| 1168 | (setq auth-source--session-nonce | 1168 | (setq auth-source--session-nonce |
| 1169 | (apply #'string (cl-loop repeat 10 | 1169 | (apply #'string (cl-loop repeat 10 |
| 1170 | collect (random 128))))) | 1170 | collect (random 128))))) |
| 1171 | (if (fboundp 'gnutls-symmetric-encrypt) | 1171 | (if (and (fboundp 'gnutls-symmetric-encrypt) |
| 1172 | (gnutls-available-p)) | ||
| 1172 | (let ((cdata (car (last (gnutls-ciphers))))) | 1173 | (let ((cdata (car (last (gnutls-ciphers))))) |
| 1173 | (mapconcat | 1174 | (mapconcat |
| 1174 | #'base64-encode-string | 1175 | #'base64-encode-string |
| @@ -1188,7 +1189,8 @@ FILE is the file from which we obtained this token." | |||
| 1188 | (concat s (make-string (- length (mod (length s) length)) ?\0))) | 1189 | (concat s (make-string (- length (mod (length s) length)) ?\0))) |
| 1189 | 1190 | ||
| 1190 | (defun auth-source--deobfuscate (data) | 1191 | (defun auth-source--deobfuscate (data) |
| 1191 | (if (fboundp 'gnutls-symmetric-encrypt) | 1192 | (if (and (fboundp 'gnutls-symmetric-encrypt) |
| 1193 | (gnutls-available-p)) | ||
| 1192 | (let ((cdata (car (last (gnutls-ciphers)))) | 1194 | (let ((cdata (car (last (gnutls-ciphers)))) |
| 1193 | (bits (split-string data "-"))) | 1195 | (bits (split-string data "-"))) |
| 1194 | (substring | 1196 | (substring |