diff options
author | Lars Ingebrigtsen <[email protected]> | 2012-02-13 14:14:18 +0000 |
---|---|---|
committer | Katsumi Yamaoka <[email protected]> | 2012-02-13 14:14:18 +0000 |
commit | 3d2af1938b425929bddac50fbf3540efcee954d4 (patch) | |
tree | 00bfb2d0807b0f62f570e453a982459dd5298bd1 /lisp | |
parent | 32f6c52b3ef79cba34781d50d777ce8a41cf93e6 (diff) |
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.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/gnus/ChangeLog | 4 | ||||
-rw-r--r-- | lisp/gnus/nnimap.el | 18 |
2 files changed, 15 insertions, 7 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index ebbef064b7..69598ad9f4 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/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/gnus/nnimap.el b/lisp/gnus/nnimap.el index 73f9b917e7..2cdb170315 100644 --- 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) |