[gnus git] branch no-gnus updated: m0-1-54-g20915e1 =1= Add a `nnimap-record-commands' variable to control logging

       via  20915e1c98daa548e851ee4f38e59d27238a9719 (commit)
      from  3614422b660cbb37541de79822260a74f359fb55 (commit)


- Log -----------------------------------------------------------------
commit 20915e1c98daa548e851ee4f38e59d27238a9719
Author: Lars Ingebrigtsen <[email protected]>
Date:   Mon Feb 13 12:46:42 2012 +0100

    Add a `nnimap-record-commands' variable to control logging
    
    * nnimap.el (nnimap-record-commands): New variable.
    (nnimap-log-command): Use it.
    (nnimap-make-process-buffer): Add a space to the process buffer.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6341fed..24c1bde 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2012-02-13  Lars Ingebrigtsen  <[email protected]>
 
+	* nnimap.el (nnimap-record-commands): New variable.
+	(nnimap-log-command): Use it.
+	(nnimap-make-process-buffer): Add a space to the process buffer.
+
 	* shr.el (shr-rescale-image): Allow viewing large images.
 
 2012-02-12  Lars Ingebrigtsen  <[email protected]>
diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index 73f9b91..2cdb170 100644
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -289,7 +289,7 @@ textual parts.")
 
 (defun nnimap-make-process-buffer (buffer)
   (with-current-buffer
-      (generate-new-buffer (format "*nnimap %s %s %s*"
+      (generate-new-buffer (format " *nnimap %s %s %s*"
 				   nnimap-address nnimap-server-port
 				   (gnus-buffer-exists-p buffer)))
     (mm-disable-multibyte)
@@ -1696,13 +1696,17 @@ textual parts.")
     (nnimap-wait-for-response nnimap-sequence))
   nnimap-sequence)
 
+(defvar nnimap-record-commands nil
+  "If non-nil, log commands to the \"*imap log*\" buffer.")
+
 (defun nnimap-log-command (command)
+  (when nnimap-record-commands
   (with-current-buffer (get-buffer-create "*imap log*")
     (goto-char (point-max))
     (insert (format-time-string "%H:%M:%S") " "
 	    (if nnimap-inhibit-logging
 		"(inhibited)\n"
-	      command)))
+		command))))
   command)
 
 (defun nnimap-command (&rest args)
diff --git a/texi/ChangeLog b/texi/ChangeLog
index 9ed122d..096abc3 100644
--- a/texi/ChangeLog
+++ b/texi/ChangeLog
@@ -1,3 +1,8 @@
+2012-02-13  Lars Ingebrigtsen  <[email protected]>
+
+	* gnus.texi (Customizing the IMAP Connection): Mention
+	nnimap-record-commands.
+
 2012-02-07  Lars Ingebrigtsen  <[email protected]>
 
 	* gnus.texi (Mail Source Specifiers): Add a pop3 via an SSH tunnel
diff --git a/texi/gnus.texi b/texi/gnus.texi
index 1241ad7..a5f0232 100644
--- a/texi/gnus.texi
+++ b/texi/gnus.texi
@@ -14227,8 +14227,9 @@ if the server supports UID EXPUNGE, but it's not done by default on
 servers that doesn't support that command.
 
 @item nnimap-streaming
-Virtually all @code{IMAP} server support fast streaming of data.  If
-you have problems connecting to the server, try setting this to @code{nil}.
+Virtually all @acronym{IMAP} server support fast streaming of data.
+If you have problems connecting to the server, try setting this to
+@code{nil}.
 
 @item nnimap-fetch-partial-articles
 If non-@code{nil}, fetch partial articles from the server.  If set to
@@ -14236,6 +14237,10 @@ a string, then it's interpreted as a regexp, and parts that have
 matching types will be fetched.  For instance, @samp{"text/"} will
 fetch all textual parts, while leaving the rest on the server.
 
+@item nnimap-record-commands
+If non-@code{nil}, record all @acronym{IMAP} commands in the
+@samp{"*imap log*"} buffer.
+
 @end table
 
 

-----------------------------------------------------------------------
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 |    4 ++++
 lisp/nnimap.el |   18 +++++++++++-------
 texi/ChangeLog |    5 +++++
 texi/gnus.texi |    9 +++++++--
 4 files changed, 27 insertions(+), 9 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, no-gnus has been updated


hooks/post-receive
-- 
Gnus Project