Mercurial > hg > xemacs-beta

comparison lisp/tm/gnus-mime.el @ 32:e04119814345 r19-15b99

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b99
author cvs
date Mon, 13 Aug 2007 08:52:56 +0200
parents ec9a17fef872
children 131b0175ea99
comparison
equal deleted inserted replaced
31:b9328a10c56c 32:e04119814345
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.6 $ 7 ;; Version: $Revision: 1.7 $
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.6 1997/03/09 02:37:48 steve Exp $") 36 "$Id: gnus-mime.el,v 1.7 1997/03/16 05:55:40 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 (eval-when-compile
69 (require 'gnus-sum))
70
71 ;;; @ for tm-partial
72 ;;;
73
74 (defun gnus-mime-partial-preview-function ()
75 (gnus-summary-preview-mime-message (gnus-summary-article-number))
76 )
77
78 (call-after-loaded
79 'tm-partial
80 (function
81 (lambda ()
82 (set-atype 'mime/content-decoding-condition
83 '((type . "message/partial")
84 (method . mime-article/grab-message/partials)
85 (major-mode . gnus-original-article-mode)
86 (summary-buffer-exp . gnus-summary-buffer)
87 ))
88 (set-alist 'tm-partial/preview-article-method-alist
89 'gnus-original-article-mode
90 'gnus-mime-partial-preview-function)
91 )))
92 68
93 69
94 ;;; @ end 70 ;;; @ end
95 ;;; 71 ;;;
96 72