1 |
;;; nnspool.el --- spool access for GNU Emacs |
;;; nnspool.el --- spool access for GNU Emacs |
2 |
|
|
3 |
;; Copyright (C) 1988, 1989, 1990, 1993, 1994, 1995, 1996, 1997, 1998, |
;; Copyright (C) 1988, 1989, 1990, 1993, 1994, 1995, 1996, 1997, 1998, |
4 |
;; 2000 Free Software Foundation, Inc. |
;; 2000, 2002 |
5 |
|
;; Free Software Foundation, Inc. |
6 |
|
|
7 |
;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet> |
;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet> |
8 |
;; Lars Magne Ingebrigtsen <larsi@gnus.org> |
;; Lars Magne Ingebrigtsen <larsi@gnus.org> |
328 |
() |
() |
329 |
(nnheader-report 'nnspool "") |
(nnheader-report 'nnspool "") |
330 |
(set-process-sentinel proc 'nnspool-inews-sentinel) |
(set-process-sentinel proc 'nnspool-inews-sentinel) |
331 |
(process-send-region proc (point-min) (point-max)) |
(mm-with-unibyte-current-buffer |
332 |
|
(process-send-region proc (point-min) (point-max))) |
333 |
;; We slap a condition-case around this, because the process may |
;; We slap a condition-case around this, because the process may |
334 |
;; have exited already... |
;; have exited already... |
335 |
(ignore-errors |
(ignore-errors |