Mercurial > hg > xemacs-beta

comparison lisp/tm/message-mime.el @ 16:0293115a14e9 r19-15b91

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b91
author cvs
date Mon, 13 Aug 2007 08:49:20 +0200
parents 49a24b4fd526
children 131b0175ea99
comparison
equal deleted inserted replaced
15:ad457d5f7d04 16:0293115a14e9
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: message-mime.el,v 1.3 1996/12/29 00:15:12 steve Exp $ 8 ;; $Id: message-mime.el,v 1.4 1997/02/02 05:06:18 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
41 (or (string-match message-included-forward-headers "Content-Type:") 41 (or (string-match message-included-forward-headers "Content-Type:")
42 (setq message-included-forward-headers 42 (setq message-included-forward-headers
43 (concat message-included-forward-headers "\\|^Content-Type:")) 43 (concat message-included-forward-headers "\\|^Content-Type:"))
44 ) 44 )
45 45
46 (or (string-match message-included-forward-headers
47 "Content-Transfer-Encoding:")
48 (setq message-included-forward-headers
49 (concat message-included-forward-headers
50 "\\|^Content-Transfer-Encoding:"))
51 )
46 52
47 ;;; @ for tm-edit 53 ;;; @ for tm-edit
48 ;;; 54 ;;;
49 55
50 ;; suggested by OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp> 56 ;; suggested by OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>