[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[mhc:02229] mhc-gnus/encode-string



Gnus 上で mhc を使っている場合 mhc-gnus/encode-string は
rfc2047-encode-string への alias になっていますが、用途は subject のエ
ンコードなので rfc2047-encoding-type を 'mime に束縛する必要があるよう
に思います。

;; "ほげ(foo bar)" のような subject を登録して表示しようとすると
;; "Invalid data for rfc2047 encoding" とエラーを吐く

とりあえず手元では以下のように変更をして表示させています。

Index: emacs/mhc-gnus.el
===================================================================
RCS file: /cvsroot/mhc/emacs/mhc-gnus.el,v
retrieving revision 1.27
diff -u -r1.27 mhc-gnus.el
--- emacs/mhc-gnus.el	28 Oct 2005 08:15:30 -0000	1.27
+++ emacs/mhc-gnus.el	6 Dec 2006 01:40:18 -0000
@@ -351,7 +351,9 @@
 	(put 'mhc-gnus 'eword-decode-string 'mhc-mime-eword-decode-string)
 	(put 'mhc-gnus 'mime-get-raw-buffer 'mhc-gnus-mime-get-raw-buffer)
 	(put 'mhc-gnus 'mime-get-mime-structure 'mhc-gnus-mime-get-mime-structure))
-    (defalias 'mhc-gnus/encode-string 'rfc2047-encode-string)
+    (defun mhc-gnus/encode-string (string)
+      (let ((rfc2047-encoding-type 'mime))
+	(rfc2047-encode-string string)))
     (put 'mhc-gnus 'draft-setup-new 'mhc-gnus-draft-setup-new)
     (put 'mhc-gnus 'draft-reedit-buffer 'mhc-gnus-draft-reedit-buffer)
     (put 'mhc-gnus 'draft-reedit-file 'mhc-gnus-draft-reedit-file)
-- 
IRIE Tetsuya