mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-04 02:51:31 -08:00
Code Issues Projects Releases Wiki Activity

* nnspool.el (nnspool-request-post): Ditto.

Browse source
This commit is contained in:
ShengHuo ZHU 2002-01-04 14:34:43 +00:00
parent 98cf1bb563
commit 24c4abf9a1
2 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

1
lisp/gnus/ChangeLog
View file

@ -4,6 +4,7 @@
* mm-util.el (mm-use-find-coding-systems-region): New variable. * mm-util.el (mm-use-find-coding-systems-region): New variable.
(mm-find-mime-charset-region): Use it. (mm-find-mime-charset-region): Use it.
* nntp.el (nntp-send-buffer): Use mm-with-unibyte-current-buffer. * 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> 2002-01-01 ShengHuo ZHU <zsh@cs.rochester.edu>

6
lisp/gnus/nnspool.el
View file

@ -1,7 +1,8 @@
;;; nnspool.el --- spool access for GNU Emacs ;;; nnspool.el --- spool access for GNU Emacs
;; Copyright (C) 1988, 1989, 1990, 1993, 1994, 1995, 1996, 1997, 1998, ;; 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> ;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet>
;; Lars Magne Ingebrigtsen <larsi@gnus.org> ;; Lars Magne Ingebrigtsen <larsi@gnus.org>
@ -327,7 +328,8 @@ there.")
() ()
(nnheader-report 'nnspool "") (nnheader-report 'nnspool "")
(set-process-sentinel proc 'nnspool-inews-sentinel) (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 ;; We slap a condition-case around this, because the process may
;; have exited already... ;; have exited already...
(ignore-errors (ignore-errors