changeset 42531:b55b6c75a803

* nnspool.el (nnspool-request-post): Ditto.
author ShengHuo ZHU <zsh@cs.rochester.edu>
date Fri, 04 Jan 2002 14:34:43 +0000
parents b4f7feb654e3
children b27d842c7fca
files lisp/gnus/ChangeLog lisp/gnus/nnspool.el
diffstat 2 files changed, 5 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog	Fri Jan 04 14:05:10 2002 +0000
+++ b/lisp/gnus/ChangeLog	Fri Jan 04 14:34:43 2002 +0000
@@ -4,6 +4,7 @@
 	* mm-util.el (mm-use-find-coding-systems-region): New variable.
 	(mm-find-mime-charset-region): Use it.
 	* nntp.el (nntp-send-buffer): Use mm-with-unibyte-current-buffer.
+	* nnspool.el (nnspool-request-post): Ditto.
 
 2002-01-01  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
--- a/lisp/gnus/nnspool.el	Fri Jan 04 14:05:10 2002 +0000
+++ b/lisp/gnus/nnspool.el	Fri Jan 04 14:34:43 2002 +0000
@@ -1,7 +1,8 @@
 ;;; nnspool.el --- spool access for GNU Emacs
 
 ;; Copyright (C) 1988, 1989, 1990, 1993, 1994, 1995, 1996, 1997, 1998,
-;;	2000 Free Software Foundation, Inc.
+;;               2000, 2002 
+;;               Free Software Foundation, Inc.
 
 ;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet>
 ;; 	Lars Magne Ingebrigtsen <larsi@gnus.org>
@@ -327,7 +328,8 @@
 	  ()
 	(nnheader-report 'nnspool "")
 	(set-process-sentinel proc 'nnspool-inews-sentinel)
-	(process-send-region proc (point-min) (point-max))
+	(mm-with-unibyte-current-buffer
+	  (process-send-region proc (point-min) (point-max)))
 	;; We slap a condition-case around this, because the process may
 	;; have exited already...
 	(ignore-errors