Mercurial > hg > xemacs-beta

comparison lisp/tm/gnus-mime.el @ 98:0d2f883870bc r20-1b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b1
author cvs
date Mon, 13 Aug 2007 09:13:56 +0200
parents c0c698873ce1
children 8ff55ebd4be9
comparison
equal deleted inserted replaced
97:498bf5da1c90 98:0d2f883870bc
1 ;;; gnus-mime.el --- MIME extensions for Gnus 1 ;;; gnus-mime.el --- MIME extensions for Gnus
2 2
3 ;; Copyright (C) 1996 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.2 $ 7 ;; Version: $Revision: 1.3 $
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.2 1996/12/28 21:03:11 steve Exp $") 36 "$Id: gnus-mime.el,v 1.3 1997/02/15 22:21:26 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
62 62
63 ;;; @ load 63 ;;; @ load
64 ;;; 64 ;;;
65 65
66 (require 'gnus) 66 (require 'gnus)
67 (autoload 'gnus-decode-rfc1522 "gnus-art-mime")
68 (autoload 'gnus-article-preview-mime-message "gnus-art-mime")
69 (autoload 'gnus-article-decode-encoded-word "gnus-art-mime")
70 (autoload 'gnus-set-summary-default-charset "gnus-sum-mime")
71 ;;(autoload 'gnus-get-newsgroup-headers "gnus-sum-mime")
72 ;;(autoload 'gnus-get-newsgroup-headers-xover "gnus-sum-mime")
73 (require 'gnus-charset) 67 (require 'gnus-charset)
74 68
75 69
76 ;;; @ for tm-partial 70 ;;; @ for tm-partial
77 ;;; 71 ;;;
99 ;;; @ end 93 ;;; @ end
100 ;;; 94 ;;;
101 95
102 (provide 'gnus-mime) 96 (provide 'gnus-mime)
103 97
104 (if gnus-is-red-gnus-or-later 98 (or gnus-is-red-gnus-or-later
105 (progn 99 (require 'gnus-mime-old)
106 (call-after-loaded 'gnus-art (lambda () 100 )
107 (require 'gnus-art-mime) 101
108 )) 102 (call-after-loaded 'gnus-art (lambda ()
109 (call-after-loaded 'gnus-sum (lambda () 103 (require 'gnus-art-mime)
110 (require 'gnus-sum-mime) 104 ))
111 )) 105 (call-after-loaded 'gnus-sum (lambda ()
112 ) 106 (require 'gnus-sum-mime)
113 (require 'gnus-mime-old) 107 ))
114 )
115 108
116 (run-hooks 'gnus-mime-load-hook) 109 (run-hooks 'gnus-mime-load-hook)
117 110
118 ;;; gnus-mime.el ends here 111 ;;; gnus-mime.el ends here