[Mew-dist 17795] highlight on non-color terminal
Shun-ichi TAHARA ( 田原 俊一 )
jado at example.com
2001年 6月 18日 (月) 12:04:37 JST
もはや、mew-theme.elでは、カラー端末以外での face も定義されていますの
で、highlight 処理の判定条件から (mew-color-p) を外してみました。
_______________________________
田原 俊一 jado at example.com, shunichi_tahara at example.com
http://flowernet.gr.jp/jado/
FingerPrint: 16 9E 70 3B 05 86 5D 08 B8 4C 47 3A E7 E9 8E D9
 ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
-------------- next part --------------
diff -rc mew.orig/mew-decode.el mew.N/mew-decode.el
*** mew.orig/mew-decode.el Wed May 30 17:37:28 2001
--- mew.N/mew-decode.el Mon Jun 18 11:48:23 2001
***************
*** 150,156 ****
(defun mew-decode-header-property-region (BEG END)
;; see also mew-highlight-header
! (when (and mew-use-highlight-header (mew-color-p))
(mew-elet
(let (key beg med nspec key-face val-face)
(save-restriction
--- 150,156 ----
(defun mew-decode-header-property-region (BEG END)
;; see also mew-highlight-header
! (when mew-use-highlight-header
(mew-elet
(let (key beg med nspec key-face val-face)
(save-restriction
***************
*** 185,191 ****
Return the existence MIME-Version: and the value of Subject:."
(let* ((case-fold-search t)
(visibles (make-list (length mew-field-spec) nil))
! (prop (and mew-use-highlight-header (mew-color-p) (not no-property)))
key beg med subj from contents others
key-face val-face N nspec visiblep mimep)
(mew-decode-narrow-to-header
--- 185,191 ----
Return the existence MIME-Version: and the value of Subject:."
(let* ((case-fold-search t)
(visibles (make-list (length mew-field-spec) nil))
! (prop (and mew-use-highlight-header (not no-property)))
key beg med subj from contents others
key-face val-face N nspec visiblep mimep)
(mew-decode-narrow-to-header
Only in mew.N: mew-decode.el~
diff -rc mew.orig/mew-highlight.el mew.N/mew-highlight.el
*** mew.orig/mew-highlight.el Mon Jun 18 03:48:05 2001
--- mew.N/mew-highlight.el Mon Jun 18 11:49:06 2001
***************
*** 86,92 ****
(defun mew-highlight-header-region (BEG END)
"A function to highlight header in Message and Draft mode."
! (when (and mew-use-highlight-header (mew-color-p))
(let (key beg med nspec overlay key-face val-face)
(save-excursion
(mew-elet
--- 86,92 ----
(defun mew-highlight-header-region (BEG END)
"A function to highlight header in Message and Draft mode."
! (when mew-use-highlight-header
(let (key beg med nspec overlay key-face val-face)
(save-excursion
(mew-elet
Only in mew.N: mew-highlight.el~
Mew-dist メーリングリストの案内