Mercurial > hg > xemacs-beta

comparison lisp/tm/gnus-mime.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents e04119814345
children c0c698873ce1
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
1 ;;; gnus-mime.el --- MIME extensions for Gnus 1 ;;; gnus-mime.el --- MIME extensions for Gnus
2 2
3 ;; Copyright (C) 1996,1997 Free Software Foundation, Inc. 3 ;; Copyright (C) 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: $Revision: 1.7 $ 7 ;; Version: $Revision: 1.1.1.1 $
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.7 1997/03/16 05:55:40 steve Exp $") 36 "$Id: gnus-mime.el,v 1.1.1.1 1996/12/18 22:43:38 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")
67 (require 'gnus-charset) 73 (require 'gnus-charset)
74
75
76 ;;; @ for tm-partial
77 ;;;
78
79 (defun gnus-mime-partial-preview-function ()
80 (gnus-summary-preview-mime-message (gnus-summary-article-number))
81 )
82
83 (call-after-loaded
84 'tm-partial
85 (function
86 (lambda ()
87 (set-atype 'mime/content-decoding-condition
88 '((type . "message/partial")
89 (method . mime-article/grab-message/partials)
90 (major-mode . gnus-original-article-mode)
91 (summary-buffer-exp . gnus-summary-buffer)
92 ))
93 (set-alist 'tm-partial/preview-article-method-alist
94 'gnus-original-article-mode
95 'gnus-mime-partial-preview-function)
96 )))
68 97
69 98
70 ;;; @ end 99 ;;; @ end
71 ;;; 100 ;;;
72 101
73 (provide 'gnus-mime) 102 (provide 'gnus-mime)
74 103
75 (or gnus-is-red-gnus-or-later 104 (if gnus-is-red-gnus-or-later
76 (require 'gnus-mime-old) 105 (progn
77 ) 106 (call-after-loaded 'gnus-art (lambda ()
78 107 (require 'gnus-art-mime)
79 (call-after-loaded 'gnus-art (lambda () 108 ))
80 (require 'gnus-art-mime) 109 (call-after-loaded 'gnus-sum (lambda ()
81 )) 110 (require 'gnus-sum-mime)
82 (call-after-loaded 'gnus-sum (lambda () 111 ))
83 (require 'gnus-sum-mime) 112 )
84 )) 113 (require 'gnus-mime-old)
114 )
85 115
86 (run-hooks 'gnus-mime-load-hook) 116 (run-hooks 'gnus-mime-load-hook)
87 117
88 ;;; gnus-mime.el ends here 118 ;;; gnus-mime.el ends here