[mew-dist 20276] Re: error in insert-file-contents

[KOIE Hidetaka ( 鯉江英隆 )]

  Message-Id: <20020218.182141.75346867.shirai at example.com>
  Date:       Mon, 18 Feb 2002 18:21:41 +0900 (JST)
  From:       Hideyuki SHIRAI (白井秀行) <shirai at example.com>
  Subject:    [mew-dist 20271] Re: error in insert-file-contents

  | ここは text 向けだから、633行目の
  | 
  | 	 (let (format-alist)
  | 	   (insert-file-contents file))))
  | 
  | ってほうじゃないでしょうか？ (という気がします)

こっちの修正でエラーが飛んでこなくなりました。

Index: mew-encode.el
===================================================================
RCS file: /cvsmew/mew/mew-encode.el,v
retrieving revision 1.46
diff -u -b -F^( -r1.46 mew-encode.el
--- mew-encode.el	2002/02/04 08:32:58	1.46
+++ mew-encode.el	2002/02/18 09:48:19
@@ -627,11 +627,12 @@ (defun mew-encode-mime-body (ctl cte fil
 	  (mew-convert-message))))
      ((and (mew-case-equal cte mew-b64) (fboundp 'base64-encode-region))
       (unless textp
+        (let ((auto-image-file-mode nil)) ;; for Emacs 21
 	(mew-frwlet
 	 (if linebasep mew-cs-text-for-read mew-cs-binary)
 	 mew-cs-dummy
 	 (let (format-alist)
-	   (insert-file-contents file))))
+             (insert-file-contents file)))))
       (when linebasep
 	(goto-char beg)
 	(while (search-forward "\n" nil t) (replace-match "\r\n" nil t)))

--
KOIE Hidetaka 鯉江英隆 <hide at example.com>