group list

[Yuuichi Teranishi]

At Thu, 10 Aug 2000 10:42:56 +0900,
Yuuichi Teranishi wrote:
> 
> (with-temp-buffer
>   (insert "To: Test: 寺西 <teranisi ＠ gohome.org>;\n"
> 	  mail-header-separator "\n")
>   (mime-edit-translate-buffer))
> 
> を実行すると，以下のエラーが出ます．
> eword-encode.el は group list に対応していない，ということでしょうか？
> 

こんなかんじでしょうか？

-------------- next part --------------
Index: eword-encode.el
===================================================================
RCS file: /cvs/root/flim/eword-encode.el,v
retrieving revision 1.30.4.1
diff -u -r1.30.4.1 eword-encode.el
--- eword-encode.el	2000/06/07 09:38:56	1.30.4.1
+++ eword-encode.el	2000/08/11 03:05:49
@@ -517,17 +517,26 @@
 		      )))
     dest))
 
+(defsubst eword-encode-address-to-rword-list (address)
+  (cond
+   ((eq (car address) 'mailbox)
+    (eword-encode-mailbox-to-rword-list address))
+   ((eq (car address) 'group)
+    (nconc
+     (eword-encode-phrase-to-rword-list (nth 1 address))
+     (list (list ":" nil nil))
+     (eword-encode-addresses-to-rword-list (nth 2 address))
+     (list (list ";" nil nil))))))
+
 (defsubst eword-encode-addresses-to-rword-list (addresses)
-  (let ((dest (eword-encode-mailbox-to-rword-list (car addresses))))
+  (let ((dest (eword-encode-address-to-rword-list (car addresses))))
     (if dest
 	(while (setq addresses (cdr addresses))
 	  (setq dest
 		(nconc dest
 		       (list '("," nil nil))
 		       ;; (list '(" " nil nil))
-		       (eword-encode-mailbox-to-rword-list (car addresses))
-		       ))
-	  ))
+		       (eword-encode-address-to-rword-list (car addresses))))))
     dest))
 
 (defsubst eword-encode-msg-id-to-rword-list (msg-id)
Index: std11.el
===================================================================
RCS file: /cvs/root/flim/std11.el,v
retrieving revision 1.7
diff -u -r1.7 std11.el
--- std11.el	1999/05/31 09:41:55	1.7
+++ std11.el	2000/08/11 03:05:49
@@ -765,7 +765,7 @@
   "Return string of address part from parsed ADDRESS of RFC 822."
   (cond ((eq (car address) 'group)
 	 (mapconcat (function std11-address-string)
-		    (car (cdr address))
+		    (nth 2 address)
 		    ", ")
 	 )
 	((eq (car address) 'mailbox)

-------------- next part --------------
--
Yuuichi Teranishi (寺西裕一) <teranisi ＠ gohome.org>
PGP 5.0i Public Key: http://www.gohome.org/pgp5/teranisi.key
"Living is easy with eyes closed, misunderstanding all you see..."