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