[Mew-dist 773] Re: Mistake in To field

[Murata Shuuichirou]

In message <9703280136.AA06426 at example.com>,
 "Kosei C. Nakamura" <kosei at example.com> wrote:
> また、解決法として
> 
>  |From: Murata Shuuichirou <mrt at example.com>
>  | 
>  | mew-summary.el中の mew-summary-toggle-analysis を以下のようにすれば
>  | たぶん大丈夫です。
>   〜略〜
>  |   (mew-cache-flush))
> 
> との事です。ありがとうございます。再現性がはっきりしないのでまだあてて
> いません。ただ、mew-cache-flush については ;; use to debug となっていて、
> 他では一回も呼ばれていないようですが、使用しても問題無いのでしょうか？
> 
> もしできましたら、根本的な解決法があったら良いのですが。

ということですので、すこしはまともなやつを考えてみました。
-- 
むらたしゅういちろう

Index: mew-summary.el
===================================================================
RCS file: /usr/home/cvs/mew/mew-summary.el,v
retrieving revision 1.12
diff -u -r1.12 mew-summary.el
--- mew-summary.el	1997/03/06 16:51:57	1.12
+++ mew-summary.el	1997/03/28 03:46:52
@@ -560,8 +560,7 @@
    (t
     (message "Display message with MIME analysis")
     (setq mew-analysis t))
-   )
-  (mew-cache-flush))
+   ))
 
 (defun mew-summary-show ()
   (interactive)
@@ -742,16 +741,11 @@
       (erase-buffer) ;; for PGP pass phase input
       (set-buffer-modified-p nil))
     (set-marker (mark-marker) nil) ;; kill mark for cite
-    (if (or mew-analysis analysis)
-	(progn
-	  (setq hit (mew-cache-message (cons fld msg)))
-	  ;; copy local variable
-	  (setq mew-decode-syntax (mew-cache-mime-syntax hit))
-	  (mew-current-set 'cache hit)
-	  )
-      (setq mew-decode-syntax nil)
-      (mew-current-set 'cache nil)
-      )
+    (setq hit (mew-cache-message (cons fld msg)))
+    (setq mew-decode-syntax 
+	  (if (or mew-analysis analysis)
+	      (mew-cache-mime-syntax hit) ))
+    (mew-current-set 'cache hit)
     (mew-current-set 'message (cons fld msg))
     (mew-current-set 'part nil)
     ;;
@@ -1267,9 +1261,9 @@
 	    (setq num (mew-summary-message-number))
 	    (setq folder (mew-summary-folder-name))
 	    ;;
-;;	    (setq cache (mew-summary-display)) ;; force to display
+	    (setq cache (mew-summary-display)) ;; force to display
 ;; to reply scrambled mail. Is this okay?
-	    (setq cache (mew-summary-display 'notforce))
+;;	    (setq cache (mew-summary-display 'notforce))
 	    (if cache
 		(set-buffer cache)
 	      (set-buffer (mew-buffer-message)))