Mercurial > hg > xemacs-beta

comparison lisp/tm/tm-ew-d.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 0293115a14e9
children 131b0175ea99
comparison
equal deleted inserted replaced
31:b9328a10c56c 32:e04119814345
7 ;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp> 7 ;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
8 ;; Created: 1995/10/03 8 ;; Created: 1995/10/03
9 ;; Original: 1992/07/20 ENAMI Tsugutomo's `mime.el'. 9 ;; Original: 1992/07/20 ENAMI Tsugutomo's `mime.el'.
10 ;; Renamed: 1993/06/03 to tiny-mime.el. 10 ;; Renamed: 1993/06/03 to tiny-mime.el.
11 ;; Renamed: 1995/10/03 from tiny-mime.el. (split off encoder) 11 ;; Renamed: 1995/10/03 from tiny-mime.el. (split off encoder)
12 ;; Version: $Revision: 1.4 $ 12 ;; Version: $Revision: 1.5 $
13 ;; Keywords: encoded-word, MIME, multilingual, header, mail, news 13 ;; Keywords: encoded-word, MIME, multilingual, header, mail, news
14 14
15 ;; This file is part of tm (Tools for MIME). 15 ;; This file is part of tm (Tools for MIME).
16 16
17 ;; This program is free software; you can redistribute it and/or 17 ;; This program is free software; you can redistribute it and/or
40 40
41 ;;; @ version 41 ;;; @ version
42 ;;; 42 ;;;
43 43
44 (defconst tm-ew-d/RCS-ID 44 (defconst tm-ew-d/RCS-ID
45 "$Id: tm-ew-d.el,v 1.4 1997/02/02 05:06:19 steve Exp $") 45 "$Id: tm-ew-d.el,v 1.5 1997/03/16 05:55:41 steve Exp $")
46 (defconst mime/eword-decoder-version (get-version-string tm-ew-d/RCS-ID)) 46 (defconst mime/eword-decoder-version (get-version-string tm-ew-d/RCS-ID))
47 47
48 48
49 ;;; @ MIME encoded-word definition 49 ;;; @ MIME encoded-word definition
50 ;;; 50 ;;;
197 (substring word (match-beginning 3) (match-end 3)) 197 (substring word (match-beginning 3) (match-end 3))
198 )) 198 ))
199 (condition-case err 199 (condition-case err
200 (mime/decode-encoded-text charset encoding text must-unfold) 200 (mime/decode-encoded-text charset encoding text must-unfold)
201 (error 201 (error
202 (and (tl:add-text-properties 0 (length word) 202 (and (add-text-properties 0 (length word)
203 (and tm:warning-face 203 (and tm:warning-face
204 (list 'face tm:warning-face)) 204 (list 'face tm:warning-face))
205 word) 205 word)
206 word))) 206 word)))
207 )) 207 ))
208 word)) 208 word))
209 209
210 210