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