[Mew-dist 1452] PGP/MIME patch

Kazu Yamamoto ( 山本和彦 ) Kazu at example.com
1997年 8月 5日 (火) 17:54:24 JST


とーおひはすすむーよー、どーこまでーもー (逃避の詩 by itojun)

というわけで、
	message/rfc822
		[ multipart/* ]
			message/rfc822
				*/* (excluding multipart/*)
となっている場合、X-Mew: が表示されないバグを直しました。以下のパッチを
1.87 に当てて下さい。10分で作ったので、まだ穴があるかもしれません。

--かず

*** mew-syntax.el.orig	Mon Jun  2 14:35:29 1997
--- mew-syntax.el	Tue Aug  5 17:46:08 1997
***************
*** 652,658 ****
        (if (mew-syntax-multipart-p (mew-syntax-get-part syntax))
  	  (mew-decode-syntax-print-loop
  	   (mew-syntax-get-part syntax)
! 	   (concat "\t" pref))))
       ((mew-syntax-singlepart-p syntax)
        (insert (format "%s\t%s\t%s\n" pref ct cd))
        (mew-summary-highlight-lines-region po (point) t))
--- 652,667 ----
        (if (mew-syntax-multipart-p (mew-syntax-get-part syntax))
  	  (mew-decode-syntax-print-loop
  	   (mew-syntax-get-part syntax)
! 	   (concat "\t" pref))
! 	(setq privacy (mew-syntax-get-privacy (mew-syntax-get-part syntax)))
! 	(if privacy
! 	    (setq mew-decode-result
! 		  (concat mew-decode-result
! 			  (format (concat mew-x-mew: " <%s> ")
! 				  (progn (string-match "[1-9.]+" pref)
! 					 (mew-match 0 pref)))
! 			  privacy
! 			  "\n")))))
       ((mew-syntax-singlepart-p syntax)
        (insert (format "%s\t%s\t%s\n" pref ct cd))
        (mew-summary-highlight-lines-region po (point) t))



Mew-dist メーリングリストの案内