[Mew-dist 2330] Re: pick pattern

[Yuuichi Teranishi 寺西裕一]

寺西＠ＮＴＴ情報研です。

もうだれかが答えているかもしれませんが、、

fukawa> `?'を入力し、`pick pattern:'で to=mew としたところ、次のようなエラー
fukawa> が出ました。
fukawa> 
fukawa> Signaling: (error "No such coding system" undecided)

X-Mailer によると、XEmacs-20.3 b24 をお使いですね。
ここでも以前から何度も話題になっている通り、
XEmacs20.3 の b19 あたりで coding-system まわりが変更になっています。
mew-mule3.el に次のパッチでよいのではないかと思います。

# mew-1.92b1 の contrib についてる mew-mule3.el.patch は
# reject されますね...。

--
Yuuichi Teranishi (寺西裕一) <teranisi at example.com>
NTT Information and Communication Systems Laboratories
TEL: 0468-59-2839 FAX: 0468-59-2768 PHS: 050-106-7597
-------------- next part --------------
--- mew-mule3.el.orig	Sat Sep 27 22:58:23 1997
+++ mew-mule3.el	Wed Oct  1 14:16:23 1997
@@ -23,16 +23,32 @@
 
 (defvar mew-cs-noconv       'no-conversion)
 (defvar mew-cs-noconv-eol   'no-conversion)
-(defvar mew-cs-autoconv     'undecided)
-(defvar mew-cs-7bit         'iso-2022-7bit-ss2)
-(defvar mew-cs-7bit-crlf    'iso-2022-7bit-ss2-dos)
-(defvar mew-cs-mime-trans   'iso-2022-7bit-ss2)
-(defvar mew-cs-rfc822-trans 'iso-2022-7bit-ss2)
-(defvar mew-cs-draft        'iso-2022-7bit-ss2)
-(defvar mew-cs-scan         'iso-2022-7bit-ss2)
-(defvar mew-cs-infile       'undecided) ;; guess in +draft
-(defvar mew-cs-outfile      'iso-2022-7bit-ss2)
-(defvar mew-cs-virtual      'iso-2022-7bit-ss2-unix) ;; ^M as it is
+(if (find-coding-system 'undecided)
+    (defvar mew-cs-autoconv     'undecided)
+  (defvar mew-cs-autoconv     'automatic-conversion))
+(if (find-coding-system 'iso-2022-7bit-ss2)
+    (progn 
+      (defvar mew-cs-7bit         'iso-2022-7bit-ss2)
+      (defvar mew-cs-7bit-crlf    'iso-2022-7bit-ss2-dos)
+      (defvar mew-cs-mime-trans   'iso-2022-7bit-ss2)
+      (defvar mew-cs-rfc822-trans 'iso-2022-7bit-ss2)
+      (defvar mew-cs-draft        'iso-2022-7bit-ss2)
+      (defvar mew-cs-scan         'iso-2022-7bit-ss2)
+      (defvar mew-cs-outfile      'iso-2022-7bit-ss2)
+      (defvar mew-cs-virtual      'iso-2022-7bit-ss2-unix) ;; ^M as it is
+      )
+  (defvar mew-cs-7bit         'iso-2022-ss2-7)
+  (defvar mew-cs-7bit-crlf    'iso-2022-ss2-7-dos)
+  (defvar mew-cs-mime-trans   'iso-2022-ss2-7)
+  (defvar mew-cs-rfc822-trans 'iso-2022-ss2-7)
+  (defvar mew-cs-draft        'iso-2022-ss2-7)
+  (defvar mew-cs-scan         'iso-2022-ss2-7)
+  (defvar mew-cs-outfile      'iso-2022-ss2-7)
+  (defvar mew-cs-virtual      'iso-2022-ss2-7-unix) ;; ^M as it is
+  )
+(if (find-coding-system 'undecided)
+    (defvar mew-cs-infile       'undecided) 
+  (defvar mew-cs-infile     'automatic-conversion)) ;; guess in +draft
 
 (defvar mew-cs-charset
   '(("us-ascii"   nil)