aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/gnus/auth-source.el
diff options
context:
space:
mode:
authorLars Ingebrigtsen2011-02-14 04:23:59 +0000
committerKatsumi Yamaoka2011-02-14 04:23:59 +0000
commitd5e9a4e9a76d5cd3aa03a7cc8a6c2ab405bb9ca5 (patch)
tree731ca405290c9019907b047a6fff20fcaaf7b93a /lisp/gnus/auth-source.el
parenta241b7c067132a073c29dc924846952fd7a7391b (diff)
downloademacs-d5e9a4e9a76d5cd3aa03a7cc8a6c2ab405bb9ca5.tar.gz
emacs-d5e9a4e9a76d5cd3aa03a7cc8a6c2ab405bb9ca5.zip
nnimap.el (nnimap-inhibit-logging): New variable.
(nnimap-log-command): Don't log login commands. auth-source.el (auth-source-netrc-search): The asserts seem to want to have more parameters. nnimap.el (nnimap-send-command): Mark the command time for each command, so that we don't get NOOPs stepping on our toes. gnus-art.el (article-date-ut): Get the date from the Date header on `t'.
Diffstat (limited to 'lisp/gnus/auth-source.el')
-rw-r--r--lisp/gnus/auth-source.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/gnus/auth-source.el b/lisp/gnus/auth-source.el
index de6926248ab..8f4a6ddc7b4 100644
--- a/lisp/gnus/auth-source.el
+++ b/lisp/gnus/auth-source.el
@@ -483,7 +483,7 @@ must call it to obtain the actual value."
483 483
484 (assert 484 (assert
485 (or (eq t create) (listp create)) t 485 (or (eq t create) (listp create)) t
486 "Invalid auth-source :create parameter (must be nil, t, or a list)") 486 "Invalid auth-source :create parameter (must be nil, t, or a list): %s %s")
487 487
488 (setq filtered-backends (copy-sequence backends)) 488 (setq filtered-backends (copy-sequence backends))
489 (dolist (backend backends) 489 (dolist (backend backends)
@@ -779,7 +779,7 @@ Note that the MAX parameter is used so we can exit the parse early."
779See `auth-source-search' for details on SPEC." 779See `auth-source-search' for details on SPEC."
780 ;; just in case, check that the type is correct (null or same as the backend) 780 ;; just in case, check that the type is correct (null or same as the backend)
781 (assert (or (null type) (eq type (oref backend type))) 781 (assert (or (null type) (eq type (oref backend type)))
782 t "Invalid netrc search") 782 t "Invalid netrc search: %s %s")
783 783
784 (let ((results (auth-source-netrc-normalize 784 (let ((results (auth-source-netrc-normalize
785 (auth-source-netrc-parse 785 (auth-source-netrc-parse