Mercurial > hg > xemacs-beta

comparison lisp/tm/gnus-sum-mime.el @ 110:fe104dbd9147 r20-1b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b7
author cvs
date Mon, 13 Aug 2007 09:19:45 +0200
parents 0d2f883870bc
children 9f59509498e1
comparison
equal deleted inserted replaced
109:e183fc049578 110:fe104dbd9147
3 ;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc. 3 ;; Copyright (C) 1995,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: 7 ;; Version:
8 ;; $Id: gnus-sum-mime.el,v 1.3 1997/02/15 22:21:26 steve Exp $ 8 ;; $Id: gnus-sum-mime.el,v 1.4 1997/03/16 03:05:46 steve Exp $
9 ;; Keywords: news, MIME, multimedia, multilingual, encoded-word 9 ;; Keywords: news, MIME, multimedia, multilingual, encoded-word
10 10
11 ;; This file is not part of GNU Emacs yet. 11 ;; This file is not part of GNU Emacs yet.
12 12
13 ;; This program is free software; you can redistribute it and/or 13 ;; This program is free software; you can redistribute it and/or
94 (function gnus-summary-preview-mime-message)) 94 (function gnus-summary-preview-mime-message))
95 (define-key gnus-summary-mode-map "\e\r" 95 (define-key gnus-summary-mode-map "\e\r"
96 (function gnus-summary-scroll-down)) 96 (function gnus-summary-scroll-down))
97 97
98 98
99 ;;; @ for tm-partial
100 ;;;
101
102 (defun gnus-mime-partial-preview-function ()
103 (gnus-summary-preview-mime-message (gnus-summary-article-number))
104 )
105
106 (call-after-loaded
107 'tm-partial
108 (function
109 (lambda ()
110 (set-atype 'mime/content-decoding-condition
111 '((type . "message/partial")
112 (method . mime-article/grab-message/partials)
113 (major-mode . gnus-original-article-mode)
114 (summary-buffer-exp . gnus-summary-buffer)
115 ))
116 (set-alist 'tm-partial/preview-article-method-alist
117 'gnus-original-article-mode
118 'gnus-mime-partial-preview-function)
119 )))
120
121
99 ;;; @ end 122 ;;; @ end
100 ;;; 123 ;;;
101 124
102 (provide 'gnus-sum-mime) 125 (provide 'gnus-sum-mime)
103 126