Mercurial > hg > xemacs-beta

comparison lisp/tm/tm-ew-e.el @ 22:8fc7fe29b841 r19-15b94

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b94
author cvs
date Mon, 13 Aug 2007 08:50:29 +0200
parents 4b173ad71786
children 131b0175ea99
comparison
equal deleted inserted replaced
21:b88636d63495 22:8fc7fe29b841
1 ;;; tm-ew-e.el --- RFC 2047 based encoded-word encoder for GNU Emacs 1 ;;; tm-ew-e.el --- RFC 2047 based encoded-word encoder for GNU Emacs
2 2
3 ;; Copyright (C) 1995,1996 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 ;; Version: $Revision: 1.2 $ 6 ;; Version: $Revision: 1.3 $
7 ;; Keywords: encoded-word, MIME, multilingual, header, mail, news 7 ;; Keywords: encoded-word, MIME, multilingual, header, mail, news
8 8
9 ;; This file is part of tm (Tools for MIME). 9 ;; This file is part of tm (Tools for MIME).
10 10
11 ;; This program is free software; you can redistribute it and/or 11 ;; This program is free software; you can redistribute it and/or
33 33
34 ;;; @ version 34 ;;; @ version
35 ;;; 35 ;;;
36 36
37 (defconst tm-ew-e/RCS-ID 37 (defconst tm-ew-e/RCS-ID
38 "$Id: tm-ew-e.el,v 1.2 1996/12/22 00:29:39 steve Exp $") 38 "$Id: tm-ew-e.el,v 1.3 1997/02/16 01:29:32 steve Exp $")
39 (defconst mime-eword/encoder-version (get-version-string tm-ew-e/RCS-ID)) 39 (defconst mime-eword/encoder-version (get-version-string tm-ew-e/RCS-ID))
40 40
41 41
42 ;;; @ variables 42 ;;; @ variables
43 ;;; 43 ;;;
314 (setq len (+ (length string) column)) 314 (setq len (+ (length string) column))
315 (setq rwl (cdr rwl)) 315 (setq rwl (cdr rwl))
316 ) 316 )
317 (t 317 (t
318 (setq string (car rword)) 318 (setq string (car rword))
319 (let* ((sl (length string)) 319 (let* ((p 0) np
320 (p 0) np
321 (str "") nstr) 320 (str "") nstr)
322 (while (and (< p len) 321 (while (and (< p len)
323 (progn 322 (progn
324 (setq np (+ p (char-length (sref string p)))) 323 (setq np (+ p (char-length (sref string p))))
325 (setq nstr (substring string 0 np)) 324 (setq nstr (substring string 0 np))