[Mew-dist 2742] Re: Mew 1.92: mew-opt-highlight-header should be t ?

[Osamu KURATI]

¤³¤ó¤Ë¤Á¤Ï¡¢ÁÒÃϤǤ¹¡£

mew-opt-highlight-header ¤Î·ï¤Ç¤¹¤¬¡¢»ä¤â¤­¤Ë¤Ê¤Ã¤Æ¤Á¤ç¤Ã¤È¥³¡¼¥É¤ò¤ß¤Æ¤ß¤Þ¤·¤¿¡£


On Sat, 25 Oct 1997 17:51:39 +0900, Makoto MATSUSHITA (¤Þ¤Ä¤·¤¿¤Þ¤³¤È) <matusita at example.com> wrote:

> mew-opt-highlight-header ¤È¤¤¤¦ÊÑ¿ô¤Î¥³¥á¥ó¥È¤ä¡¤¤Þ¤¿ texinfo ¤Î¾ðÊó¤ò
> »²¾È¤¹¤ë¸Â¤ê¡¤¤³¤ÎÊÑ¿ô¤ò¿¨¤ë¤³¤È¤Ë¤è¤Ã¤Æ message/draft mode ¤Ë¤ª¤±¤ë 
> header ¤Î¿§ÉÕ¤±¤ò¶Ø»ß¤¹¤ë¤³¤È¤¬¤Ç¤­¤ë¤È»×¤¦¤Î¤Ç¤¹¤¬¡¤¼ÂºÝ¤Ë code ¤ò¸«
> ¤ë¤È¤³¤ÎÊÑ¿ô¤Ç¤ÏÀ©¸æ¤Ç¤­¤Ê¤¤¤è¤¦¤Êµ¤¤¬¤·¤Þ¤¹(mew-highlight.el Ãæ¤Ç 
> defvar ¤Ï¤µ¤ì¤Æ¤¤¤ë¤¬¡¤¤³¤ì¤ò»²¾È¤¹¤ë¿Í¤¬Ã¯¤â¤¤¤Ê¤¤)¡¥


¤ÇźÉÕ¤·¤¿¤è¤¦¤Ê¥Ñ¥Ã¥Á¤ò¤Ä¤¯¤Ã¤Æ header ¤Î¿§¤Å¤±¤òÀ©¸æ¤¹¤ë¤è¤¦¤Ë¤·¤Þ¤·¤¿¤¬
¤¤¤«¤¬¤Ê¤â¤Î¤Ç¤·¤ç¤¦¤«¡©



¤½¤ì¤È¡¢ÏäÏÊѤê¤Þ¤¹¤¬¡¢ emacs-20.2(linux-2.0.29, X-window) ¤Ç

(set-frame-font "fontset-standard")

¤È¤·¤Æ¡¢ÆüËܸì¤Îʸ»ú¤òɽ¼¨¤·¤Æ¤¤¤ë¤È¤­¤Ë¥Õ¥©¥ó¥È¤¬ BOLD ¤Ë¤Ê¤é¤Ê¤¤¤Î¤Ç¤¹¤¬
¤³¤ì¤Ï»ä¤ÎÀßÄê¥ß¥¹¤Ê¤Î¤Ç¤·¤ç¤¦¤«¡©

emacs-19.31 ¥Ù¡¼¥¹¤Î mule-2.3 ¤À¤È
mew-1.92 ¤Ç¥Ç¥Õ¥©¥ë¥È¤ÎÀßÄê¤Î¤Þ¤Þ¤À¤È header Éôʬ¤Ï BOLD ¤Ë¤Ê¤ë¤Î¤Ç¤¹¤¬
emacs-20.2 ¤À¤È BOLD ¤Ë¤Ê¤é¤Ê¤¤¤ó¤Ç¤¹¡£

¤ª¤ï¤«¤ê¤Î¤«¤¿¤¬¤ª¤é¤ì¤Þ¤·¤¿¤é¡¢¤¼¤Ò¤´¶µ¼¨¤¯¤À¤µ¤¤¡£

¤Ç¤Ï¡£

--
Osamu KURATI
kurati at example.com
-------------- next part --------------
--- mew-highlight.el-dist	Sat Oct 25 14:23:40 1997
+++ mew-highlight.el	Sun Oct 26 01:22:41 1997
@@ -219,6 +219,7 @@
 (defun mew-highlight-header-region (beg end)
   "A function to highligh header in Message and Draft mode."
   (interactive "r")
+  (if mew-opt-highlight-header
   (save-excursion
     (save-restriction
       (narrow-to-region beg end)
@@ -239,7 +240,7 @@
 		(while (looking-at "[ \t]+") (forward-line))
 		(setq end2 (1- (point)))
 		(put-text-property beg2 end2 'face (nth 2 assoc)))
-	    (while (looking-at "[ \t]") (forward-line))))))))
+	    (while (looking-at "[ \t]") (forward-line)))))))))
 
 ;;
 ;; X-Face: