[mew-dist 22983] Re: about 南京錠

[Hideyuki SHIRAI ( 白井秀行 )]

From: Kazu Yamamoto (山本和彦) <kazu at example.com> さん曰く
Subject: [mew-dist 22982] Re: about 南京錠
Message-ID: <20030123.122913.27021599.kazu at example.com>
Date: Thu, 23 Jan 2003 12:29:13 +0900 (JST)

> > 手元の XEmacs 21.4.11 で↓なことをしたら画像がでました。
> 
> 素晴らしい。

ども。

> 対応しました。

これ、画像で表示出来ない Emacs はなにか文字を表示すればいいし、
画像の表示が mew-mode-line-format なのは、Emacs21 のバグ (仕様？)
なのだから、Emacs21 を例外扱いして、それ以外は
mew-mode-line-process に画像 or 文字列を表示するのはどうでしょう
か。この方が見やすいです。

# だけど、Emacs21.3 は現状の line-format の方が見やすいんだよな。
# Emacs21.1, 21.2 は一番右になってだめだけど。

細かい点ですが、もう一点、遅い回線 or サーバを使っているときは
"POPing" 表示のときにも secure かどうか結構気になるのです。

というパッチです。

-- 
白井秀行＠ssl はサーバもクライアントもないから試せなくてつまらない
-------------- next part --------------
*** mew-gemacs.el.orig	Thu Jan 23 13:19:55 2003
--- mew-gemacs.el	Thu Jan 23 13:21:51 2003
***************
*** 159,169 ****
  	(profile-results))))
  
  ;;;
  
! (defvar mew-secure-format
    (if (display-graphic-p)
        (let ((data-directory mew-icon-directory))
! 	(concat " " (propertize "Sec" 'display (find-image '((:type xpm :file "mew-lock.xpm" :ascent center))))))))
  
  (provide 'mew-gemacs)
  
--- 159,172 ----
  	(profile-results))))
  
  ;;;
+ (defvar mew-secure-format nil)
  
