From: morioka Date: Sat, 22 Feb 1997 17:11:31 +0000 (+0000) Subject: `eword-exist-encoded-word-in-subject' -> `eword-in-subject-p'. X-Git-Tag: Hokutetsu-Ishikawa-new~333 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=cadd2a671901223ca73c39e5cc072ed504a9f380;p=elisp%2Fsemi.git `eword-exist-encoded-word-in-subject' -> `eword-in-subject-p'. --- diff --git a/eword-encode.el b/eword-encode.el index c08204b..bd2350a 100644 --- a/eword-encode.el +++ b/eword-encode.el @@ -3,7 +3,7 @@ ;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc. ;; Author: MORIOKA Tomohiko -;; Version: $Revision: 0.5 $ +;; Version: $Revision: 0.6 $ ;; Keywords: encoded-word, MIME, multilingual, header, mail, news ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces). @@ -35,7 +35,7 @@ ;;; (defconst eword-encode-RCS-ID - "$Id: eword-encode.el,v 0.5 1997-02-22 17:05:55 morioka Exp $") + "$Id: eword-encode.el,v 0.6 1997-02-22 17:11:31 morioka Exp $") (defconst eword-encode-version (get-version-string eword-encode-RCS-ID)) @@ -526,7 +526,7 @@ when Subject field is encoded by `eword-encode-message-header'.") (car (tm-eword::encode-string 0 str)) ))) -(defun eword-exist-encoded-word-in-subject () +(defun eword-in-subject-p () (let ((str (std11-field-body "Subject"))) (if (and str (string-match eword-encoded-word-regexp str)) str))) @@ -575,7 +575,7 @@ when Subject field is encoded by `eword-encode-message-header'.") )) (and eword-generate-X-Nsubject (or (std11-field-body "X-Nsubject") - (let ((str (eword-exist-encoded-word-in-subject))) + (let ((str (eword-in-subject-p))) (if str (progn (setq str