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

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

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 21d531f..f5d19f5 100644 (file)
--- 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 c1b7b88..18c0e23 100644 (file)
--- 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))