[Mew-dist 17189] Re: patch for b120

[Hideyuki SHIRAI ( 白井秀行 )]

From: Kazu Yamamoto (山本和彦) <kazu at example.com> さん曰く
Subject: [Mew-dist 17188] Re: patch for b120
Message-ID: <20010424.131406.68558695.kazu at example.com>
Date: Tue, 24 Apr 2001 13:14:08 +0900

kazu> > # えっと、やっと Mew-dist が動いたようで、今頃になってこのメール
kazu> > # が来てしまいました。すでに時季ハズレ。
kazu> > # しかもパッチ間違えているし。 ^^;;;
kazu> 
kazu> すいません。まず、anoncvs と sync して下さい。

出したときは最新だったのだけど :-)

Date: Tue, 24 Apr 2001 13:08:03 +0900
Posted: Tue, 24 Apr 2001 11:47:56 +0900 (JST)

## 今度はうちの会社から出なかったみたい。;_;

CVS と比較すると、残りは

From: Hideyuki SHIRAI (白井秀行) <shirai at example.com> 曰く
Subject: [Mew-dist 17187] patch for b120 (was: Re: wv)
Message-ID: <20010424.114756.50018749.shirai at example.com>
Date: Tue, 24 Apr 2001 13:08:03 +0900

白井> kazu> 		SPC			C-cC-e
白井> kazu> 'symbol：	symbolを呼び出す	何もしない
白井> 
白井> が『何もしない』では無くエラーになってしまうので、その点も修正し

だけです。indent が派手ですが、program が symbol なときに
message を出して終了しているだけ。

-- 
白井秀行 (mailto:shirai at example.com)

--- mew-summary.el.orig	Tue Apr 24 13:14:58 2001
+++ mew-summary.el	Tue Apr 24 13:23:56 2001
@@ -1102,29 +1102,31 @@
 	 (t
 	  (setq options args)
 	  (setq async t)))
-	(if (not (mew-which-exec program))
-	    (message "Program %s is not found" program)
-	  (let ((file (mew-make-temp-name fname))
-		charset rcs)
-	    (save-excursion
-	      (set-buffer cache)
-	      ;; NEVER use call-process-region for privacy reasons
-	      (if (mew-ct-linebasep ct)
-		  (if (mew-ct-textp ct)
-		      (progn
-			(setq charset (mew-syntax-get-param ctl "charset"))
-			(if charset
-			    (setq rcs (mew-charset-to-cs charset))
-			  (setq rcs mew-cs-text-for-write)))
-		    (setq rcs mew-cs-text-for-write))
-		(setq rcs mew-cs-binary))
-	      (mew-frwlet 
-	       mew-cs-dummy rcs
-	       (write-region begin end file nil 'no-msg))
-	      (if async
-		  (mew-mime-start-process program options file)
-		(mew-mime-call-process program options file))))))))))
-
+	(if (symbolp program)
+	    (message "Function %s is not execute here." program)
+	  (if (not (mew-which-exec program))
+	      (message "Program %s is not found" program)
+	    (let ((file (mew-make-temp-name fname))
+		  charset rcs)
+	      (save-excursion
+		(set-buffer cache)
+		;; NEVER use call-process-region for privacy reasons
+		(if (mew-ct-linebasep ct)
+		    (if (mew-ct-textp ct)
+			(progn
+			  (setq charset (mew-syntax-get-param ctl "charset"))
+			  (if charset
+			      (setq rcs (mew-charset-to-cs charset))
+			    (setq rcs mew-cs-text-for-write)))
+		      (setq rcs mew-cs-text-for-write))
+		  (setq rcs mew-cs-binary))
+		(mew-frwlet 
+		 mew-cs-dummy rcs
+		 (write-region begin end file nil 'no-msg))
+		(if async
+		    (mew-mime-start-process program options file)
+		  (mew-mime-call-process program options file)))))))))))
+  
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;
 ;;;