Mercurial > hg > xemacs-beta

comparison lisp/tm/gnus-charset.el @ 32:e04119814345 r19-15b99

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b99
author cvs
date Mon, 13 Aug 2007 08:52:56 +0200
parents bcdc7deadc19
children 131b0175ea99
comparison
equal deleted inserted replaced
31:b9328a10c56c 32:e04119814345
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.3 1997/01/04 21:20:10 steve Exp $ 8 ;; $Id: gnus-charset.el,v 1.4 1997/03/16 05:55:40 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
147 (file-error nil)) 147 (file-error nil))
148 ))) 148 )))
149 )) 149 ))
150 (defun gnus-prepare-save-mail-function () 150 (defun gnus-prepare-save-mail-function ()
151 (setq file-coding-system *noconv* 151 (setq file-coding-system *noconv*
152 coding-system-for-write 'no-conversion) 152 buffer-file-coding-system 'no-conversion)
153 ) 153 )
154 (add-hook 'nnmail-prepare-save-mail-hook 154 (add-hook 'nnmail-prepare-save-mail-hook
155 'gnus-prepare-save-mail-function) 155 'gnus-prepare-save-mail-function)
156 156
157 (gnus-set-newsgroup-default-charset "alt.chinese" 'hz-gb-2312) 157 (gnus-set-newsgroup-default-charset "alt.chinese" 'hz-gb-2312)