Mercurial > emacs
changeset 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 | 734bb318f69e |
| children | a3d61f1532f1 |
| files | lisp/gnus/ChangeLog lisp/gnus/nnimap.el |
| diffstat | 2 files changed, 7 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Wed Mar 12 18:30:52 2008 +0000 +++ b/lisp/gnus/ChangeLog Wed Mar 12 18:40:01 2008 +0000 @@ -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.
--- 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))