diff options
| author | Lars Ingebrigtsen | 2011-02-14 04:23:59 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka | 2011-02-14 04:23:59 +0000 |
| commit | d5e9a4e9a76d5cd3aa03a7cc8a6c2ab405bb9ca5 (patch) | |
| tree | 731ca405290c9019907b047a6fff20fcaaf7b93a /lisp/gnus/auth-source.el | |
| parent | a241b7c067132a073c29dc924846952fd7a7391b (diff) | |
| download | emacs-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.el | 4 |
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." | |||
| 779 | See `auth-source-search' for details on SPEC." | 779 | See `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 |