Mercurial > hg > xemacs-beta

comparison lisp/tm/tm-view.el @ 155:43dd3413c7c7 r20-3b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b4
author cvs
date Mon, 13 Aug 2007 09:39:39 +0200
parents 25f70ba0133c
children
comparison
equal deleted inserted replaced
154:94141801dd7e 155:43dd3413c7c7
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.5 $ 7 ;; Version: $Revision: 1.6 $
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.5 1997/05/29 23:50:21 steve Exp $") 45 "$Id: tm-view.el,v 1.6 1997/06/06 00:57:44 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
180 (apply (function regexp-or) mime-viewer/visible-field-list) 180 (apply (function regexp-or) mime-viewer/visible-field-list)
181 ":")) 181 ":"))
182 182
183 (defvar mime-viewer/redisplay nil) 183 (defvar mime-viewer/redisplay nil)
184 184
185 (defun mime-viewer/get-key-for-fun (symb) 185 (defvar mime-viewer/announcement-for-message/partial
186 (let ((key (where-is-internal symb)) 186 (if (and (>= emacs-major-version 19) window-system)
187 ) 187 "\
188 (if key
189 (key-description (car key))
190 "v")))
191
192 (defun mime-viewer/announcement-for-message/partial ()
193 (let ((key (mime-viewer/get-key-for-fun 'mime-viewer/play-content)))
194 (if (and (>= emacs-major-version 19) window-system)
195 (concat
196 "\
197 \[[ This is message/partial style split message. ]] 188 \[[ This is message/partial style split message. ]]
198 \[[ Please press `" 189 \[[ Please press `v' key in this buffer ]]
199 key 190 \[[ or click here by mouse button-2. ]]"
200 "' in this buffer ]] 191 "\
201 \[[ or click here by mouse button-2. ]]")
202 (concat
203 "\
204 \[[ This is message/partial style split message. ]] 192 \[[ This is message/partial style split message. ]]
205 \[[ Please press `" 193 \[[ Please press `v' key in this buffer. ]]"
206 key 194 ))
207 "' in this buffer. ]]") 195
208 )))
209 196
210 ;;; @@ predicate functions 197 ;;; @@ predicate functions
211 ;;; 198 ;;;
212 199
213 (defun mime-viewer/header-visible-p (rcnum cinfo &optional ctype) 200 (defun mime-viewer/header-visible-p (rcnum cinfo &optional ctype)
594 (if (not (search-backward "\n\n" nil t)) 581 (if (not (search-backward "\n\n" nil t))
595 (insert "\n") 582 (insert "\n")
596 ) 583 )
597 (let ((be (point-max))) 584 (let ((be (point-max)))
598 (narrow-to-region be be) 585 (narrow-to-region be be)
599 (insert (mime-viewer/announcement-for-message/partial)) 586 (insert mime-viewer/announcement-for-message/partial)
600 (tm:add-button (point-min)(point-max) 587 (tm:add-button (point-min)(point-max)
601 (function mime-viewer/play-content)) 588 (function mime-viewer/play-content))
602 ))) 589 )))
603 590
604 (defun mime-article/get-uu-filename (param &optional encoding) 591 (defun mime-article/get-uu-filename (param &optional encoding)