From 496f03e7f9707dfa5fb050459b4200d97c86ec86 Mon Sep 17 00:00:00 2001 From: morioka Date: Thu, 25 Sep 1997 13:02:18 +0000 Subject: [PATCH] Abolish variable `eword-generate-X-Nsubject'. (eword-encode-header): Abolish X-Nsubject field generator. --- eword-encode.el | 32 ++------------------------------ 1 file changed, 2 insertions(+), 30 deletions(-) diff --git a/eword-encode.el b/eword-encode.el index 7025eba..5ccaa92 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.31 $ +;; Version: $Revision: 0.32 $ ;; Keywords: encoded-word, MIME, multilingual, header, mail, news ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces). @@ -36,7 +36,7 @@ ;;; (defconst eword-encode-RCS-ID - "$Id: eword-encode.el,v 0.31 1997-09-25 12:58:09 morioka Exp $") + "$Id: eword-encode.el,v 0.32 1997-09-25 13:02:18 morioka Exp $") (defconst eword-encode-version (get-version-string eword-encode-RCS-ID)) @@ -63,10 +63,6 @@ network-code. If method is nil, this field will not be encoded.") -(defvar eword-generate-X-Nsubject nil - "*If it is not nil, X-Nsubject field is generated -when Subject field is encoded by `eword-encode-header'.") - (defvar eword-charset-encoding-alist '((us-ascii . nil) (iso-8859-1 . "Q") @@ -633,30 +629,6 @@ It refer variable `eword-field-encoding-method-alist'." ))) )) )) - (and eword-generate-X-Nsubject - (or (std11-field-body "X-Nsubject") - (let ((str (eword-in-subject-p))) - (if str - (progn - (setq str - (eword-decode-string - (std11-unfold-string str))) - (if code-conversion - (setq str - (encode-mime-charset-string - str - (or (cdr (assoc-if - (function - (lambda (str) - (and (stringp str) - (string= "x-nsubject" - (downcase str)) - ))) - eword-field-encoding-method-alist)) - 'iso-2022-jp-2))) - ) - (insert (concat "\nX-Nsubject: " str)) - ))))) ))) (defun eword-encode-string (str &optional column mode) -- 1.7.10.4