Mercurial > emacs
comparison lisp/gnus/auth-source.el @ 108993:cf7a433d2eb6
* auth-source.el (auth-source-pick): If choice does not contain a
questioned keyword, set the check to t.
| author | Michael Albinus <albinus@detlef> |
|---|---|
| date | Tue, 15 Jun 2010 22:13:34 +0200 |
| parents | a7f706d2c627 |
| children | 8d09094063d0 |
comparison
equal
deleted
inserted
replaced
| 108992:0c1f025545a1 | 108993:cf7a433d2eb6 |
|---|---|
| 227 (file-exists-p source)) | 227 (file-exists-p source)) |
| 228 | 228 |
| 229 ;; Check keywords. | 229 ;; Check keywords. |
| 230 (dolist (k keys match) | 230 (dolist (k keys match) |
| 231 (let* ((v (plist-get spec k)) | 231 (let* ((v (plist-get spec k)) |
| 232 (choicev (plist-get choice k))) | 232 (choicev (if (plist-member choice k) |
| 233 (plist-get choice k) t))) | |
| 233 (setq match | 234 (setq match |
| 234 (and match | 235 (and match |
| 235 (or | 236 (or |
| 236 ;; source always matches spec key | 237 ;; source always matches spec key |
| 237 (eq t choicev) | 238 (eq t choicev) |