Mercurial > hg > xemacs-beta

comparison lisp/tm/gnus-charset.el @ 8:4b173ad71786 r19-15b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b5
author cvs
date Mon, 13 Aug 2007 08:47:35 +0200
parents b82b59fe008d
children bcdc7deadc19
comparison
equal deleted inserted replaced
7:c153ca296910 8:4b173ad71786
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 03:55:31 steve Exp $ 8 ;; $Id: gnus-charset.el,v 1.2 1996/12/22 00:29:34 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
86 (defun nnheader-find-file-noselect (&rest args) 86 (defun nnheader-find-file-noselect (&rest args)
87 (as-binary-input-file 87 (as-binary-input-file
88 (let ((format-alist nil) 88 (let ((format-alist nil)
89 (auto-mode-alist (nnheader-auto-mode-alist)) 89 (auto-mode-alist (nnheader-auto-mode-alist))
90 (default-major-mode 'fundamental-mode) 90 (default-major-mode 'fundamental-mode)
91 (after-insert-file-functions nil)) 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))))
92 (apply 'find-file-noselect args))) 95 (apply 'find-file-noselect args)))
93 ) 96 )
94 ;; Red Gnus 0.67 or later 97 ;; Red Gnus 0.67 or later
95 (defun nnheader-insert-file-contents 98 (defun nnheader-insert-file-contents
96 (filename &optional visit beg end replace) 99 (filename &optional visit beg end replace)
97 (as-binary-input-file 100 (as-binary-input-file
98 (let ((format-alist nil) 101 (let ((format-alist nil)
99 (auto-mode-alist (nnheader-auto-mode-alist)) 102 (auto-mode-alist (nnheader-auto-mode-alist))
100 (default-major-mode 'fundamental-mode) 103 (default-major-mode 'fundamental-mode)
101 (after-insert-file-functions nil)) 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))))
102 (insert-file-contents filename visit beg end replace)) 109 (insert-file-contents filename visit beg end replace))
103 )) 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 )
104 ;; alias for Old Gnus 122 ;; alias for Old Gnus
105 (defalias 'nnheader-insert-file-contents-literally 123 (defalias 'nnheader-insert-file-contents-literally
106 'nnheader-insert-file-contents) 124 'nnheader-insert-file-contents)
107 )) 125 ))
108 (call-after-loaded 126 (call-after-loaded