/[emacs]/emacs/lisp/gnus/nnspool.el
ViewVC logotype

Diff of /emacs/lisp/gnus/nnspool.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by gerd, Tue Sep 19 13:37:09 2000 UTC revision 1.5 by zsh, Fri Jan 4 14:34:43 2002 UTC
# Line 1  Line 1 
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>
# Line 327  there.") Line 328  there.")
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

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26