[Mew-dist 732] Re: mew-1.6X bugs?

[Kazu Yamamoto 山本和彦]

From: Yuuichi Teranishi 寺西裕一<teranisi at example.com>
Subject: [Mew-dist 730] mew-1.6X bugs? 
Date: Mon, 24 Mar 1997 18:31:40 +0900

> １. highlight-headers 
> 
> mew-1.6X では xemacs の highlight-headers が使われていますが，
> cited text の highlight がうまくできないように思います．

この目的で mew-message-hook を作ったと記憶しています。

(add-hook 'mew-message-hook
	   (function 
	    (lambda ()
	      (if mew-xemacs-p
		  (highlight-headers (point-min) (point-max) nil))))
	   )

とかするとうまくいくと思います。

> (setq highlight-headers-hack-x-face-p t);; X-Face

これはすごいですぇ。:)

> ２．pgp message
> 
> 同じ pgp のメッセージが２回表示されます．たとえばこんなかんじです．

失礼しました。以下のパッチで直ります。

> ．．あと，質問です．
> mew-1.65 あたりから Summary Mode にヨコスクロールバーがつくようになって
> しまったのですが，ちょっとうっとうしいです:-p．
> これを消す方法はありませんか？

(set-specifier scrollbar-height 0) で設定できますが、大域的に定義される
ので、他のバッファーでもスクロールバーが出なくなります。:p

P.S.

以下のパッチで、forward や multi-forward のときに、 toolbar にマルチパ
ートのアイコンが表示されないバグもなくなります。ただ、この原因は 
XEmacs のバグであるような気がします。

--かず


*** mew-summary.el.orig	Mon Mar 24 19:32:25 1997
--- mew-summary.el	Mon Mar 24 20:13:03 1997
***************
*** 1226,1232 ****
  	    )
  	(save-buffer))) ;; to make sure not to use this draft again
      (message "Draft is prepared")
!     t ) ;; preparation is succeeded.
     (t 
      (message "No message")
      nil) ;; preparation is failed.
--- 1226,1232 ----
  	    )
  	(save-buffer))) ;; to make sure not to use this draft again
      (message "Draft is prepared")
!     t) ;; preparation is succeeded.
     (t 
      (message "No message")
      nil) ;; preparation is failed.
***************
*** 1283,1289 ****
  	    (save-excursion
  	      (mew-draft-prepare-attachments)
  	      )
! 	    ;; status saved
  	    )
  	(save-buffer))) ;; to make sure not to use this draft again
      (message "Draft is prepared"))
--- 1283,1296 ----
  	    (save-excursion
  	      (mew-draft-prepare-attachments)
  	      )
! 	    ;; XEmacs doesn't draw attachments unless sit for 0...
! 	    (sit-for 0) 
! 	    ;; XEmacs doesn't draw toolbar, so...
! 	    (if mew-icon-p
! 		(progn
! 		  (set-specifier default-toolbar-visible-p nil)
! 		  (set-specifier default-toolbar-visible-p t)
! 		  ))
  	    )
  	(save-buffer))) ;; to make sure not to use this draft again
      (message "Draft is prepared"))
***************
*** 1311,1317 ****
  		    (mew-encode-syntax-initial-multi dirname (length fld-msg)))
  	      (save-excursion
  		(mew-draft-prepare-attachments)
! 		))
  	  (save-buffer)) ;; to make sure not to use this draft again
  	(message "Draft is prepared"))
        )
--- 1318,1333 ----
  		    (mew-encode-syntax-initial-multi dirname (length fld-msg)))
  	      (save-excursion
  		(mew-draft-prepare-attachments)
! 		)
! 	      ;; XEmacs doesn't draw attachments unless sit for 0...
! 	      (sit-for 0) 
! 	      ;; XEmacs doesn't draw toolbar, so...
! 	      (if mew-icon-p
! 		  (progn
! 		    (set-specifier default-toolbar-visible-p nil)
! 		    (set-specifier default-toolbar-visible-p t)
! 		    ))
! 	      )
  	  (save-buffer)) ;; to make sure not to use this draft again
  	(message "Draft is prepared"))
        )
*** mew-syntax.el.orig	Mon Mar 24 20:14:43 1997
--- mew-syntax.el	Mon Mar 24 20:16:54 1997
***************
*** 687,694 ****
  	 (cnt mew-syntax-magic)
  	 (num 1)
  	 (len (length multi)))
-     (if privacy
- 	(setq mew-decode-result (concat mew-x-mew: " <all> " privacy "\n")))
      (while (< cnt len)
        (mew-decode-syntax-iconify-loop 
         msg
--- 687,692 ----
***************
*** 703,716 ****
    (let ((ct (capitalize (car (mew-syntax-get-ct syntax))))
  	(cd (or (mew-syntax-get-cd syntax) ""))
  	(privacy (mew-syntax-get-privacy syntax)))
-     (if privacy
- 	(setq mew-decode-result
- 	      (concat mew-decode-result
- 		      (format (concat mew-x-mew: " <%s> ")
- 			      (progn (string-match "[1-9.]+" pref)
- 				     (mew-match 0 pref)))
- 		      privacy
- 		      "\n")))
      (cond
       ((mew-syntax-message-p syntax)
        (setq mew-summary-icon-spec 
--- 701,706 ----