[Mew-dist 2968] Re: patch for mew-gnus.el

[SAKAI Kiyotaka]

>> In article <19971113170734I.tsumura at example.com>, TSUMURA Tomoaki (=?iso-2022-jp?B?GyRCREVNODh4NkcbKEI=?=) <tsumura at example.com> writes:

> 私は、IM では PreserveDot=off にしているのですが、
> 例えば以下のようにして (これは全くの一例ですが...) save 先の
> default folder の形式を、 mew-gnus でも選択できるように
> していただけると嬉しいのですが、お考えいただけないでしょうか。

いいと思いますが、

> +(defun mew-gnus-newsgroup-name ()
> +  (let ((pd mew-gnus-save-preserve-dot)
> +	(ng gnus-newsgroup-name))
> +    (cond (pd
> +	   ng)
> +	  ((not pd)
> +	   (gnus-newsgroup-directory-form ng)))))
> +

この関数が冗長ですね。

  (defun mew-gnus-newsgroup-name ()
    (if mew-gnus-save-preserve-dot
	gnus-newsgroup-name
      (gnus-newsgroup-directory-form gnus-newsgroup-name)))

で充分でしょう。
-- 
酒井 清隆 (E-mail: ksakai at example.com)