Mercurial > hg > xemacs-beta

comparison lisp/tm/gnus-mime.el @ 30:ec9a17fef872 r19-15b98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b98
author cvs
date Mon, 13 Aug 2007 08:52:29 +0200
parents 1917ad0d78d7
children e04119814345
comparison
equal deleted inserted replaced
29:7976500f47f9 30:ec9a17fef872
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.5 $ 7 ;; Version: $Revision: 1.6 $
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.5 1997/03/04 08:45:01 steve Exp $") 36 "$Id: gnus-mime.el,v 1.6 1997/03/09 02:37:48 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 ()