Mercurial > hg > xemacs-beta

comparison lisp/tm/gnus-charset.el @ 74:54cc21c15cbb r20-0b32

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b32
author cvs
date Mon, 13 Aug 2007 09:04:33 +0200
parents 131b0175ea99
children c7528f8e288d
comparison
equal deleted inserted replaced
73:e2d7a37b7c8d 74:54cc21c15cbb
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.1.1.1 1996/12/18 22:43:38 steve Exp $ 8 ;; $Id: gnus-charset.el,v 1.1.1.2 1996/12/21 20:50:47 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
81 'nntp-open-network-stream-with-no-code-conversion) 81 'nntp-open-network-stream-with-no-code-conversion)
82 ) 82 )
83 (call-after-loaded 83 (call-after-loaded
84 'nnheader 84 'nnheader
85 (lambda () 85 (lambda ()
86 (defun nnheader-find-file-noselect (filename &optional nowarn rawfile) 86 (defun nnheader-find-file-noselect (&rest args)
87 (as-binary-input-file (find-file-noselect filename nowarn rawfile)) 87 (as-binary-input-file
88 (let ((format-alist nil)
89 (auto-mode-alist (nnheader-auto-mode-alist))
90 (default-major-mode 'fundamental-mode)
91 (after-insert-file-functions ; for jam-code-guess
92 (if (memq 'jam-code-guess-after-insert-file-function
93 after-insert-file-functions)
94 '(jam-code-guess-after-insert-file-function))))
95 (apply 'find-file-noselect args)))
88 ) 96 )
89 (defun nnheader-insert-file-contents-literally 97 ;; Red Gnus 0.67 or later
98 (defun nnheader-insert-file-contents
90 (filename &optional visit beg end replace) 99 (filename &optional visit beg end replace)
91 (as-binary-input-file 100 (as-binary-input-file
92 (insert-file-contents-literally filename visit beg end replace) 101 (let ((format-alist nil)
93 )) 102 (auto-mode-alist (nnheader-auto-mode-alist))
103 (default-major-mode 'fundamental-mode)
104 (enable-local-variables nil)
105 (after-insert-file-functions ; for jam-code-guess
106 (if (memq 'jam-code-guess-after-insert-file-function
107 after-insert-file-functions)
108 '(jam-code-guess-after-insert-file-function))))
109 (insert-file-contents filename visit beg end replace))
110 ))
111 ;; imported from Red Gnus 0.66
112 (or (fboundp 'nnheader-auto-mode-alist)
113 (defun nnheader-auto-mode-alist ()
114 (let ((alist auto-mode-alist)
115 out)
116 (while alist
117 (when (listp (cdar alist))
118 (push (car alist) out))
119 (pop alist))
120 (nreverse out)))
121 )
122 ;; alias for Old Gnus
123 (defalias 'nnheader-insert-file-contents-literally
124 'nnheader-insert-file-contents)
94 )) 125 ))
95 (call-after-loaded 126 (call-after-loaded
96 'nnmail 127 'nnmail
97 (lambda () 128 (lambda ()
98 (defun nnmail-find-file (file) 129 (defun nnmail-find-file (file)