[Mew-dist 14439] syncronize config for input and output

[Shun-ichi TAHARA ( 田原 俊一 )]

気づいたことその2。

1.95になって、config が input 用と output 用に分離されましたが、ノート
機とかでの接続環境で config を切り換えているような場合には、input 用と
output 用とで config が常に一致しているようなケースもあるのでは、と思
いました(というか、私の場合がそうだったので)。

添付のパッチを適用すると、mew-config-syncronize 変数が追加されます。
これを t にすると、mew-config-input と mew-config-output が同じ値を持
つようになります。

実際には、mew-config-set-input/mew-config-set-output で、
mew-config-input と mew-config-output の両方を設定するようになっていま
す。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
田原 俊一   jado at example.com, shunichi_tahara at example.com
                                  http://flowernet.gr.jp/jado/
FingerPrint: 16 9E 70 3B 05 86 5D 08 - B8 4C 47 3A E7 E9 8E D9
￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
-------------- next part --------------
diff -rc mew-1.95b65.orig/mew-config.el mew-1.95b65/mew-config.el
*** mew-1.95b65.orig/mew-config.el	Fri Sep 29 15:31:51 2000
--- mew-1.95b65/mew-config.el	Sat Oct  7 12:35:48 2000
***************
*** 197,211 ****
  (defvar mew-config-input nil)
  (defvar mew-config-output nil)
  
  (defun mew-config-set-input ()
    "Set the config value for input."
    (interactive)
!   (setq mew-config-input (mew-input-config mew-config-input "Input")))
  
  (defun mew-config-set-output ()
    "Set the config value for output."
    (interactive)
!   (setq mew-config-output (mew-input-config mew-config-output "Output")))
  
  (defun mew-summary-set-config (&optional output)
    (interactive "P")
--- 197,224 ----
  (defvar mew-config-input nil)
  (defvar mew-config-output nil)
  
+ (defvar mew-config-syncronize nil)
+ 
+ (defun mew-config-set-both ()
+   "Set the config value for both input and output."
+   (interactive)
+   (let ((config (mew-input-config mew-config-input "Input/Output")))
+     (setq mew-config-input config)
+     (setq mew-config-output config)))
+ 
  (defun mew-config-set-input ()
    "Set the config value for input."
    (interactive)
!   (if mew-config-syncronize
!       (mew-config-set-both)
!     (setq mew-config-input (mew-input-config mew-config-input "Input"))))
  
  (defun mew-config-set-output ()
    "Set the config value for output."
    (interactive)
!   (if mew-config-syncronize
!       (mew-config-set-both)
!     (setq mew-config-output (mew-input-config mew-config-output "Output"))))
  
  (defun mew-summary-set-config (&optional output)
    (interactive "P")
diff -rc mew-1.95b65.orig/mew-summary.el mew-1.95b65/mew-summary.el
*** mew-1.95b65.orig/mew-summary.el	Tue Oct  3 11:26:54 2000
--- mew-1.95b65/mew-summary.el	Sat Oct  7 12:38:45 2000
***************
*** 677,683 ****
  		 "" mew-config-output)))
      (if (and (string= in "") (string= out ""))
  	(setq mode-name "Summary")
!       (setq mode-name (format "Summary %s:%s" in out)))
      (force-mode-line-update)))
  
  (defun mew-summary-mode-line ()
--- 677,685 ----
  		 "" mew-config-output)))
      (if (and (string= in "") (string= out ""))
  	(setq mode-name "Summary")
!       (if (and mew-config-syncronize (string= in out))
! 	  (setq mode-name (format "Summary %s" in))
! 	(setq mode-name (format "Summary %s:%s" in out))))
      (force-mode-line-update)))
  
  (defun mew-summary-mode-line ()