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