group list

[守岡 知彦 / MORIOKA Tomohiko]

;; 反応が遅くてすみません。

>>>>> In [emacs-mime-ja : No.00595] 
>>>>>	"寺西さん" = Yuuichi Teranishi <teranisi ＠ gohome.org> wrote:

寺西さん> こんなかんじでしょうか？

寺西さん> [2 group-list.patch <text/plain; US-ASCII (7bit)>]
寺西さん> 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)

よろしいんじゃないでしょうか。

よろしければ chao-1_14 枝に commit して頂けないでしょうか？

-- 
守岡 知彦 (MORIOKA Tomohiko) <tomo ＠ kanji.zinbun.kyoto-u.ac.jp>