;;;
-;;; tm-sgnus.el --- tm-gnus module for September Gnus
+;;; tm-sgnus.el --- MIME extender for Gnus 5.2
;;;
;;; Copyright (C) 1995 Free Software Foundation, Inc.
;;; Copyright (C) 1995,1996 MORIOKA Tomohiko
;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Created: 1995/09/24
-;;; Version: $Revision: 7.61 $
+;;; Version: $Revision: 7.63 $
;;; Keywords: news, MIME, multimedia, multilingual, encoded-word
;;;
;;; This file is part of tm (Tools for MIME).
;;;
(defconst tm-gnus/RCS-ID
- "$Id: tm-sgnus.el,v 7.61 1996/05/20 15:29:30 morioka Exp $")
+ "$Id: tm-sgnus.el,v 7.63 1996/05/27 03:48:56 morioka Exp $")
(defconst tm-gnus/version
(concat (get-version-string tm-gnus/RCS-ID) " for September"))
(call-after-loaded
'nnheader
(lambda ()
- (defun nnheader-find-file-noselect (filename &optional nowarn rawfile)
+ (defun nnmail-find-file (file)
+ "Insert FILE in server buffer safely. [tm-sgnus.el]"
+ (set-buffer nntp-server-buffer)
+ (erase-buffer)
+ (let ((format-alist nil)
+ (after-insert-file-functions nil)
+ (file-coding-system-for-read *noconv*))
+ (condition-case ()
+ (progn (insert-file-contents file) t)
+ (file-error nil))))
+ (defun nnheader-insert-file-contents-literally
+ (filename &optional visit beg end replace)
(let ((file-coding-system-for-read *noconv*))
- (find-file-noselect filename nowarn rawfile)
+ (insert-file-contents-literally filename visit beg end replace)
))
- (defun nnheader-insert-raw-file-contents
- (filename &optional visit beg end replace)
+ ;; compatibility for September Gnus 0.80 .. 0.94
+ (fset 'nnheader-insert-raw-file-contents
+ 'nnheader-insert-file-contents-literally)
+ (defun nnheader-find-file-noselect (filename &optional nowarn rawfile)
(let ((file-coding-system-for-read *noconv*))
- (insert-file-contents filename visit beg end replace)
+ (find-file-noselect filename nowarn rawfile)
))
- ;;(fset 'nnheader-raw-write-region 'si:write-region)
))
(defun tm-gnus/prepare-save-mail-function ()
(setq file-coding-system *noconv*)