Mercurial > hg > xemacs-beta

comparison lisp/tm/tm-mh-e.el @ 195:a2f645c6b9f8 r20-3b24

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b24
author cvs
date Mon, 13 Aug 2007 09:59:05 +0200
parents 2d532a89d707
children
comparison
equal deleted inserted replaced
194:2947057885e5 195:a2f645c6b9f8
4 4
5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp> 5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
6 ;; OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp> 6 ;; OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>
7 ;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp> 7 ;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
8 ;; Created: 1993/11/21 (obsolete mh-e-mime.el) 8 ;; Created: 1993/11/21 (obsolete mh-e-mime.el)
9 ;; Version: $Revision: 1.2 $ 9 ;; Version: $Revision: 1.3 $
10 ;; Keywords: mail, MH, MIME, multimedia, encoded-word, multilingual 10 ;; Keywords: mail, MH, MIME, multimedia, encoded-word, multilingual
11 11
12 ;; This file is part of tm (Tools for MIME). 12 ;; This file is part of tm (Tools for MIME).
13 13
14 ;; This program is free software; you can redistribute it and/or 14 ;; This program is free software; you can redistribute it and/or
46 46
47 ;;; @ version 47 ;;; @ version
48 ;;; 48 ;;;
49 49
50 (defconst tm-mh-e/RCS-ID 50 (defconst tm-mh-e/RCS-ID
51 "$Id: tm-mh-e.el,v 1.2 1997/07/19 22:11:28 steve Exp $") 51 "$Id: tm-mh-e.el,v 1.3 1997/09/27 16:57:47 steve Exp $")
52 52
53 (defconst tm-mh-e/version (get-version-string tm-mh-e/RCS-ID)) 53 (defconst tm-mh-e/version (get-version-string tm-mh-e/RCS-ID))
54 54
55 55
56 ;;; @ variable 56 ;;; @ variable
71 (setq mode tm-mh-e/automatic-mime-preview) 71 (setq mode tm-mh-e/automatic-mime-preview)
72 ) 72 )
73 ;; Display message NUMBER of FOLDER. 73 ;; Display message NUMBER of FOLDER.
74 ;; Sets the current buffer to the show buffer. 74 ;; Sets the current buffer to the show buffer.
75 (set-buffer folder) 75 (set-buffer folder)
76 (or show-buffer
77 (setq show-buffer mh-show-buffer))
76 ;; Bind variables in folder buffer in case they are local 78 ;; Bind variables in folder buffer in case they are local
77 (let ((formfile mhl-formfile) 79 (let ((formfile mhl-formfile)
78 (clean-message-header mh-clean-message-header) 80 (clean-message-header mh-clean-message-header)
79 (invisible-headers mh-invisible-headers) 81 (invisible-headers mh-invisible-headers)
80 (visible-headers mh-visible-headers) 82 (visible-headers mh-visible-headers)
81 (msg-filename (mh-msg-filename msg-num)) 83 (msg-filename (mh-msg-filename msg-num))
82 (show-buffer mh-show-buffer)
83 ) 84 )
84 (if (not (file-exists-p msg-filename)) 85 (if (not (file-exists-p msg-filename))
85 (error "Message %d does not exist" msg-num)) 86 (error "Message %d does not exist" msg-num))
86 (set-buffer show-buffer) 87 (set-buffer show-buffer)
87 (cond ((not (equal msg-filename buffer-file-name)) 88 (cond ((not (equal msg-filename buffer-file-name))