[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 メーリングリストの案内