[mew-dist 24301] mew-nmzでzp,znを動かすパッチ
橋 宏彰
hasi at example.com
2003年 12月 28日 (日) 22:56:13 JST
はしです。
mewの最新でmew-nmzのzp,znが動かなかったので、動くようにしました。
取り込んでもらえるとうれしいのですが。
Index: contrib/mew-nmz.el
===================================================================
RCS file: /cvsmew/mew/contrib/mew-nmz.el,v
retrieving revision 1.24
diff -u -r1.24 mew-nmz.el
--- contrib/mew-nmz.el 4 Jun 2003 06:53:31 -0000 1.24
+++ contrib/mew-nmz.el 28 Dec 2003 13:54:02 -0000
@@ -453,9 +453,10 @@
(mew-summary-folder-name) (mew-summary-message-number))
(mew-buffer-message)))
(set-buffer mess)
- (mew-sinfo-set-case case)
- (mew-sinfo-set-proto proto)
- (setq refilefld (append (car (mew-refile-guess nil t)) refilefld))
+ (let (mew-inherit-refile-proto mew-inherit-refile-case)
+ (setq mew-inherit-refile-case case)
+ (setq mew-inherit-refile-proto proto)
+ (setq refilefld (append (car (mew-refile-guess nil t)) refilefld)))
(if child
(setq idh (car (cdr idh)))
(setq idh (car idh)))
Mew-dist メーリングリストの案内