projects
/
elisp
/
semi.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
fee3032
)
(find-non-ascii-charset-string): New inline-function; copied from
author
tmorioka
<tmorioka>
Thu, 27 Feb 1997 08:42:17 +0000
(08:42 +0000)
committer
tmorioka
<tmorioka>
Thu, 27 Feb 1997 08:42:17 +0000
(08:42 +0000)
emu-e20.el.
eword-encode.el
patch
|
blob
|
history
diff --git
a/eword-encode.el
b/eword-encode.el
index
25b441c
..
997c6e3
100644
(file)
--- a/
eword-encode.el
+++ b/
eword-encode.el
@@
-3,7
+3,7
@@
;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc.
;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc.
;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Revision: 0.9 $
+;; Version: $Revision: 0.10 $
;; Keywords: encoded-word, MIME, multilingual, header, mail, news
;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
;; Keywords: encoded-word, MIME, multilingual, header, mail, news
;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@
-30,12
+30,17
@@
(require 'mime-def)
(require 'cl)
(require 'mime-def)
(require 'cl)
+(defsubst find-non-ascii-charset-string (string)
+ "Return a list of charsets in the STRING except ascii."
+ (delq 'ascii (find-charset-string string))
+ )
+
;;; @ version
;;;
(defconst eword-encode-RCS-ID
;;; @ version
;;;
(defconst eword-encode-RCS-ID
- "$Id: eword-encode.el,v 0.9 1997-02-24 10:07:33 tmorioka Exp $")
+ "$Id: eword-encode.el,v 0.10 1997-02-27 08:42:17 tmorioka Exp $")
(defconst eword-encode-version (get-version-string eword-encode-RCS-ID))
(defconst eword-encode-version (get-version-string eword-encode-RCS-ID))