From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 12 Mar 2008 19:07:16 +0000 (+0000)
Subject: (nnheader-init-server-buffer): Use with-current-buffer.
X-Git-Tag: emacs-pretest-23.0.90~7252
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2ec9cf150b73eae888975249c180ac5400ee67e7;p=emacs.git

(nnheader-init-server-buffer): Use with-current-buffer.
(nnheader-string-as-multibyte): Remove.
---

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