Mercurial > emacs
diff lisp/gnus/nnimap.el @ 92770:b7f1378e2a2c
(nnimap-retrieve-headers-progress): Use a unibyte temp buffer.
(nnimap-request-move-article): Use with-current-buffer.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Wed, 12 Mar 2008 18:40:01 +0000 |
parents | 773ae07da318 |
children | a789a1138b08 |
line wrap: on
line diff
--- a/lisp/gnus/nnimap.el Wed Mar 12 18:30:52 2008 +0000 +++ b/lisp/gnus/nnimap.el Wed Mar 12 18:40:01 2008 +0000 @@ -616,7 +616,9 @@ 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 @@ ;; 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))