[Mew-dist 10642] mew-fake-imap.el

1999年 9月 13日 (月) 12:45:44 JST

白井です。

密かに(？) mew-win32 ML で実験していた mew-fake-imap.el です。何
を fake するかというと、

From: Hideyuki SHIRAI (白井秀行) <shirai at example.com> 曰く
Subject: [Mew-dist 10535] one more IMAP support.
Message-ID: <19990831194450I.shirai at example.com>
Date: Tue, 31 Aug 1999 19:44:57 +0900

白井> コピーを消すタイミングが悩ましいのですが、

白井> ・すべて消す         => (勝手に消すけど)Mew を QUIT したとき
白井> ・その folder を消す => summary で "C-cC-q" して、remote folder
白井>                        を閉じたとき
白井> ・message 単位で消す => immv、imrm、imclean の対象になった
白井>                        message

今までは消すだけでしたが、そのときに local にコピーします。コピー
する条件は local な directory があって、
'mew-fake-imap-nofolder-list' では *ない* folder です。

# ~/Mail/@sugar.rdmg.mgcs.mei.co.jp#shirai/#mh/ml/mew-win32 みた
# いなところです。

また、メールを読むときに local にコピーが存在していたらそちらを
使うようにします。せっかくなのでコピーするときに 'gzip(.exe)' で
圧縮するようにしました。おそらく 'bzip2(.exe)' も使えると思いま
す。stdout に出力が出せるものならなんでも OK です。圧縮がいらな
いなら 'cat' も OK かな？

'touch(.exe)' を使っています。Win32 だと cygwin 付属の touch.exe
で大丈夫でした。

# この辺の設定は source をみてね。

ついでに、以下のコマンドを作りました。

   (define-key mew-summary-mode-map "\M-Is" 'mew-fake-imap-cache-save)
   (define-key mew-summary-mode-map "\M-Ig" 'mew-fake-imap-cache-get)
   (define-key mew-summary-mode-map "\M-Id" 'mew-fake-imap-cache-delete)
   (define-key mew-summary-mode-map "\M-Ir" 'mew-fake-imap-cache-reget)
   (define-key mew-summary-mode-map "\M-ID" 'mew-fake-imap-cache-incorrect-delete)

1. mew-fake-imap-cache-save
 temp directory にある message を local directory に save する。
 よく Emacs が落ちる人はどうぞ。:-)

2. mew-fake-imap-cache-get
 指定した message を IMAP server から持ってくる。

3. mew-fake-imap-cache-delete
 指定した message の cache を(tmp からも local からも)消す。

4. mew-fake-imap-cache-reget
 指定した message を delelte して、再度 get する。(3 + 2 の動作)

5. mew-fake-imap-cache-incorrect-delete
 summary に表示されていない message の cache を消す
 summary を narrowing していると消しちゃうよ。

です。

2. 3. 4. の message の指定の仕方は mew-virtual-thread.el と同じ
です。

"C-u" 無しで "review mark" も無し
   => REGEXP に match した message
"C-u" 無しで "review mark" あり
   => mark がある message
"C-u" 付きで region もあり
   => region 内の message
"C-u" 付きで region も無し
   => (point) の後の message

となります。

-------------- next part --------------
H4sIABZz3DcAA81aW4/bxhV+ZoD8hxPC7VKuqXiTFuhumqCG4zSLxqhhO0/ZGhiRI2m6vMgk
pdXmob+958yNM7xK27TwPmh5OXPuc843M+TffAPx0xhelym/hlc5S+r4J1Hv6OHnn+FL9ffk
Jr2GnN/Ha3bHY5Gz3ZJnzw5wufwTXF5dXcXPr+LLr+Hyq+uvL6//+Oc/PL+CeisqJuDVcQdP
iJPk1mVxDT/gHdy8fvEGopzXNdtwSFiyFcUGiZttmS6WdvTMX/ijSPnD/k7Aux9v3r64CeEv
76QSf63SfLPMN0m9zLlYJuXyX7vvDFfk+zOJvYY3+wYeyn0F//5yyckTUjJE/MCymK0bXsVZ
yVII0YoQLqKKf9yLisOFZ9ViobmyIoWaN9BsOax4lpX3ZBTy2vMaWE2iIBN3HKV8/lmU8nVS
FnXjuyg+8KoWZSFlto/h+fL5V+HCDDywqjOsKNdllpLCAlleROHvmorV2xDwIt/RSHTX0xfK
8YoUJGlTQlYmLIOaHVBd1O1mDRfNxTMoSk2IyqPRHhUQUSEyJGNZNkE3pfPmV7GDkH5Rzacv
y3xXYULArio3FcuXc0PjcteQp9DYOK6btNw3xs4uL1Ck0yz3hafPz0VylkZy+JBOgJcpN8yM
in32pygpnbsWGY/r/XotjhAuN7+GiuNP0vH08qIG9XqSV1Puky2E8h8Z/F7ed2yVU+F+y4uY
1EXe4M2ChaTC3K/3ec6qB8ixrABLU0GmoDp3/GElihTTKsKn8bYs71BbOYH0kJiGmBdRxvJV
yiCSXgJSXBQ8Ri7QG0LTIrx9Hd/UYWdGxlRQ0EXswM/hsxnhs+HNOWzSETYpz3hzlkLVCKeK
n6nS9yOMBCZhVfGkMcotbL7sCxjzqY5O+I6ubf1QNWApkzESBRZPljRCR8CWehqkSr28r2G5
VEVC0njpmVOKqoxX74xtutIVLOeLE7inZcHDWcPQoxD9Xk1BFMiqjTLyb/i84nnZ8Jarsblv
LIRvtDEZ8YvyelN3DUNJsXxOMpA4iNZZOmGhCnSXi9Va8SIWdDEfQRXpQVu/V6+snaL4VOxU
Sp9rqpwng5a+lW8+3bgO2vvb5oEdEnkClIE4+VJRGYliraVq9fk94kUcJY1ExPMRFD0ip+MO
UVAsOxRZCVG9X9VNRZOSxFwupC4Nx8lNArQElOGxIRqpqpZID6WW3lhXPSkRn2ItK9HRO7AW
BFErhMbn5AdLCZ6lmtmX34Jjrmxpyn4SIv1Gj/RIEqH0V+/pXW0s6bBpdaY6GvNjspdoz1FQ
F7KXFhL36qQk3JRYG5MtNvVoV2KixrkoHG9WWKk5q5ItSq/uWYV5iGAzYQ2EH+BpiHcEB0ye
6EErvhFFgVLjco04suCO49iORkSYTEkjFQ40BrcdG7mRKwLlwjkFiBoQQEKjBo0ooDm6c0jk
CKxY1ahh9IYgCz4m5pQkxBXZy//yGklwkdPwY0PKYFVASH9RoNdqXjULHUD6c2bZbCyoq8AX
X2BjObHizk02VXroAu8pk8CCvU98HvpjrRmTo3MmsnjHmu1iwOGyD01l/9npWJToZ2U/im4I
93745TK++ucvz/Hn6ROVkE4qmkvrDxmRvl8p0ZxCEJgw0VpQPaenkqmqUfyIq65aFSgdW+/9
fSUatsKLlqJVS+I9mUxSnS6BE4ARdc0kJLWnVxZKL62aDWrfSPNmzEw3iccMbWlGTXVITpix
wwmkgeDsfO2iYoN3NTyiBa8lsRLGgK/NPreGYeHP9jXSxDsn/800VxBjGjxID8iKIj0tr2br
CC7pbXCddmfV0xIULFKVRXc3XlVlBeH7ragBF4I5RT5hBaw47GueElK8Dd++ev2P96/0QuA2
hLLIHuQ6Mui1u2CihdG7+61eana7CHWP29vImbu3t4uw7STWqLLyvYc/dzxFf+u6VMg1OS6S
6oeiYUcViECChcAtZ6pq006NgQ9UPah+qu65aIuvIi0qTns4XBPQ235e9vPHlrhgssz3a/Qj
Sn3waLylLW1zLrJyY5wXcpOATCR3haFbGYdqdtCW66NXWCh48yX7uLA1BS3IV7yCY+t1W0ac
qj5TzI/dUj5ezOfL+VxBD0ZqufJzYF1sU6I7TSlg7iTVpv4XfdiOPTW+XlsY7suB25SPHcf2
Y6wblG4+kjL80J/w7vvpPuZxehIunHubP5GXL9IDplJ6k96MMJRqosrEs/QmZMpwI2C2MR87
LTYY6bDBXIMN5vtrMNdetZFtCp5XxWyftW1GbhEm5e4Bm0OVy4gdRNXsWRY3W8LjS54tR3py
u041q/f/fU/FhQjwIv2/t0kjRlmq5jStblqA63aabnvD2ZllGA0dY5W4+BgbkuD3bpe11+zo
oimST6xV+FXy4koR570Da7KH7l6iFrLBpFZDTtfxPC0Dj92KJmW8L2g0BljooxSHmVxhGgNt
Y6GgRKtyX6Q7tISoNV4D90b7QBKbcob0aCZe2Nm3IIziP3H92XGEc1yzp6qhnRChsZaPXQM7
rIvUTlwsscdZ2rYhnKKAyrCh1bcOwKITCVUOyJXk9J0qeZ4sFQyzvRAYqDSKu50Mkpbw46K/
A1e3J4dvJem12Ti2s5N/xJICkgG2J3dl2sWf4+jTYE8ZecW1XO3awj8ASpVAhUE7yTaCNXV2
DQJUJ39sHHvTiNW9ZNeStVJ6/2TK6yoHZOBttVOF0t1uHNmpav2Hw1tHnwvcOUErW/seB9p7
0OcUzC4HdbD6Qh1myW4l8+yHF39/pQ+FX1L3UocRphE2JRA4BruZ+AzQAGoLB3MMSi21tue9
LD2IhHvnNGY3i6KAruIg72SQQCY+00dGZI46VcNVKmqMrcbb1uwyVCxEvqs2UFcJpFidlGNS
UScUEWwyUCU12J0wKUa1MFM3vcwZFhFNyfC23gekeWC/h22Rp+2sHycPvBsDQJ39VgXMSK+J
kaNQYWppZHh211TTkNuM6kLuse0+HXNzg4BNOTXAbBR5fniGv1VOv0nGWXFmTe5h9S5KdxrI
BHB14bXZXDqeuLUkB3VhL9imSwMIG/ZArMa5EzDXUIxCXCIwyNa4twHpWLX6OM1wdz+tnrPa
N/WEjcXaWz/PnHK4RXDqmMM0p0eccZiEOPGcI7ArGDW9h9fLepN2PNotlunvIbXVD7VaoZtR
PjJe+C9pxersEGNlQQzb5r0EuIiBEizrzvJu8OsQ6vERalDxwgiUILMdRuypqU19HaLmYjch
HY3XvsaU4/I0Uw4eBsg2lUjFi6I0+9nOAsaE3ERvJODuRuxAuKUQj48rB+FazY1n2sen+Xzo
+xRziiM93/ebRTi6batvEqgr9091B9qwqeCxLKHxfmf78FoUot4ONWIapwys7bC2VzrM1QLR
zAv/9H1Wyky7H/lOQskynWyil499Z+EwmGnOmvJT7M/6+7bzW7QzsNulTT32e4lp4I3IufnP
zMVK0cl39oq1lyt/f8G6ulcoOyW4JRpoBYN0/mbRSexaSu257j73b7Txa8/pRrcEp0/qztrg
HTitOxnjtJDsrAM0GEA5bcwHkc5jtpKt68Y2B92dv/ECEMu1yxAiDfzjUJnUfv8wc8AX541g
6sMDfTdCtFJEUZI6lB3SdmIN6DBgdGeU1sPejxK6ujjULbmZuN+1JrZS2hRQgf52kMgZvHKL
gxuyRwWt3ct11r0ndAHFLxpelwzDLQ9pndLwe/hqBl2NAqserHIOUtqvCq1eJ0Ep58DUA1Nn
4CgvB4ehcyulh6aQ+E6gw5QPej7RcUR3HkTa+xxdf5GLvqphyyv63Pw/bC43ifUvAAA=