[Mew-dist 2918] 1.92.3

Kazu Yamamoto Kazu at example.com
1997年 11月 7日 (金) 09:54:14 JST


I'm very sorry that the patch from 1.92 to 1.92.1 enbuged Mew. The bug
appears when you enjoy PGP/MIME mark composing. "PS" nor "PE" mark
are never displayed. This is a patch for upgrading to 1.92.3.

--Kazu

Index: mew/mew-syntax.el
diff -c mew/mew-syntax.el:1.1.1.1.2.1 mew/mew-syntax.el:1.1.1.1.2.2
*** mew/mew-syntax.el:1.1.1.1.2.1	Tue Oct 28 14:21:37 1997
--- mew/mew-syntax.el	Fri Nov  7 09:40:10 1997
***************
*** 432,443 ****
  
      (if (null privacy)
  	(if (null cte)
! 	    (setq marks "     ")
  	  (cond
  	   ((equal cte mew-b64) (setq marks "B    "))
  	   ((equal cte mew-qp)  (setq marks "Q    "))
  	   ((equal cte mew-xg)  (setq marks "G    "))
  	   ))
        (while privacy
  	(setq ctm (nth 0 (car privacy)))
  	(setq ctp (nth 1 (car privacy)))
--- 432,444 ----
  
      (if (null privacy)
  	(if (null cte)
! 	    ()
  	  (cond
  	   ((equal cte mew-b64) (setq marks "B    "))
  	   ((equal cte mew-qp)  (setq marks "Q    "))
  	   ((equal cte mew-xg)  (setq marks "G    "))
  	   ))
+       (setq marks "")
        (while privacy
  	(setq ctm (nth 0 (car privacy)))
  	(setq ctp (nth 1 (car privacy)))
Index: mew/mew.el
diff -c mew/mew.el:1.1.1.1.2.2 mew/mew.el:1.1.1.1.2.3
*** mew/mew.el:1.1.1.1.2.2	Thu Nov  6 15:19:51 1997
--- mew/mew.el	Fri Nov  7 09:43:04 1997
***************
*** 7,13 ****
  ;;;
  ;;; Author:  Kazu Yamamoto <Kazu at example.com>
  ;;; Created: Mar 22, 1994
! ;;; Revised: Nov  6, 1997
  ;;;
  ;;; The updated version is available from:
  ;;;	ftp://ftp.aist-nara.ac.jp/pub/elisp/Mew/mew-current.tar.gz
--- 7,13 ----
  ;;;
  ;;; Author:  Kazu Yamamoto <Kazu at example.com>
  ;;; Created: Mar 22, 1994
! ;;; Revised: Nov  7, 1997
  ;;;
  ;;; The updated version is available from:
  ;;;	ftp://ftp.aist-nara.ac.jp/pub/elisp/Mew/mew-current.tar.gz
***************
*** 24,30 ****
  ;;; Mew version
  ;;;
  
! (defconst mew-version "Mew version 1.92.2")
  (provide 'mew)
  (require 'mew-env)
  (require 'mew-func)
--- 24,30 ----
  ;;; Mew version
  ;;;
  
! (defconst mew-version "Mew version 1.92.3")
  (provide 'mew)
  (require 'mew-env)
  (require 'mew-func)




Mew-dist メーリングリストの案内