[gnus git] branch master updated: =2= Don't log login commands. ; (auth-source-netrc-search): The asserts seem to want to have more parameters.

       via  a913d03099e201791b5aa43717a784d92ad1df76 (commit)
       via  9a8d4302ecf2689af6ee42eca17a667e7ac67742 (commit)
      from  2aef6613ab584151b6d2dba6953a4bec0f33894c (commit)


- Log -----------------------------------------------------------------
commit a913d03099e201791b5aa43717a784d92ad1df76
Author: Lars Ingebrigtsen <[email protected]>
Date:   Sun Feb 13 19:43:23 2011 -0800

    Don't log login commands.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7ac5b36..9d8efa2 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2011-02-14  Lars Ingebrigtsen  <[email protected]>
 
+	* 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.
 
diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index b612539..a5a001f 100644
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -142,6 +142,8 @@ textual parts.")
 (defvar nnimap-quirks
   '(("QRESYNC" "Zimbra" "QRESYNC ")))
 
+(defvar nnimap-inhibit-logging nil)
+
 (defun nnimap-buffer ()
   (nnimap-find-process-buffer nntp-server-buffer))
 
@@ -389,8 +391,9 @@ textual parts.")
                                  nnimap-address)
                                 ports t))))
 		  (setq nnimap-object nil)
+		(let ((nnimap-inhibit-logging t))
 		(setq login-result
-		      (nnimap-login (car credentials) (cadr credentials)))
+			(nnimap-login (car credentials) (cadr credentials))))
 		(unless (car login-result)
 		  ;; If the login failed, then forget the credentials
 		  ;; that are now possibly cached.
@@ -1584,7 +1587,10 @@ textual parts.")
 (defun nnimap-log-command (command)
   (with-current-buffer (get-buffer-create "*imap log*")
     (goto-char (point-max))
-    (insert (format-time-string "%H:%M:%S") " " command))
+    (insert (format-time-string "%H:%M:%S") " "
+	    (if nnimap-inhibit-logging
+		"(inhibited)"
+	      command)))
   command)
 
 (defun nnimap-command (&rest args)

commit 9a8d4302ecf2689af6ee42eca17a667e7ac67742
Author: Lars Ingebrigtsen <[email protected]>
Date:   Sun Feb 13 19:24:26 2011 -0800

    (auth-source-netrc-search): The asserts seem to want to have more parameters.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 68a3140..7ac5b36 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2011-02-14  Lars Ingebrigtsen  <[email protected]>
 
+	* 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.
 
diff --git a/lisp/auth-source.el b/lisp/auth-source.el
index de69262..8f4a6dd 100644
--- a/lisp/auth-source.el
+++ b/lisp/auth-source.el
@@ -483,7 +483,7 @@ must call it to obtain the actual value."
 
       (assert
        (or (eq t create) (listp create)) t
-       "Invalid auth-source :create parameter (must be nil, t, or a list)")
+       "Invalid auth-source :create parameter (must be nil, t, or a list): %s %s")
 
       (setq filtered-backends (copy-sequence backends))
       (dolist (backend backends)
@@ -779,7 +779,7 @@ Note that the MAX parameter is used so we can exit the parse early."
 See `auth-source-search' for details on SPEC."
   ;; just in case, check that the type is correct (null or same as the backend)
   (assert (or (null type) (eq type (oref backend type)))
-          t "Invalid netrc search")
+          t "Invalid netrc search: %s %s")
 
   (let ((results (auth-source-netrc-normalize
                   (auth-source-netrc-parse

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog      |    6 ++++++
 lisp/auth-source.el |    4 ++--
 lisp/nnimap.el      |   12 +++++++++---
 3 files changed, 17 insertions(+), 5 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project