Mercurial > emacs
comparison lisp/gnus/nnheader.el @ 93727:8bfa051b51fe
(nnheader-init-server-buffer): Change buffer's multibyteness
after rather than before erasing it.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Sat, 05 Apr 2008 20:14:17 +0000 |
| parents | d9f180e8f9ac |
| children | f42ef85caf91 |
comparison
equal
deleted
inserted
replaced
| 93726:3e95f26e3241 | 93727:8bfa051b51fe |
|---|---|
| 573 (defun nnheader-init-server-buffer () | 573 (defun nnheader-init-server-buffer () |
| 574 "Initialize the Gnus-backend communication buffer." | 574 "Initialize the Gnus-backend communication buffer." |
| 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 (erase-buffer) | |
| 578 (mm-enable-multibyte) | 579 (mm-enable-multibyte) |
| 579 (erase-buffer) | |
| 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) |
| 583 t)) | 583 t)) |
| 584 | 584 |