Mercurial > hg > xemacs-beta

comparison lisp/tm/gnus-charset.el @ 12:bcdc7deadc19 r19-15b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b7
author cvs
date Mon, 13 Aug 2007 08:48:16 +0200
parents 4b173ad71786
children e04119814345
comparison
equal deleted inserted replaced
11:91ffe8bd52e4 12:bcdc7deadc19
3 ;; Copyright (C) 1995,1996 Free Software Foundation, Inc. 3 ;; Copyright (C) 1995,1996 Free Software Foundation, Inc.
4 4
5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp> 5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
6 ;; Created: 1996/8/6 6 ;; Created: 1996/8/6
7 ;; Version: 7 ;; Version:
8 ;; $Id: gnus-charset.el,v 1.2 1996/12/22 00:29:34 steve Exp $ 8 ;; $Id: gnus-charset.el,v 1.3 1997/01/04 21:20:10 steve Exp $
9 ;; Keywords: news, MIME, multimedia, multilingual, encoded-word 9 ;; Keywords: news, MIME, multimedia, multilingual, encoded-word
10 10
11 ;; This file is not part of GNU Emacs yet. 11 ;; This file is not part of GNU Emacs yet.
12 12
13 ;; This program is free software; you can redistribute it and/or 13 ;; This program is free software; you can redistribute it and/or
105 (after-insert-file-functions ; for jam-code-guess 105 (after-insert-file-functions ; for jam-code-guess
106 (if (memq 'jam-code-guess-after-insert-file-function 106 (if (memq 'jam-code-guess-after-insert-file-function
107 after-insert-file-functions) 107 after-insert-file-functions)
108 '(jam-code-guess-after-insert-file-function)))) 108 '(jam-code-guess-after-insert-file-function))))
109 (insert-file-contents filename visit beg end replace)) 109 (insert-file-contents filename visit beg end replace))
110 )) 110 )
111 ;; for gnspool on OS/2
112 (while (re-search-forward "\r$" nil t)
113 (replace-match "")
114 )
115 )
111 ;; imported from Red Gnus 0.66 116 ;; imported from Red Gnus 0.66
112 (or (fboundp 'nnheader-auto-mode-alist) 117 (or (fboundp 'nnheader-auto-mode-alist)
113 (defun nnheader-auto-mode-alist () 118 (defun nnheader-auto-mode-alist ()
114 (let ((alist auto-mode-alist) 119 (let ((alist auto-mode-alist)
115 out) 120 out)