From: morioka <morioka>
Date: Thu, 25 Sep 1997 13:02:18 +0000 (+0000)
Subject: Abolish variable `eword-generate-X-Nsubject'.
X-Git-Tag: semi-0_115~12
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=496f03e7f9707dfa5fb050459b4200d97c86ec86;p=elisp%2Fsemi.git

Abolish variable `eword-generate-X-Nsubject'.
(eword-encode-header): Abolish X-Nsubject field generator.
---

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 <morioka@jaist.ac.jp>
-;; 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)