Merge changes made in No Gnus

gnus.texi (Customizing the IMAP Connection): Mention nnimap-record-commands.
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/doc/misc/ChangeLog b/doc/misc/ChangeLog
index d287b340542741dc22d696e4ce6d47d6990f4df2..adad93ef89c574d21923cdfb17c6c60fdb7c3647 100644 (file)
--- a/doc/misc/ChangeLog
+++ b/doc/misc/ChangeLog
@@ -1,3 +1,8 @@
+2012-02-13  Lars Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus.texi (Customizing the IMAP Connection): Mention
+       nnimap-record-commands.
+
 2012-02-10  Glenn Morris  <rgm@gnu.org>
 
        * url.texi (Retrieving URLs): Update url-retrieve arguments.

diff --git a/doc/misc/gnus.texi b/doc/misc/gnus.texi
index 865888a28e4024ae6df522f50267e36921a7fc57..c149ddfcf0f336d8a76910f3932324bc1eb485ad 100644 (file)
--- a/doc/misc/gnus.texi
+++ b/doc/misc/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
 
 

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index ebbef064b7b539ef12c4b5793af5406f1cffa57d..69598ad9f452ebb03de163cfaab6399d5ec381a7 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,5 +1,9 @@
 2012-02-13  Lars Ingebrigtsen  <larsi@gnus.org>
 
+       * 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  <larsi@gnus.org>

diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el
index 73f9b917e7b33a95433f6118a5f321ae8508a338..2cdb170315fc9cc28b88d19a84882af60348d243 100644 (file)
--- a/lisp/gnus/nnimap.el
+++ b/lisp/gnus/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)
-  (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)))
+  (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)
 
 (defun nnimap-command (&rest args)