(nnimap-retrieve-headers-progress): Use a unibyte temp buffer.

(nnimap-request-move-article): Use with-current-buffer.

2 files changed, 7 insertions, 3 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 21d531f59f7..f5d19f56bf9 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,5 +1,8 @@
 2008-03-12  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+        * nnimap.el (nnimap-retrieve-headers-progress): Use a unibyte temp buffer.
+        (nnimap-request-move-article): Use with-current-buffer.
+
         * mm-decode.el (mm-with-part): Set the buffer to unibyte before inserting
         the handle-buffer's text, so the implicit multibyte->unibyte conversion
         uses string-make-unibyte rather than string-as-unibyte.
diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el
index c1b7b888e9e..18c0e23f709 100644
--- a/lisp/gnus/nnimap.el
+++ b/lisp/gnus/nnimap.el
@@ -616,7 +616,9 @@ If EXAMINE is non-nil the group is selected read-only."
               lines (imap-body-lines (imap-message-body imap-current-message))
               chars (imap-message-get imap-current-message 'RFC822.SIZE)))
       (nnheader-insert-nov
-       (with-temp-buffer
+       ;; At this stage, we only have bytes, so let's use unibyte buffers
+       ;; to make it more clear.
+       (mm-with-unibyte-buffer
          (buffer-disable-undo)
          (insert headers)
          (let ((head (nnheader-parse-naked-head uid)))
@@ -1552,8 +1554,7 @@ function is generally only called when Gnus is shutting down."
         ;; request the article only when the move is NOT internal
         (and (or move-is-internal
                  (nnimap-request-article article group server))
-             (save-excursion
-               (set-buffer buf)
+             (with-current-buffer buf
                (buffer-disable-undo (current-buffer))
                (insert-buffer-substring nntp-server-buffer)
                (setq result (eval accept-form))