mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
(nnimap-request-move-article): Use with-current-buffer.
This commit is contained in:
Stefan Monnier 2008-03-12 18:40:01 +00:00
parent d4eb2b7e39
commit 9c5fe825f7
2 changed files with 7 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/gnus/nnimap.el
View file

@ -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))