[mew-dist 23073] about Face header

[NINOMIYA Hideyuki]

おはようございます	二宮@お四国 です

最近どうも Gnus 方面で出現した新しいヘッダとして
Face: というのが有るようです。
これは、png を base64 encoding したカラー対応版の X-Face みたいな
もんで、、とにかくでかい ^^
Gnu Emacs 21 用にはこれを扱う elisp が作られてるのですが。。。
XEmacs 用には現在無いみたい。。。
現在の Mew では頭に X- が付いて無いためにこれが直接表示され
ちゃってうざったいので patch 作ってみました ^^
--─
ICQ UIN:57442553                              二宮 秀幸@愛媛 鬼北 広見町
PGP-Fingerprint:      6C59 EC08 5B23 6490 44D0  7CD3 DA40 219F 7114 8553
PGP-Public-Key:      http://www10.plala.or.jp/key-com/pgp/public-key.txt
mailto:nin at example.com http://www10.plala.or.jp/key-com/index.html
mailto:nin at example.com     http://home.jp.freebsd.org/~nin/index.html
-------------- next part --------------
Index: mew-const.el
===================================================================
RCS file: /ext/cvs/mew/mew-const.el,v
retrieving revision 1.32
diff -c -F(def -r1.32 mew-const.el
*** mew-const.el	20 Jan 2003 13:22:38 -0000	1.32
--- mew-const.el	16 Feb 2003 02:21:36 -0000
*************** (defconst mew-received: "Received:")
*** 64,69 ****
--- 64,70 ----
  
  (defconst mew-x-mailer:    "X-Mailer:")
  (defconst mew-x-face:      "X-Face:")
+ (defconst mew-face:        "Face:")
  (defconst mew-x-mew:       "X-Mew:")
  (defconst mew-x-mew-uidl:  "X-Mew-Uidl:")
  
Index: mew-vars2.el
===================================================================
RCS file: /ext/cvs/mew/mew-vars2.el,v
retrieving revision 1.57
diff -c -F(def -r1.57 mew-vars2.el
*** mew-vars2.el	21 Jan 2003 14:34:25 -0000	1.57
--- mew-vars2.el	16 Feb 2003 02:35:11 -0000
*************** (defvar mew-field-database
*** 506,512 ****
      (,mew-message-id:    unstruct   unstruct)
      (,mew-references:    unstruct   unstruct)
      (,mew-in-reply-to:   unstruct   unstruct)
!     (,mew-x-face:	 unstruct   unstruct))
    "(field enc dec)")
  
  (defsubst mew-field-type-for-encoding (key)
--- 506,513 ----
      (,mew-message-id:    unstruct   unstruct)
      (,mew-references:    unstruct   unstruct)
      (,mew-in-reply-to:   unstruct   unstruct)
!     (,mew-x-face:	 unstruct   unstruct)
!     (,mew-face:          unstruct   unstruct))
    "(field enc dec)")
  
  (defsubst mew-field-type-for-encoding (key)
*************** (defcustom mew-field-spec
*** 655,660 ****
--- 656,664 ----
      ("^NNTP-Posting-" nil)
      ("^\\(Message-Id\\|Posted\\|In-Reply-To\\|References\\|Precedence\\):$" nil)
      ("^Delivered-" nil)
+     ("^Face:$" nil
+      mew-face-header-private
+      mew-face-header-marginal) ;; X-Face of new color version from Gnus
      ("^List-" nil) ;; RFC 2369
  ;;    ("^Content-" t)
      ("^\\(Mime-Version\\|Lines\\):$" nil)