[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 

--