! (defvar mew-secure-format2
    (if (display-graphic-p)
        (let ((data-directory mew-icon-directory))
! 	(concat " " (propertize "Sec" 'display
! 				(find-image '((:type xpm :file "mew-lock.xpm" :ascent center))))))
!     " [Sec]"))
  
  (provide 'mew-gemacs)
  
*** mew-imap.el.orig	Thu Jan 23 13:49:47 2003
--- mew-imap.el	Thu Jan 23 13:46:32 2003
***************
*** 779,785 ****
  	    (mew-sinfo-set-refile
  	     (nconc (mew-sinfo-get-refile) (mew-sinfo-get-refile-back)))
  	    (mew-sinfo-set-refile-back nil))
! 	(mew-summary-lock process "IMAPing")
  	(mew-sinfo-set-scan-form (mew-summary-scan-form bnm))
  	(mew-sinfo-set-scan-id nil)
  	(mew-info-clean-up pnm)
--- 779,785 ----
  	    (mew-sinfo-set-refile
  	     (nconc (mew-sinfo-get-refile) (mew-sinfo-get-refile-back)))
  	    (mew-sinfo-set-refile-back nil))
! 	(mew-summary-lock process "IMAPing" (or sshpro sslpro))
  	(mew-sinfo-set-scan-form (mew-summary-scan-form bnm))
  	(mew-sinfo-set-scan-id nil)
  	(mew-info-clean-up pnm)
*** mew-net.el.orig	Thu Jan 23 13:55:08 2003
--- mew-net.el	Thu Jan 23 13:47:26 2003
***************
*** 56,64 ****
  ;;; Net status
  ;;;
  
! (defun mew-summary-lock (key status)
    (setq mew-summary-buffer-process key)
!   (setq mew-summary-buffer-process-status (format " %s" status)))
  
  (defun mew-summary-unlock ()
    (setq mew-summary-buffer-process nil)
--- 56,66 ----
  ;;; Net status
  ;;;
  
! (defun mew-summary-lock (key status &optional secure)
    (setq mew-summary-buffer-process key)
!   (setq mew-summary-buffer-process-status (format " %s" status))
!   (setq mew-summary-buffer-secure-process secure))
!   
  
  (defun mew-summary-unlock ()
    (setq mew-summary-buffer-process nil)
*** mew-nntp.el.orig	Thu Jan 23 13:49:57 2003
--- mew-nntp.el	Thu Jan 23 13:47:16 2003
***************
*** 412,418 ****
         (t
  	(setq process (mew-nntp-open pnm server port no-msg))))
        (when process
! 	(mew-summary-lock process "NNTPing")
  	(mew-sinfo-set-scan-form (mew-summary-scan-form bnm))
  	(mew-sinfo-set-scan-id nil)
  	(mew-info-clean-up pnm)
--- 412,418 ----
         (t
  	(setq process (mew-nntp-open pnm server port no-msg))))
        (when process
! 	(mew-summary-lock process "NNTPing" (or sshpro sslpro))
  	(mew-sinfo-set-scan-form (mew-summary-scan-form bnm))
  	(mew-sinfo-set-scan-id nil)
  	(mew-info-clean-up pnm)
*** mew-pop.el.orig	Thu Jan 23 13:49:39 2003
--- mew-pop.el	Thu Jan 23 13:45:23 2003
***************
*** 617,623 ****
        (if (null process)
  	  (if (eq directive 'exec)
  	      (mew-summary-visible-buffer bnm))
! 	(mew-summary-lock process "POPing")
  	(mew-sinfo-set-scan-form (mew-summary-scan-form bnm))
  	(mew-sinfo-set-scan-id nil)
  	(mew-info-clean-up pnm)
--- 617,623 ----
        (if (null process)
  	  (if (eq directive 'exec)
  	      (mew-summary-visible-buffer bnm))
! 	(mew-summary-lock process "POPing" (or sshpro sslpro))
  	(mew-sinfo-set-scan-form (mew-summary-scan-form bnm))
  	(mew-sinfo-set-scan-id nil)
  	(mew-info-clean-up pnm)
*** mew-summary.el.orig	Thu Jan 23 13:20:17 2003
--- mew-summary.el	Thu Jan 23 13:06:01 2003
***************
*** 220,228 ****
  (defvar mew-mode-line-format
    `("[" mew-summary-buffer-left-msgs " more]"
      (mew-summary-buffer-raw "*")
!     (mew-summary-buffer-secure-process ,mew-secure-format)))
  (defvar mew-mode-line-process
!   '((mew-summary-buffer-process mew-summary-buffer-process-status)))
  
  (defun mew-summary-setup-mode-line ()
    (let ((tgt mew-mode-line-target)
--- 220,230 ----
  (defvar mew-mode-line-format
    `("[" mew-summary-buffer-left-msgs " more]"
      (mew-summary-buffer-raw "*")
!     (mew-summary-buffer-secure-process ,mew-secure-format2)))
! 
  (defvar mew-mode-line-process
!   '((mew-summary-buffer-secure-process mew-secure-format)
!     (mew-summary-buffer-process mew-summary-buffer-process-status)))
  
  (defun mew-summary-setup-mode-line ()
    (let ((tgt mew-mode-line-target)
*** mew-temacs.el.orig	Thu Jan 23 13:19:48 2003
--- mew-temacs.el	Thu Jan 23 13:05:13 2003
***************
*** 115,121 ****
  
  ;;;
  
! (defvar mew-secure-format nil)
  
  (provide 'mew-temacs)
  
--- 115,122 ----
  
  ;;;
  
! (defvar mew-secure-format " [Sec]")
! (defvar mew-secure-format2 nil)
  
  (provide 'mew-temacs)
  
*** mew-xemacs.el.orig	Thu Jan 23 13:20:04 2003
--- mew-xemacs.el	Thu Jan 23 13:05:00 2003
***************
*** 453,459 ****
  (defvar mew-secure-format
    (if window-system
        (let ((data-directory mew-icon-directory))
! 	(make-glyph [xpm :file "mew-lock.xpm"]))))
  
  (provide 'mew-xemacs)
  
--- 453,462 ----
  (defvar mew-secure-format
    (if window-system
        (let ((data-directory mew-icon-directory))
! 	(make-glyph [xpm :file "mew-lock.xpm"]))
!     " [Sec]"))
! 
! (defvar mew-secure-format2 nil)
  
  (provide 'mew-xemacs)