aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2008-04-05 20:14:17 +0000
committerStefan Monnier2008-04-05 20:14:17 +0000
commit33e2f72c04be3ff98e7ef5895b0fe5e0f7bc14ed (patch)
treebc0665a4dec1cd2cb671a5fdfd7c18d3e88bdd50
parent75eda25b52362116c1b5ddc71f122ccf2c1515f1 (diff)
downloademacs-33e2f72c04be3ff98e7ef5895b0fe5e0f7bc14ed.tar.gz
emacs-33e2f72c04be3ff98e7ef5895b0fe5e0f7bc14ed.zip
(nnheader-init-server-buffer): Change buffer's multibyteness
after rather than before erasing it.
-rw-r--r--lisp/gnus/ChangeLog3
-rw-r--r--lisp/gnus/nnheader.el2
2 files changed, 4 insertions, 1 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 7cfa5358c63..028a015a279 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,5 +1,8 @@
12008-04-05 Stefan Monnier <monnier@iro.umontreal.ca> 12008-04-05 Stefan Monnier <monnier@iro.umontreal.ca>
2 2
3 * nnheader.el (nnheader-init-server-buffer): Change buffer's multibyteness
4 after rather than before erasing it.
5
3 * gnus-art.el (gnus-mime-replace-part): Remove unnecessary use of 6 * gnus-art.el (gnus-mime-replace-part): Remove unnecessary use of
4 mm-with-multibyte. 7 mm-with-multibyte.
5 (gnus-request-article-this-buffer): Make sure the proper decoding is used 8 (gnus-request-article-this-buffer): Make sure the proper decoding is used
diff --git a/lisp/gnus/nnheader.el b/lisp/gnus/nnheader.el
index 7bb573a4950..15e6a6c093f 100644
--- a/lisp/gnus/nnheader.el
+++ b/lisp/gnus/nnheader.el
@@ -575,8 +575,8 @@ the line could be found."
575 (unless (gnus-buffer-live-p nntp-server-buffer) 575 (unless (gnus-buffer-live-p nntp-server-buffer)
576 (setq nntp-server-buffer (get-buffer-create " *nntpd*"))) 576 (setq nntp-server-buffer (get-buffer-create " *nntpd*")))
577 (with-current-buffer nntp-server-buffer 577 (with-current-buffer nntp-server-buffer
578 (mm-enable-multibyte)
579 (erase-buffer) 578 (erase-buffer)
579 (mm-enable-multibyte)
580 (kill-all-local-variables) 580 (kill-all-local-variables)
581 (setq case-fold-search t) ;Should ignore case. 581 (setq case-fold-search t) ;Should ignore case.
582 (set (make-local-variable 'nntp-process-response) nil) 582 (set (make-local-variable 'nntp-process-response) nil)