Mercurial > hg > xemacs-beta

comparison lisp/tm/tm-ew-e.el @ 167:85ec50267440 r20-3b10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b10
author cvs
date Mon, 13 Aug 2007 09:45:46 +0200
parents 28f395d8dc7a
children
comparison
equal deleted inserted replaced
166:7a77eb660975 167:85ec50267440
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,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 ;; Version: $Revision: 1.4 $ 6 ;; Version: $Revision: 1.5 $
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.4 1997/06/14 20:31:38 steve Exp $") 38 "$Id: tm-ew-e.el,v 1.5 1997/06/29 23:13:28 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 ;;;
52 mime/no-encoding-header-fields) 52 mime/no-encoding-header-fields)
53 '((t . mime)) 53 '((t . mime))
54 ) 54 )
55 '(("X-Nsubject" . iso-2022-jp-2) 55 '(("X-Nsubject" . iso-2022-jp-2)
56 ("Newsgroups" . nil) 56 ("Newsgroups" . nil)
57 ("Message-ID" . nil)
57 (t . mime) 58 (t . mime)
58 )) 59 ))
59 "*Alist to specify field encoding method. 60 "*Alist to specify field encoding method.
60 Its key is field-name, value is encoding method. 61 Its key is field-name, value is encoding method.
61 62
291 (let* ((rword (car rwl)) 292 (let* ((rword (car rwl))
292 (ret (tm-eword::encoded-word-length rword)) 293 (ret (tm-eword::encoded-word-length rword))
293 string len) 294 string len)
294 (if (null ret) 295 (if (null ret)
295 (cond ((and (setq string (car rword)) 296 (cond ((and (setq string (car rword))
296 (<= (setq len (+ (length string) column)) 76) 297 (or (<= (setq len (+ (length string) column)) 76)
298 (<= column 1))
297 ) 299 )
298 (setq rwl (cdr rwl)) 300 (setq rwl (cdr rwl))
299 ) 301 )
300 (t 302 (t
301 (setq string "\n ") 303 (setq string "\n ")