2010年5月13日

[mew-dist 29224] Re: zip

> (defun mew-attach-zip ()
> "Put the 'Z' mark and encrypt it with \"zip\" in attachments."
> (interactive)
> ....
> (let* ((subdir (mew-attach-expand-path mew-encode-syntax nums))
> (attachdir (mew-attachdir))
> (name (mew-syntax-get-file syntax))
> (ename (if (string= subdir "") name (concat subdir name)))

> (fullname (expand-file-name ename attachdir))
> (zname (concat name ".zip"))
> (zct "application/zip")
> (default-directory (file-name-directory fullname)))
> (call-process "zip" nil nil nil "-e" "-P" password zname name)
> ...
>
> の方が良いのでは?

マージして push しました。

--かず


投稿者 xml-rpc : 2010年5月13日 18:14
役に立ちました?:
過去のフィードバック 平均:(0) 総合:(0) 投票回数:(0)
本記事へのTrackback: http://hoop.euqset.org/blog/mt-tb2006.cgi/95727
トラックバック
コメント
コメントする




画像の中に見える文字を入力してください。