[mew-dist 29222] Re: zip

From: Kazu Yamamoto () <[email protected]> 
Subject: [mew-dist 29221] Re: zip
Message-ID: <[email protected]>
Date: Thu, 13 May 2010 17:19:54 +0900 (JST)

>> hoge.txt  hoge.txt.zip 
>> syntax  make-message 
>>  hoge.txt.zip 
>> 
> 
> 



>> #  zip  ^^;;;
> 
> zip 3.00 
> 	http://www.info-zip.org/
> 
> 

% zip -v
Copyright (c) 1990-2008 Info-ZIP - Type 'zip "-L"' for software license.
This is Zip 3.0 (July 5th 2008), by Info-ZIP.
Currently maintained by E. Gordon.  Please send bug reports to
the authors using the web page at www.info-zip.org; see README for details.

Latest sources and executables are at ftp://ftp.info-zip.org/pub/infozip,
as of above date; see http://www.info-zip.org/ for other sites.

Compiled with gcc 3.4.6 for Unix (Sun SPARC/Solaris) on May 13 2010.

zip+
hoge.txt.zip 

% cd ~/work
% unzip hoge.txt.zip
 



~/work/home/shirai/Mail/attach/1/hoge.txt


 unzip 

(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)
  ...



P.S.
http://www.mew.org/pipermail/mew-dist/2010-March/028846.html
 animation-GIF 


-- 
 (mailto:[email protected])