Mercurial > hg > xemacs-beta

comparison lisp/tm/tm-edit.el @ 8:4b173ad71786 r19-15b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b5
author cvs
date Mon, 13 Aug 2007 08:47:35 +0200
parents b82b59fe008d
children 49a24b4fd526
comparison
equal deleted inserted replaced
7:c153ca296910 8:4b173ad71786
4 4
5 ;; Author: UMEDA Masanobu <umerin@mse.kyutech.ac.jp> 5 ;; Author: UMEDA Masanobu <umerin@mse.kyutech.ac.jp>
6 ;; MORIOKA Tomohiko <morioka@jaist.ac.jp> 6 ;; MORIOKA Tomohiko <morioka@jaist.ac.jp>
7 ;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp> 7 ;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
8 ;; Created: 1994/08/21 renamed from mime.el 8 ;; Created: 1994/08/21 renamed from mime.el
9 ;; Version: $Revision: 1.1.1.1 $ 9 ;; Version: $Revision: 1.2 $
10 ;; Keywords: mail, news, MIME, multimedia, multilingual 10 ;; Keywords: mail, news, MIME, multimedia, 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
108 ;;; Code: 108 ;;; Code:
109 109
110 (require 'sendmail) 110 (require 'sendmail)
111 (require 'mail-utils) 111 (require 'mail-utils)
112 (require 'mel) 112 (require 'mel)
113 (require 'tl-822)
114 (require 'tl-list) 113 (require 'tl-list)
115 (require 'tm-view) 114 (require 'tm-view)
116 (require 'tm-ew-e) 115 (require 'tm-ew-e)
117 (require 'signature) 116 (require 'signature)
118 117
119 118
120 ;;; @ version 119 ;;; @ version
121 ;;; 120 ;;;
122 121
123 (defconst mime-editor/RCS-ID 122 (defconst mime-editor/RCS-ID
124 "$Id: tm-edit.el,v 1.1.1.1 1996/12/18 03:55:31 steve Exp $") 123 "$Id: tm-edit.el,v 1.2 1996/12/22 00:29:39 steve Exp $")
125 124
126 (defconst mime-editor/version (get-version-string mime-editor/RCS-ID)) 125 (defconst mime-editor/version (get-version-string mime-editor/RCS-ID))
127 126
128 (defconst mime-editor/version-name 127 (defconst mime-editor/version-name
129 (concat "tm-edit " mime-editor/version)) 128 (concat "tm-edit " mime-editor/version))
2477 ))) 2476 )))
2478 )) 2477 ))
2479 (t 2478 (t
2480 (let* (charset 2479 (let* (charset
2481 (pstr 2480 (pstr
2482 (mapconcat (function 2481 (let ((bytes (+ 14 (length ctype))))
2483 (lambda (attr) 2482 (mapconcat (function
2484 (if (string-equal (car attr) 2483 (lambda (attr)
2485 "charset") 2484 (if (string-equal (car attr) "charset")
2486 (progn 2485 (progn
2487 (setq charset (cdr attr)) 2486 (setq charset (cdr attr))
2488 "") 2487 "")
2489 (concat ";" (car attr) 2488 (let* ((str
2490 "=" (cdr attr)) 2489 (concat (car attr)
2491 ) 2490 "=" (cdr attr))
2492 )) 2491 )
2493 params "")) 2492 (bs (length str))
2493 )
2494 (setq bytes (+ bytes bs 2))
2495 (if (< bytes 76)
2496 (concat "; " str)
2497 (setq bytes (+ bs 1))
2498 (concat ";\n " str)
2499 )
2500 ))))
2501 params "")))
2494 encoding 2502 encoding
2495 encoded) 2503 encoded)
2496 (save-excursion 2504 (save-excursion
2497 (if (re-search-forward 2505 (if (re-search-forward
2498 "Content-Transfer-Encoding:" nil t) 2506 "Content-Transfer-Encoding:" nil t)