[Mew-dist 17693] mew-summary-ask-sending-case-always

[KOIE Hidetaka ( 鯉江英隆 )]

(length mew-case-output) => 25 になっちゃったので
サマリバッファのモードラインにmew-case-outputが表示されるのはうっとうしい。
ということで mew-summary-ask-sending-case-always という変数を導入して
non nilならモードラインに表示しないようにし、
またC-c C-cで送信するときにqueue case valueをききます。


Index: mew-summary.el
===================================================================
RCS file: /cvsmew/mew/mew-summary.el,v
retrieving revision 1.48
diff -p -u -b -B -r1.48 mew-summary.el
--- mew-summary.el	2001/06/01 06:42:43	1.48
+++ mew-summary.el	2001/06/06 04:29:26
@@ -548,6 +548,7 @@ is equivalent to
     (set-buffer buf)
     (setq mew-summary-buffer-left-msgs  "-"))) ;; local variable
 
+(defvar mew-summary-ask-sending-case-always nil)
 (defun mew-summary-mode-name (name)
   (let ((in (if (mew-case-default-p mew-case-input)
 		"" mew-case-input))
@@ -555,7 +556,8 @@ is equivalent to
 		 "" mew-case-output)))
     (if (and (string= in "") (string= out ""))
 	(setq mode-name name)
-      (if (and mew-case-synchronize (string= in out))
+      (if (or (and mew-case-synchronize (string= in out))
+              mew-summary-ask-sending-case-always)
 	  (setq mode-name (format "%s %s" name in))
 	(setq mode-name (format "%s %s:%s" name in out))))
     (force-mode-line-update)))
@@ -2071,7 +2073,7 @@ queue folder. If executed with '\\[unive
 you can set the sending case."
   (interactive "P")
   (let ((qfld (mew-summary-folder-name 'ext)) case)
-    (if arg
+    (if (or arg mew-summary-ask-sending-case-always)
  	(setq case (mew-input-case mew-case-output "Queue"))
       (setq case mew-case-output))
     (if (mew-folder-queuep qfld)

--
KOIE Hidetaka 鯉江英隆 <hide at example.com>