[Mew-dist 03858] XEmacs tty support.

[Yuuichi Teranishi 寺西裕一]

寺西＠ＮＴＴ情報研です。

XEmacs-20.5b26 から terminal-coding-system が正式に実装されて
tty でもちゃんと日本語が使えるようになりましたので、
mew で以下を行うようにしてみました。

* XEmacs なら tty でも highlight。
* tty なら画像を inline 表示しない。

mew-highlight.el 0.02
mew-unix.el      0.01
へのパッチです。

--
Yuuichi Teranishi (寺西裕一) <teranisi at example.com>
NTT Information and Communication Systems Laboratories
To lead a better life I need my home to be here...
-------------- next part --------------
--- mew-highlight.el.bak	Sun Jan 25 21:05:15 1998
+++ mew-highlight.el	Fri Feb 20 11:46:24 1998
@@ -17,7 +17,7 @@
 
 (defun mew-summary-highlight-setup ()
   "A function to setup mouse line for Summary and Virtual mode."
-  (if (and window-system mew-xemacs-p mew-use-highlight-mouse-line)
+  (if (and mew-xemacs-p mew-use-highlight-mouse-line)
       (setq mode-motion-hook mew-highlight-mouse-line-function)))
 
 (defalias 'mew-virtual-highlight-setup 'mew-summary-highlight-setup)
@@ -55,7 +55,7 @@
 
 (defun mew-highlight-mark-region (beg end)
   (interactive "r")
-  (if (and window-system mew-use-highlight-mark
+  (if (and (or window-system mew-xemacs-p) mew-use-highlight-mark
 	   (mew-member (buffer-name) mew-highlight-mark-folder-list))
       (let ((regex (concat mew-summary-message-regex "\\([^ ]\\)"))
 	    (buffer-read-only nil) face)
@@ -71,7 +71,7 @@
 	       'face face)))))))
 
 (defun mew-highlight-mark-line (mark)
-  (if (and window-system mew-use-highlight-mark
+  (if (and (or window-system mew-xemacs-p) mew-use-highlight-mark
 	   (mew-member (buffer-name) mew-highlight-mark-folder-list))
       (let ((buffer-read-only nil) face)
 	(setq face (cdr (assoc mark mew-highlight-mark-keywords)))
@@ -82,7 +82,7 @@
 	     'face face)))))
 
 (defun mew-highlight-unmark-line ()
-  (if (and window-system mew-use-highlight-mark
+  (if (and (or window-system mew-xemacs-p) mew-use-highlight-mark
 	   (mew-member (buffer-name) mew-highlight-mark-folder-list))
       (remove-text-properties 
        (save-excursion (beginning-of-line) (point))
@@ -92,7 +92,7 @@
 (defun mew-highlight-header-region (beg end)
   "A function to highligh header in Message and Draft mode."
   (interactive "r")
-  (if (and window-system mew-use-highlight-header)
+  (if (and (or window-system mew-xemacs-p) mew-use-highlight-header)
       (save-excursion
 	(save-restriction
 	  (narrow-to-region beg end)
@@ -119,7 +119,7 @@
 
 (defun mew-highlight-body ()
   "A function to highligh body in Message mode."
-  (if (and window-system mew-use-highlight-body)
+  (if (and (or window-system mew-xemacs-p) mew-use-highlight-body)
       (save-excursion
 	(save-restriction
 	  (let ((keywords mew-highlight-body-keywords)
@@ -158,7 +158,8 @@
   (defvar mew-use-highlight-x-face-function
     (function (lambda (beg end)
 		(interactive)
-		(if (and window-system mew-use-highlight-x-face)
+		(if (and (or window-system mew-xemacs-p) 
+			 mew-use-highlight-x-face)
 		    (save-excursion
 		      (goto-char beg)
 		      (let ((buffer-read-only nil) xface)
@@ -201,7 +202,7 @@
 'mew-highlight-xxx-face-yyy'. A base face is copied from
 'mew-highlight-xxx-style-yyy' then a color is set from
 'mew-highlight-xxx-color-yyy'."
-  (if window-system
+  (if (or window-system mew-xemacs-p)
       (let (fname str style color)
 	(while flist
 	  (setq fname (car flist))
-------------- next part --------------
--- mew-unix.el.bak	Wed Jan 28 21:39:13 1998
+++ mew-unix.el	Fri Feb 20 11:42:33 1998
@@ -17,14 +17,14 @@
 (defvar mew-prog-text '(mew-mime-text/plain () nil))
 (defvar mew-prog-audio
   (list mew-prog-shell (list mew-prog-shell-arg "cat - > /dev/audio") nil))
-(defvar mew-prog-gif (if (and mew-xemacs-p (featurep 'gif))
+(defvar mew-prog-gif (if (and mew-xemacs-p (featurep 'gif) window-system)
 			 '(mew-mime-image/gif () nil)
 		       '("xv" ("-geometry" "+0+0") t)))
-(defvar mew-prog-jpeg (if (and mew-xemacs-p (featurep 'jpeg))
+(defvar mew-prog-jpeg (if (and mew-xemacs-p (featurep 'jpeg) window-system)
 			  '(mew-mime-image/jpeg () nil)
 			'("xv" ("-geometry" "+0+0") t)))
 (defvar mew-prog-xwd '("xv" ("-geometry" "+0+0") t))
-(defvar mew-prog-xbm (if (and mew-xemacs-p (featurep 'xpm))
+(defvar mew-prog-xbm (if (and mew-xemacs-p (featurep 'xpm) window-system)
 			 '(mew-mime-image/xbm () nil)
 		       '("xv" ("-geometry" "+0+0") t)))
 (defvar mew-prog-bmp '("xv" ("-geometry" "+0+0") t))