diff options
| -rw-r--r-- | lisp/gnus/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/gnus/nnimap.el | 7 |
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)) |