Commit 2ec9cf15 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(nnheader-init-server-buffer): Use with-current-buffer.

(nnheader-string-as-multibyte): Remove.
parent 3d2440b4
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
......
......@@ -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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment