Mercurial > hg > xemacs-beta

comparison lisp/tm/gnus-mime.el @ 108:360340f9fd5f r20-1b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b6
author cvs
date Mon, 13 Aug 2007 09:18:39 +0200
parents 8ff55ebd4be9
children fe104dbd9147
comparison
equal deleted inserted replaced
107:523141596bda 108:360340f9fd5f
2 2
3 ;; Copyright (C) 1996,1997 Free Software Foundation, Inc. 3 ;; Copyright (C) 1996,1997 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: $Revision: 1.4 $ 7 ;; Version: $Revision: 1.5 $
8 ;; Keywords: news, MIME, multimedia, multilingual, encoded-word 8 ;; Keywords: news, MIME, multimedia, multilingual, encoded-word
9 9
10 ;; This file is not part of GNU Emacs yet. 10 ;; This file is not part of GNU Emacs yet.
11 11
12 ;; This program is free software; you can redistribute it and/or 12 ;; This program is free software; you can redistribute it and/or
31 31
32 ;;; @ version 32 ;;; @ version
33 ;;; 33 ;;;
34 34
35 (defconst gnus-mime-RCS-ID 35 (defconst gnus-mime-RCS-ID
36 "$Id: gnus-mime.el,v 1.4 1997/03/04 08:01:31 steve Exp $") 36 "$Id: gnus-mime.el,v 1.5 1997/03/08 23:26:57 steve Exp $")
37 37
38 (defconst gnus-mime-version 38 (defconst gnus-mime-version
39 (get-version-string gnus-mime-RCS-ID)) 39 (get-version-string gnus-mime-RCS-ID))
40 40
41 41
63 ;;; @ load 63 ;;; @ load
64 ;;; 64 ;;;
65 65
66 (require 'gnus) 66 (require 'gnus)
67 (require 'gnus-charset) 67 (require 'gnus-charset)
68 (require 'gnus-sum) 68 (eval-when-compile
69 (require 'gnus-sum))
69 70
70 ;;; @ for tm-partial 71 ;;; @ for tm-partial
71 ;;; 72 ;;;
72 73
73 (defun gnus-mime-partial-preview-function () 74 (defun gnus-mime-partial-preview-function ()