From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Mon, 14 Feb 2011 03:43:23 +0000 (-0800)
Subject: Don't log login commands.
X-Git-Url: https://cgit.sxemacs.org/?a=commitdiff_plain;h=a913d03099e201791b5aa43717a784d92ad1df76;p=gnus

Don't log login commands.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7ac5b3664..9d8efa218 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2011-02-14  Lars Ingebrigtsen  <larsi@gnus.org>
 
+	* 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 b61253902..a5a001f7e 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)
-		(setq login-result
-		      (nnimap-login (car credentials) (cadr credentials)))
+		(let ((nnimap-inhibit-logging t))
+		  (setq login-result
+			(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)