diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-03-12 19:07:16 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-03-12 19:07:16 +0000 |
| commit | 2ec9cf150b73eae888975249c180ac5400ee67e7 (patch) | |
| tree | 5037ad8cbef824c4c9c6ccb1a5f1db18d832adb8 /lisp/gnus | |
| parent | 3d2440b4323f995d39eadd9542889376a22596db (diff) | |
| download | emacs-2ec9cf150b73eae888975249c180ac5400ee67e7.tar.gz | |
(nnheader-init-server-buffer): Use with-current-buffer.
(nnheader-string-as-multibyte): Remove.
Diffstat (limited to 'lisp/gnus')
| -rw-r--r-- | lisp/gnus/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/gnus/nnheader.el | 10 |
2 files changed, 7 insertions, 6 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 91a52e87c40..026b2779ec6 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,5 +1,8 @@ 2008-03-12 Stefan Monnier <monnier@iro.umontreal.ca> + * nnheader.el (nnheader-init-server-buffer): Use with-current-buffer. + (nnheader-string-as-multibyte): Remove. + * mm-view.el: Use inhibit-read-only. (mm-inline-text-html-render-with-w3, mm-inline-message): Use dolist. (mm-pkcs7-signed-magic, mm-pkcs7-enveloped-magic): Use just string diff --git a/lisp/gnus/nnheader.el b/lisp/gnus/nnheader.el index b448d40f104..7bb573a4950 100644 --- a/lisp/gnus/nnheader.el +++ b/lisp/gnus/nnheader.el @@ -572,10 +572,9 @@ the line could be found." (defun nnheader-init-server-buffer () "Initialize the Gnus-backend communication buffer." - (save-excursion - (unless (gnus-buffer-live-p nntp-server-buffer) - (setq nntp-server-buffer (get-buffer-create " *nntpd*"))) - (set-buffer nntp-server-buffer) + (unless (gnus-buffer-live-p nntp-server-buffer) + (setq nntp-server-buffer (get-buffer-create " *nntpd*"))) + (with-current-buffer nntp-server-buffer (mm-enable-multibyte) (erase-buffer) (kill-all-local-variables) @@ -1060,7 +1059,6 @@ See `find-file-noselect' for the arguments." (defalias 'nnheader-cancel-timer 'cancel-timer) (defalias 'nnheader-cancel-function-timers 'cancel-function-timers) -(defalias 'nnheader-string-as-multibyte 'string-as-multibyte) (defun nnheader-accept-process-output (process) (accept-process-output @@ -1077,5 +1075,5 @@ See `find-file-noselect' for the arguments." (provide 'nnheader) -;;; arch-tag: a9c4b7d9-52ae-4ec9-b196-dfd93124d202 +;; arch-tag: a9c4b7d9-52ae-4ec9-b196-dfd93124d202 ;;; nnheader.el ends here |