[Mew-dist 08523] Re: mc-flag of mew cache buffer
Kazu Yamamoto ( 山本和彦 )
kazu at example.com
1999年 4月 8日 (木) 15:14:54 JST
From: TSUMURA Tomoaki <tsumura at example.com>
Subject: [Mew-dist 08494] Re: mc-flag of mew cache buffer
Date: Tue, 6 Apr 1999 20:13:51 +0900
> (setq mc-flag nil)
> --
> 津邑%Subjectから察してほしい
すみません。(_ _)
以下のようなとってもいいかげんなパッチを作ってみました。ただ mc-flag
を t になるのは、とってもおかしな現象です。全てのバッファの mc-flag を
t にしてまわるようなプログラムを load しているとしか考えられません。
というわけで、あまりこのパッチは取り込みたくありません。
--かず
-------------- next part --------------
Index: mew-decode.el
===================================================================
RCS file: /usr/home/kazu/cvsroot/Mew/mew/mew-decode.el,v
retrieving revision 1.63
diff -c -r1.63 mew-decode.el
*** mew-decode.el 1999/04/06 00:28:49 1.63
--- mew-decode.el 1999/04/08 06:13:41
***************
*** 290,295 ****
--- 290,303 ----
(insert-file-contents (mew-expand-folder (, fld) (, msg))
nil 0 (, size))))))
+ (defun mew-set-buffer-multibyte ()
+ (if mew-mule-p
+ (cond
+ ((fboundp (function set-buffer-multibyte))
+ (set-buffer-multibyte t))
+ (mew-temacs-p
+ (setq mc-flag nil))))) ;; for re-search-forward
+
(defun mew-decode (fld msg &optional edit)
;; in cache buffer
(mew-erase-buffer)
***************
*** 304,316 ****
(mew-cache-attribute-get (mew-expand-folder fld msg)))
(setq mew-cache-attribute nil))
;; afer reading the file
! (if mew-mule-p
! (cond
! ((fboundp (function set-buffer-multibyte))
! (set-buffer-multibyte t))
! (mew-temacs-p
! (setq mc-flag nil) ;; for re-search-forward
! )))
;; Illegal messages may not have end-of-header.
;; Truncated messages may not have end-of-header.
(if (re-search-forward mew-eoh nil t)
--- 312,318 ----
(mew-cache-attribute-get (mew-expand-folder fld msg)))
(setq mew-cache-attribute nil))
;; afer reading the file
! (mew-set-buffer-multibyte)
;; Illegal messages may not have end-of-header.
;; Truncated messages may not have end-of-header.
(if (re-search-forward mew-eoh nil t)
Index: mew-mime.el
===================================================================
RCS file: /usr/home/kazu/cvsroot/Mew/mew/mew-mime.el,v
retrieving revision 1.56
diff -c -r1.56 mew-mime.el
*** mew-mime.el 1999/04/02 07:14:53 1.56
--- mew-mime.el 1999/04/08 06:13:42
***************
*** 139,144 ****
--- 139,145 ----
(let ((file (mew-make-temp-name fname)))
(save-excursion
(set-buffer (mew-current-get 'cache))
+ (mew-set-buffer-multibyte)
;; NEVER use call-process-region for privacy reasons
(if (mew-member-case-equal ct mew-mime-content-type-text-list)
(mew-frwlet mew-cs-noconv mew-cs-outfile
Mew-dist メーリングリストの案内