Mercurial > hg > xemacs-beta

comparison lisp/tm/tm-view.el @ 136:b980b6286996 r20-2b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b2
author cvs
date Mon, 13 Aug 2007 09:31:12 +0200
parents 360340f9fd5f
children 25f70ba0133c
comparison
equal deleted inserted replaced
135:4636a6841cd6 136:b980b6286996
2 2
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: 1994/7/13 (1994/8/31 obsolete tm-body.el) 6 ;; Created: 1994/7/13 (1994/8/31 obsolete tm-body.el)
7 ;; Version: $Revision: 1.3 $ 7 ;; Version: $Revision: 1.4 $
8 ;; Keywords: mail, news, MIME, multimedia 8 ;; Keywords: mail, news, MIME, multimedia
9 9
10 ;; This file is part of tm (Tools for MIME). 10 ;; This file is part of tm (Tools for MIME).
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
40 40
41 ;;; @ version 41 ;;; @ version
42 ;;; 42 ;;;
43 43
44 (defconst mime-viewer/RCS-ID 44 (defconst mime-viewer/RCS-ID
45 "$Id: tm-view.el,v 1.3 1997/03/08 23:26:58 steve Exp $") 45 "$Id: tm-view.el,v 1.4 1997/04/24 04:00:14 steve Exp $")
46 46
47 (defconst mime-viewer/version (get-version-string mime-viewer/RCS-ID)) 47 (defconst mime-viewer/version (get-version-string mime-viewer/RCS-ID))
48 (defconst mime/viewer-version mime-viewer/version) 48 (defconst mime/viewer-version mime-viewer/version)
49 49
50 50
176 (apply (function regexp-or) mime-viewer/visible-field-list) 176 (apply (function regexp-or) mime-viewer/visible-field-list)
177 ":")) 177 ":"))
178 178
179 (defvar mime-viewer/redisplay nil) 179 (defvar mime-viewer/redisplay nil)
180 180
181 (defvar mime-viewer/announcement-for-message/partial 181 (defun mime-viewer/get-key-for-fun (symb)
182 (if (and (>= emacs-major-version 19) window-system) 182 (let ((key (where-is-internal symb))
183 "\ 183 )
184 (if key
185 (key-description (car key))
186 "v")))
187
188 (defun mime-viewer/announcement-for-message/partial ()
189 (let ((key (mime-viewer/get-key-for-fun 'mime-viewer/play-content)))
190 (if (and (>= emacs-major-version 19) window-system)
191 (concat
192 "\
184 \[[ This is message/partial style split message. ]] 193 \[[ This is message/partial style split message. ]]
185 \[[ Please press `v' key in this buffer ]] 194 \[[ Please press `"
186 \[[ or click here by mouse button-2. ]]" 195 key
187 "\ 196 "' in this buffer ]]
197 \[[ or click here by mouse button-2. ]]")
198 (concat
199 "\
188 \[[ This is message/partial style split message. ]] 200 \[[ This is message/partial style split message. ]]
189 \[[ Please press `v' key in this buffer. ]]" 201 \[[ Please press `"
190 )) 202 key
191 203 "' in this buffer. ]]")
204 )))
192 205
193 ;;; @@ predicate functions 206 ;;; @@ predicate functions
194 ;;; 207 ;;;
195 208
196 (defun mime-viewer/header-visible-p (rcnum cinfo &optional ctype) 209 (defun mime-viewer/header-visible-p (rcnum cinfo &optional ctype)
577 (if (not (search-backward "\n\n" nil t)) 590 (if (not (search-backward "\n\n" nil t))
578 (insert "\n") 591 (insert "\n")
579 ) 592 )
580 (let ((be (point-max))) 593 (let ((be (point-max)))
581 (narrow-to-region be be) 594 (narrow-to-region be be)
582 (insert mime-viewer/announcement-for-message/partial) 595 (insert (mime-viewer/announcement-for-message/partial))
583 (tm:add-button (point-min)(point-max) 596 (tm:add-button (point-min)(point-max)
584 (function mime-viewer/play-content)) 597 (function mime-viewer/play-content))
585 ))) 598 )))
586 599
587 (defun mime-article/get-uu-filename (param &optional encoding) 600 (defun mime-article/get-uu-filename (param &optional encoding)