diff options
Diffstat (limited to 'lisp/gnus/auth-source.el')
| -rw-r--r-- | lisp/gnus/auth-source.el | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/lisp/gnus/auth-source.el b/lisp/gnus/auth-source.el index 9d842c04f64..10d32d45070 100644 --- a/lisp/gnus/auth-source.el +++ b/lisp/gnus/auth-source.el | |||
| @@ -919,13 +919,15 @@ while \(:host t) would find all host entries." | |||
| 919 | prompt) | 919 | prompt) |
| 920 | 920 | ||
| 921 | (defun auth-source-ensure-strings (values) | 921 | (defun auth-source-ensure-strings (values) |
| 922 | (unless (listp values) | 922 | (if (eq values t) |
| 923 | (setq values (list values))) | 923 | values |
| 924 | (mapcar (lambda (value) | 924 | (unless (listp values) |
| 925 | (if (numberp value) | 925 | (setq values (list values))) |
| 926 | (format "%s" value) | 926 | (mapcar (lambda (value) |
| 927 | value)) | 927 | (if (numberp value) |
| 928 | values)) | 928 | (format "%s" value) |
| 929 | value)) | ||
| 930 | values))) | ||
| 929 | 931 | ||
| 930 | ;;; Backend specific parsing: netrc/authinfo backend | 932 | ;;; Backend specific parsing: netrc/authinfo backend |
| 931 | 933 | ||